fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2002-03-27 02:26 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>

Browse Source 
* include/hbset.h
   * source/rtl/set.c
     ! changed definition of HB_SET_AUTORDER from BOOL into int.
This commit is contained in:
Horacio Dario Roldan Kasimatis
2002-03-27 05:45:54 +00:00
parent bc4ec488e7
commit 747d8d40d3
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/include/hbset.h
View File

@@ -140,7 +140,7 @@ typedef struct
BOOL HB_SET_ALTERNATE;
char * HB_SET_ALTFILE;
BOOL HB_SET_AUTOPEN;
BOOL HB_SET_AUTORDER;
int HB_SET_AUTORDER;
int HB_SET_AUTOSHARE;
BOOL HB_SET_BELL;
BOOL HB_SET_CANCEL;

12
harbour/source/rtl/set.c
View File

@@ -426,8 +426,14 @@ HB_FUNC( SET )
if( args > 1 ) hb_set.HB_SET_AUTOPEN = set_logical( pArg2 );
break;
case HB_SET_AUTORDER :
hb_retl( hb_set.HB_SET_AUTORDER );
if( args > 1 ) hb_set.HB_SET_AUTORDER = set_logical( pArg2 );
hb_retni( hb_set.HB_SET_AUTORDER );
if( args > 1 )
{
if( set_number( pArg2, hb_set.HB_SET_AUTORDER ) < 0 )
hb_errRT_BASE( EG_ARG, 2020, NULL, "SET", 2, hb_paramError( 1 ), hb_paramError( 2 ) );
else
hb_set.HB_SET_AUTORDER = set_number( pArg2, hb_set.HB_SET_AUTORDER );
}
break;
case HB_SET_AUTOSHARE :
hb_retni( hb_set.HB_SET_AUTOSHARE );
@@ -751,7 +757,7 @@ void hb_setInitialize( void )
hb_set.HB_SET_ALTFILE = NULL;
hb_set.hb_set_althan = FS_ERROR;
hb_set.HB_SET_AUTOPEN = TRUE;
hb_set.HB_SET_AUTORDER = FALSE;
hb_set.HB_SET_AUTORDER = 0;
hb_set.HB_SET_AUTOSHARE = 0;
hb_set.HB_SET_BELL = FALSE;
hb_set.HB_SET_CANCEL = TRUE;