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

19990814-20:40 GMT+1

Browse Source
This commit is contained in:
Viktor Szakats
1999-08-14 19:12:55 +00:00
parent 6028d8f4bf
commit 169b2ab4ef
35 changed files with 162 additions and 140 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/contrib/odbc/odbc.c
View File

@@ -70,7 +70,7 @@ HB_INIT_SYMBOLS_BEGIN( odbc__InitSymbols )
{ "SQLEXECDIR", FS_PUBLIC, HB_SQLEXECDIR , 0 },
{ "SQLFETCH", FS_PUBLIC, HB_SQLFETCH , 0 },
{ "SQLGETDATA", FS_PUBLIC, HB_SQLGETDATA , 0 }
HB_INIT_SYMBOLS_END( odbc__InitSymbols );
HB_INIT_SYMBOLS_END( odbc__InitSymbols )
#pragma odbc__InitSymbols
HARBOUR HB_SQLALLOCEN( void ) /* HB_SQLALLOCENV( @hEnv ) --> nRetCode */

12
harbour/include/hb_vmpub.h
View File

@@ -61,13 +61,13 @@ typedef struct _HB_DYNS
} HB_DYNS, * PHB_DYNS, * HB_DYNS_PTR;
/* Harbour Functions scope (SYMBOLSCOPE) */
#define FS_PUBLIC 0x00
#define FS_STATIC 0x02
#define FS_INIT 0x08
#define FS_EXIT 0x10
#define FS_PUBLIC ((SYMBOLSCOPE)0x00)
#define FS_STATIC ((SYMBOLSCOPE)0x02)
#define FS_INIT ((SYMBOLSCOPE)0x08)
#define FS_EXIT ((SYMBOLSCOPE)0x10)
#define FS_INITEXIT ( FS_INIT | FS_EXIT )
#define FS_MESSAGE 0x20
#define FS_MEMVAR 0x80
#define FS_MESSAGE ((SYMBOLSCOPE)0x20)
#define FS_MEMVAR ((SYMBOLSCOPE)0x80)
extern void hb_vmExecute( BYTE * pCode, PHB_SYMB pSymbols ); /* invokes the virtual machine */

10
harbour/include/init.h
View File

@@ -91,13 +91,13 @@ extern void hb_vmProcessSymbols( PHB_SYMB pSymbols, WORD wSymbols ); /* statics
hb_vmProcessSymbols( symbols, sizeof( symbols ) / sizeof( HB_SYMB ) ); \
return 1; \
}; \
static int static_int_##func = func()
static int static_int_##func = func();
#define HB_CALL_ON_STARTUP_BEGIN( func ) \
static int func( void ) {
#define HB_CALL_ON_STARTUP_END( func ) return 1; } \
static int static_int_##func = func()
static int static_int_##func = func();
#endif
#ifdef __WATCOMC__
@@ -110,15 +110,15 @@ extern void hb_vmProcessSymbols( PHB_SYMB pSymbols, WORD wSymbols ); /* statics
hb_vmProcessSymbols( symbols, sizeof( symbols ) / sizeof( HB_SYMB ) ); \
return 1; \
}; \
static int static_int_##func = func()
static int static_int_##func = func();
#define HB_CALL_ON_STARTUP_BEGIN( func ) \
static int func( void ) {
#define HB_CALL_ON_STARTUP_END( func ) return 1; }; \
static int static_int_##func = func()
static int static_int_##func = func();
#endif
#endif /*HARBOUR_STRICT_ANSI_C */
#endif /* HARBOUR_STRICT_ANSI_C */
#endif /* HB_INIT_H_ */

196
harbour/include/rddapi.h
View File

@@ -494,32 +494,36 @@ typedef struct _AREA
struct _RDDFUNCS * lprfsHost; /* Virtual method table for this workarea */
USHORT uiArea; /* The number assigned to this workarea */
// void * atomAlias; /* Pointer to the alias symbol for this workarea */
#if 0
void * atomAlias; /* Pointer to the alias symbol for this workarea */
#endif
USHORT uiFieldExtent; /* Total number of fields allocated */
USHORT uiFieldCount; /* Total number of fields used */
LPFIELD lpFields; /* Pointer to an array of fields */
// void * lpFieldExtents; /* Void ptr for additional field properties */
#if 0
void * lpFieldExtents; /* Void ptr for additional field properties */
// PHB_ITEM valResult; /* All purpose result holder */
PHB_ITEM valResult; /* All purpose result holder */
// BOOL fTop; /* TRUE if "top" */
// BOOL fBottom; /* TRUE if "bottom" */
// BOOL fBof; /* TRUE if "bof" */
// BOOL fEof; /* TRUE if "eof" */
// BOOL fFound; /* TRUE if "found" */
BOOL fTop; /* TRUE if "top" */
BOOL fBottom; /* TRUE if "bottom" */
BOOL fBof; /* TRUE if "bof" */
BOOL fEof; /* TRUE if "eof" */
BOOL fFound; /* TRUE if "found" */
// DBSCOPEINFO dbsi; /* Info regarding last LOCATE */
// DBFILTERINFO dbfi; /* Filter in effect */
DBSCOPEINFO dbsi; /* Info regarding last LOCATE */
DBFILTERINFO dbfi; /* Filter in effect */
// LPDBORDERCONDINFO lpdbOrdCondInfo;
LPDBORDERCONDINFO lpdbOrdCondInfo;
// LPDBRELINFO lpdbRelations; /* Parent/Child relationships used */
// USHORT uiParents; /* Number of parents for this area */
LPDBRELINFO lpdbRelations; /* Parent/Child relationships used */
USHORT uiParents; /* Number of parents for this area */
// HANDLE heap;
// USHORT heapSize;
HANDLE heap;
USHORT heapSize;
#endif
USHORT rddID;
@@ -572,42 +576,54 @@ typedef struct _RDDFUNCS
DBENTRYP_BP found;
DBENTRYP_V goBottom;
DBENTRYP_L go;
// DBENTRYP_I goToId;
#if 0
DBENTRYP_I goToId;
#endif
DBENTRYP_V goTop;
// DBENTRYP_SI seek;
#if 0
DBENTRYP_SI seek;
#endif
DBENTRYP_L skip;
// DBENTRYP_L skipFilter;
// DBENTRYP_L skipRaw;
#if 0
DBENTRYP_L skipFilter;
DBENTRYP_L skipRaw;
#endif
/* Data management */
DBENTRYP_VF addField;
// DBENTRYP_S append;
#if 0
DBENTRYP_S append;
#endif
DBENTRYP_I createFields;
// DBENTRYP_V deleterec;
// DBENTRYP_SP deleted;
// DBENTRYP_SP fieldCount;
// DBENTRYP_VP fieldDisplay;
// DBENTRYP_SSI fieldInfo;
// DBENTRYP_SVP fieldName;
// DBENTRYP_V flush;
// DBENTRYP_PP getRec;
// DBENTRYP_SI getValue;
// DBENTRYP_SVP getVarLen;
// DBENTRYP_V goCold;
// DBENTRYP_V goHot;
// DBENTRYP_VP putRec;
// DBENTRYP_SI putValue;
// DBENTRYP_V recall;
// DBENTRYP_LP reccount;
// DBENTRYP_ISI recInfo;
// DBENTRYP_I recno;
#if 0
DBENTRYP_V deleterec;
DBENTRYP_SP deleted;
DBENTRYP_SP fieldCount;
DBENTRYP_VP fieldDisplay;
DBENTRYP_SSI fieldInfo;
DBENTRYP_SVP fieldName;
DBENTRYP_V flush;
DBENTRYP_PP getRec;
DBENTRYP_SI getValue;
DBENTRYP_SVP getVarLen;
DBENTRYP_V goCold;
DBENTRYP_V goHot;
DBENTRYP_VP putRec;
DBENTRYP_SI putValue;
DBENTRYP_V recall;
DBENTRYP_LP reccount;
DBENTRYP_ISI recInfo;
DBENTRYP_I recno;
#endif
DBENTRYP_S setFieldExtent;
/* WorkArea/Database management */
// DBENTRYP_VP alias;
#if 0
DBENTRYP_VP alias;
#endif
DBENTRYP_V close;
DBENTRYP_VP create;
DBENTRYP_SI info;
@@ -616,87 +632,91 @@ typedef struct _RDDFUNCS
DBENTRYP_V release;
DBENTRYP_SP structSize;
DBENTRYP_P sysName;
// DBENTRYP_VP dbEval;
// DBENTRYP_V pack;
// DBENTRYP_LSP packRec;
// DBENTRYP_VP sort;
// DBENTRYP_VP trans;
// DBENTRYP_VP transRec;
// DBENTRYP_V zap;
#if 0
DBENTRYP_VP dbEval;
DBENTRYP_V pack;
DBENTRYP_LSP packRec;
DBENTRYP_VP sort;
DBENTRYP_VP trans;
DBENTRYP_VP transRec;
DBENTRYP_V zap;
/* Relational Methods */
// DBENTRYP_VP childEnd;
// DBENTRYP_VP childStart;
// DBENTRYP_VP childSync;
// DBENTRYP_V syncChildren;
// DBENTRYP_V clearRel;
// DBENTRYP_V forceRel;
// DBENTRYP_SVP relArea;
// DBENTRYP_VP relEval;
// DBENTRYP_SVP relText;
// DBENTRYP_VP setRel;
DBENTRYP_VP childEnd;
DBENTRYP_VP childStart;
DBENTRYP_VP childSync;
DBENTRYP_V syncChildren;
DBENTRYP_V clearRel;
DBENTRYP_V forceRel;
DBENTRYP_SVP relArea;
DBENTRYP_VP relEval;
DBENTRYP_SVP relText;
DBENTRYP_VP setRel;
/* Order Management */
// DBENTRYP_VP orderListAdd;
// DBENTRYP_V orderListClear;
// DBENTRYP_VP orderListDelete;
// DBENTRYP_VP orderListFocus;
// DBENTRYP_V orderListRebuild;
DBENTRYP_VP orderListAdd;
DBENTRYP_V orderListClear;
DBENTRYP_VP orderListDelete;
DBENTRYP_VP orderListFocus;
DBENTRYP_V orderListRebuild;
// DBENTRYP_VP orderCondition;
// DBENTRYP_VP orderCreate;
// DBENTRYP_VP orderDestroy;
// DBENTRYP_SVP orderInfo;
DBENTRYP_VP orderCondition;
DBENTRYP_VP orderCreate;
DBENTRYP_VP orderDestroy;
DBENTRYP_SVP orderInfo;
/* Filters and Scope Settings */
// DBENTRYP_V clearFilter;
// DBENTRYP_V clearLocate;
// DBENTRYP_V clearScope;
// DBENTRYP_VPLP countScope;
// DBENTRYP_VP filterText;
// DBENTRYP_SI scopeInfo;
// DBENTRYP_VP setFilter;
// DBENTRYP_VP setLocate;
// DBENTRYP_VP setScope;
// DBENTRYP_VPL skipScope;
DBENTRYP_V clearFilter;
DBENTRYP_V clearLocate;
DBENTRYP_V clearScope;
DBENTRYP_VPLP countScope;
DBENTRYP_VP filterText;
DBENTRYP_SI scopeInfo;
DBENTRYP_VP setFilter;
DBENTRYP_VP setLocate;
DBENTRYP_VP setScope;
DBENTRYP_VPL skipScope;
/* Miscellaneous */
// DBENTRYP_VP compile;
// DBENTRYP_VP error;
// DBENTRYP_I evalBlock;
DBENTRYP_VP compile;
DBENTRYP_VP error;
DBENTRYP_I evalBlock;
/* Network operations */
// DBENTRYP_VSP rawlock;
// DBENTRYP_VP lock;
// DBENTRYP_L unlock;
DBENTRYP_VSP rawlock;
DBENTRYP_VP lock;
DBENTRYP_L unlock;
/* Memofile functions */
// DBENTRYP_V closeMemFile;
// DBENTRYP_VP createMemFile;
// DBENTRYP_SVPB getValueFile;
// DBENTRYP_VP openMemFile;
// DBENTRYP_SVP putValueFile;
DBENTRYP_V closeMemFile;
DBENTRYP_VP createMemFile;
DBENTRYP_SVPB getValueFile;
DBENTRYP_VP openMemFile;
DBENTRYP_SVP putValueFile;
/* Database file header handling */
// DBENTRYP_V readDBHeader;
DBENTRYP_V readDBHeader;
#endif
DBENTRYP_V writeDBHeader;
/* Special and reserved methods */
// DBENTRYP_SVP whoCares;
#if 0
DBENTRYP_SVP whoCares;
#endif
} RDDFUNCS;

2
harbour/include/run_exp.h
View File

@@ -135,7 +135,7 @@ HB_INIT_SYMBOLS_BEGIN( RUNNER )
{ "VALTYPE", FS_PUBLIC, HB_VALTYPE , 0 },
{ "__MVPUBLIC", FS_PUBLIC, HB___MVPUBLIC , 0 },
{ "__MVPRIVATE", FS_PUBLIC, HB___MVPRIVATE , 0 }
HB_INIT_SYMBOLS_END( RUNNER );
HB_INIT_SYMBOLS_END( RUNNER )
#if ! defined(__GNUC__)
#pragma startup RUNNER
#endif

2
harbour/source/compiler/harbour.y
View File

@@ -2468,7 +2468,7 @@ void GenCCode( char *szFileName, char *szName ) /* generates the C languag
pSym = pSym->pNext;
}
fprintf( yyc, "\nHB_INIT_SYMBOLS_END( %s__InitSymbols );\n", _pFileName->name );
fprintf( yyc, "\nHB_INIT_SYMBOLS_END( %s__InitSymbols )\n", _pFileName->name );
fprintf( yyc, "#if ! defined(__GNUC__)\n#pragma startup %s__InitSymbols\n#endif\n\n\n", _pFileName->name );
/* Generate functions data

8
harbour/source/hbpp/hbpp.c
View File

@@ -1197,15 +1197,15 @@ void SkipOptional( char** ptri, char *ptro, int* lenres )
case '[': nbr++; break;
case ']': nbr--; break;
case '\1':
// if ( numBrackets < 2 )
// {
/* if ( numBrackets < 2 ) */
/* { */
for ( lenpatt=0; lenpatt<4; lenpatt++ )
*(exppatt+lenpatt) = *((*ptri)++);
(*ptri)--;
if ( exppatt[2] == '2' )
while ( **ptri != '>' ) (*ptri)++;
SearnRep( exppatt,"",0,ptro,lenres);
// }
/* } */
break;
}
(*ptri)++;
@@ -1891,4 +1891,4 @@ BOOL OpenInclude( char * szFileName, PATHNAMES *pSearch, FILE** fptr, BOOL bStan
}
return ( *fptr ? TRUE : FALSE );
}
}

2
harbour/source/hbpp/hbpplib.c
View File

@@ -49,7 +49,7 @@ HARBOUR HB_PREPROCESS(void);
HB_INIT_SYMBOLS_BEGIN( Preprocess__InitSymbols )
{ "PREPROCESS", FS_PUBLIC, HB_PREPROCESS , 0 }
HB_INIT_SYMBOLS_END( Preprocess__InitSymbols );
HB_INIT_SYMBOLS_END( Preprocess__InitSymbols )
#if ! defined(__GNUC__)
#pragma Preprocess__InitSymbols
#endif

2
harbour/source/hbpp/table.c
View File

@@ -370,4 +370,4 @@
static COMMANDS sC___239 = {0,"SET","ORDER TO","ordSetFocus(0)",&sC___238 };
static COMMANDS sC___240 = {0,"ANNOUNCE","\1A10","procedure \1A00 ; return",&sC___239 };
COMMANDS *topCommand = &sC___240;
COMMANDS *topTranslate = NULL;
COMMANDS *topTranslate = NULL;

2
harbour/source/rdd/dbcmd.c
View File

@@ -106,7 +106,7 @@ HB_INIT_SYMBOLS_BEGIN( dbCmd__InitSymbols )
{ "RDDREGISTER", FS_PUBLIC, HB_RDDREGISTER, 0 },
{ "RDDSETDEFAULT", FS_PUBLIC, HB_RDDSETDEFAULT, 0 },
{ "RDDSHUTDOWN", FS_PUBLIC, HB_RDDSHUTDOWN, 0 }
HB_INIT_SYMBOLS_END( dbCmd__InitSymbols );
HB_INIT_SYMBOLS_END( dbCmd__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup dbCmd__InitSymbols
#endif

2
harbour/source/rdd/dbf1.c
View File

@@ -67,7 +67,7 @@ HARBOUR HB_DBF_GETFUNCTABLE( void );
HB_INIT_SYMBOLS_BEGIN( dbf1__InitSymbols )
{ "_DBF", FS_PUBLIC, HB__DBF, 0 },
{ "DBF_GETFUNCTABLE", FS_PUBLIC, HB_DBF_GETFUNCTABLE, 0 }
HB_INIT_SYMBOLS_END( dbf1__InitSymbols );
HB_INIT_SYMBOLS_END( dbf1__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup dbf1__InitSymbols
#endif

2
harbour/source/rdd/dbfntx/dbfntx1.c
View File

@@ -34,7 +34,7 @@ HARBOUR HB_DBFNTX_GETFUNCTABLE( void );
HB_INIT_SYMBOLS_BEGIN( dbfntx1__InitSymbols )
{ "_DBFNTX", FS_PUBLIC, HB__DBFNTX, 0 },
{ "DBFNTX_GETFUNCTABLE", FS_PUBLIC, HB_DBFNTX_GETFUNCTABLE, 0 }
HB_INIT_SYMBOLS_END( dbfntx1__InitSymbols );
HB_INIT_SYMBOLS_END( dbfntx1__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup dbfntx1__InitSymbols
#endif

2
harbour/source/rdd/delim1.c
View File

@@ -33,7 +33,7 @@ HARBOUR HB_DELIM_GETFUNCTABLE( void );
HB_INIT_SYMBOLS_BEGIN( delim1__InitSymbols )
{ "_DELIM", FS_PUBLIC, HB__DELIM, 0 },
{ "DELIM_GETFUNCTABLE", FS_PUBLIC, HB_DELIM_GETFUNCTABLE, 0 }
HB_INIT_SYMBOLS_END( delim1__InitSymbols );
HB_INIT_SYMBOLS_END( delim1__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup delim1__InitSymbols
#endif

2
harbour/source/rdd/sdf1.c
View File

@@ -33,7 +33,7 @@ HARBOUR HB_SDF_GETFUNCTABLE( void );
HB_INIT_SYMBOLS_BEGIN( sdf1__InitSymbols )
{ "_SDF", FS_PUBLIC, HB__SDF, 0 },
{ "SDF_GETFUNCTABLE", FS_PUBLIC, HB_SDF_GETFUNCTABLE, 0 }
HB_INIT_SYMBOLS_END( sdf1__InitSymbols );
HB_INIT_SYMBOLS_END( sdf1__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup sdf1__InitSymbols
#endif

2
harbour/source/rtl/arrays.c
View File

@@ -55,7 +55,7 @@ HB_INIT_SYMBOLS_BEGIN( Arrays__InitSymbols )
{ "ASIZE", FS_PUBLIC, HB_ASIZE , 0 },
{ "ASORT", FS_PUBLIC, HB_ASORT , 0 },
{ "ATAIL", FS_PUBLIC, HB_ATAIL , 0 },
HB_INIT_SYMBOLS_END( Arrays__InitSymbols );
HB_INIT_SYMBOLS_END( Arrays__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Arrays__InitSymbols
#endif

2
harbour/source/rtl/classes.c
View File

@@ -164,7 +164,7 @@ HB_INIT_SYMBOLS_BEGIN( Classes__InitSymbols )
{ "OMODINLINE" , FS_PUBLIC, HB_OMODINLINE , 0 },
{ "OMODMETHOD" , FS_PUBLIC, HB_OMODMETHOD , 0 },
{ "OSEND" , FS_PUBLIC, HB_OSEND , 0 }
HB_INIT_SYMBOLS_END( Classes__InitSymbols );
HB_INIT_SYMBOLS_END( Classes__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Classes__InitSymbols
#endif

2
harbour/source/rtl/console.c
View File

@@ -135,7 +135,7 @@ HB_INIT_SYMBOLS_BEGIN( Console__InitSymbols )
{ "QOUT" , FS_PUBLIC, HB_QOUT , 0 },
{ "QQOUT" , FS_PUBLIC, HB_QQOUT , 0 },
{ "__COLORINDEX", FS_PUBLIC, HB___COLORINDEX, 0 }
HB_INIT_SYMBOLS_END( Console__InitSymbols );
HB_INIT_SYMBOLS_END( Console__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Console__InitSymbols
#endif

2
harbour/source/rtl/copyfile.c
View File

@@ -39,7 +39,7 @@ HARBOUR HB___COPYFILE(void);
HB_INIT_SYMBOLS_BEGIN( CopyFile__InitSymbols )
{ "__COPYFILE", FS_PUBLIC, HB___COPYFILE, 0 }
HB_INIT_SYMBOLS_END( CopyFile__InitSymbols );
HB_INIT_SYMBOLS_END( CopyFile__InitSymbols )
#if ! defined(__GNUC__)
#pragma CopyFile__InitSymbols
#endif

2
harbour/source/rtl/dates.c
View File

@@ -70,7 +70,7 @@ HARBOUR HB_YEAR( void );
HB_INIT_SYMBOLS_BEGIN( Dates__InitSymbols )
{ "STOD", FS_PUBLIC, HB_STOD, 0 }
HB_INIT_SYMBOLS_END( Dates__InitSymbols );
HB_INIT_SYMBOLS_END( Dates__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Dates__InitSymbols
#endif

2
harbour/source/rtl/descend.c
View File

@@ -70,7 +70,7 @@ HARBOUR HB_DESCEND(void);
HB_INIT_SYMBOLS_BEGIN( Descend__InitSymbols )
{ "DESCEND", FS_PUBLIC, HB_DESCEND, 0 }
HB_INIT_SYMBOLS_END( Descend__InitSymbols );
HB_INIT_SYMBOLS_END( Descend__InitSymbols )
#if ! defined(__GNUC__)
#pragma Descend__InitSymbols
#endif

2
harbour/source/rtl/dir.c
View File

@@ -130,7 +130,7 @@ HARBOUR HB_DIRECTORY(void);
HB_INIT_SYMBOLS_BEGIN( Dir__InitSymbols )
{ "DIRECTORY", FS_PUBLIC, HB_DIRECTORY, 0 }
HB_INIT_SYMBOLS_END( Dir__InitSymbols );
HB_INIT_SYMBOLS_END( Dir__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Dir__InitSymbols
#endif

2
harbour/source/rtl/environ.c
View File

@@ -54,7 +54,7 @@ HB_INIT_SYMBOLS_BEGIN( Environ__InitSymbols )
{ "GETENV" , FS_PUBLIC, HB_GETENV , 0 },
{ "OS" , FS_PUBLIC, HB_OS , 0 },
{ "VERSION", FS_PUBLIC, HB_VERSION, 0 }
HB_INIT_SYMBOLS_END( Environ__InitSymbols );
HB_INIT_SYMBOLS_END( Environ__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Environ__InitSymbols
#endif

2
harbour/source/rtl/filesys.c
View File

@@ -159,7 +159,7 @@ HB_INIT_SYMBOLS_BEGIN( Files__InitSymbols )
{ "I2BIN" , FS_PUBLIC, HB_I2BIN , 0 },
{ "L2BIN" , FS_PUBLIC, HB_L2BIN , 0 },
{ "W2BIN" , FS_PUBLIC, HB_W2BIN , 0 }
HB_INIT_SYMBOLS_END( Files__InitSymbols );
HB_INIT_SYMBOLS_END( Files__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Files__InitSymbols
#endif

2
harbour/source/rtl/hardcr.c
View File

@@ -72,7 +72,7 @@ HARBOUR HB_HARDCR(void);
HB_INIT_SYMBOLS_BEGIN( HardCR__InitSymbols )
{ "HARDCR", FS_PUBLIC, HB_HARDCR, 0 }
HB_INIT_SYMBOLS_END( HardCR__InitSymbols );
HB_INIT_SYMBOLS_END( HardCR__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup HardCR__InitSymbols
#endif

2
harbour/source/rtl/inkey.c
View File

@@ -90,7 +90,7 @@ HB_INIT_SYMBOLS_BEGIN( INKEY__InitSymbols )
{ "INKEY" , FS_PUBLIC, HB_INKEY , 0 },
{ "LASTKEY" , FS_PUBLIC, HB_LASTKEY , 0 },
{ "NEXTKEY" , FS_PUBLIC, HB_NEXTKEY , 0 },
HB_INIT_SYMBOLS_END( INKEY__InitSymbols );
HB_INIT_SYMBOLS_END( INKEY__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup INKEY__InitSymbols
#endif

2
harbour/source/rtl/math.c
View File

@@ -27,7 +27,7 @@ HARBOUR HB_SQRT( void );
HB_INIT_SYMBOLS_BEGIN( Math__InitSymbols )
{ "MOD" , FS_PUBLIC, HB_MOD , 0 }
HB_INIT_SYMBOLS_END( Math__InitSymbols );
HB_INIT_SYMBOLS_END( Math__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Math__InitSymbols
#endif

2
harbour/source/rtl/mtran.c
View File

@@ -78,7 +78,7 @@ HARBOUR HB_MEMOTRAN(void);
HB_INIT_SYMBOLS_BEGIN( Memotran__InitSymbols )
{ "MEMOTRAN", FS_PUBLIC, HB_MEMOTRAN, 0 }
HB_INIT_SYMBOLS_END( Memotran__InitSymbols );
HB_INIT_SYMBOLS_END( Memotran__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Memotran__InitSymbols
#endif

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

@@ -189,7 +189,7 @@ HARBOUR HB___SETCENTURY( void );
HB_INIT_SYMBOLS_BEGIN( Set__InitSymbols )
{ "__SETCENTURY", FS_PUBLIC, HB___SETCENTURY, 0 },
{ "SET" , FS_PUBLIC, HB_SET , 0 }
HB_INIT_SYMBOLS_END( Set__InitSymbols );
HB_INIT_SYMBOLS_END( Set__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Set__InitSymbols
#endif

2
harbour/source/rtl/setcolor.c
View File

@@ -37,7 +37,7 @@ HARBOUR HB_COLORSELECT( void );
HB_INIT_SYMBOLS_BEGIN( SETCOLOR__InitSymbols )
{ "SETCOLOR" , FS_PUBLIC, HB_SETCOLOR , 0 },
{ "COLORSELECT" , FS_PUBLIC, HB_COLORSELECT, 0 }
HB_INIT_SYMBOLS_END( SETCOLOR__InitSymbols );
HB_INIT_SYMBOLS_END( SETCOLOR__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup SETCOLOR__InitSymbols
#endif

4
harbour/source/rtl/strings.c
View File

@@ -83,7 +83,7 @@ HB_INIT_SYMBOLS_BEGIN( Strings__InitSymbols )
{ "RIGHT" , FS_PUBLIC, HB_RIGHT , 0 },
{ "STRTRAN" , FS_PUBLIC, HB_STRTRAN, 0 },
{ "STUFF" , FS_PUBLIC, HB_STUFF , 0 }
HB_INIT_SYMBOLS_END( Strings__InitSymbols );
HB_INIT_SYMBOLS_END( Strings__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Strings__InitSymbols
#endif
@@ -93,7 +93,7 @@ HB_INIT_SYMBOLS_END( Strings__InitSymbols );
#ifdef HARBOUR_STRICT_CLIPPER_COMPATIBILITY
HB_CALL_ON_STARTUP_BEGIN( Strings_InitInfinity )
infinity = -log( 0 );
HB_CALL_ON_STARTUP_END( Strings_InitInfinity );
HB_CALL_ON_STARTUP_END( Strings_InitInfinity )
#if ! defined(__GNUC__)
#pragma startup Strings_InitInfinity
#endif

2
harbour/source/rtl/tone.c
View File

@@ -105,7 +105,7 @@ HARBOUR HB_TONE(void);
HB_INIT_SYMBOLS_BEGIN( Tone__InitSymbols )
{ "TONE", FS_PUBLIC, HB_TONE, 0 }
HB_INIT_SYMBOLS_END( Tone__InitSymbols );
HB_INIT_SYMBOLS_END( Tone__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Tone__InitSymbols
#endif

2
harbour/source/rtl/transfrm.c
View File

@@ -57,7 +57,7 @@ HARBOUR HB_TRANSFORM( void );
HB_INIT_SYMBOLS_BEGIN( Transfrm__InitSymbols )
{ "TRANSFORM" , FS_PUBLIC, HB_TRANSFORM , 0 }
HB_INIT_SYMBOLS_END( Transfrm__InitSymbols );
HB_INIT_SYMBOLS_END( Transfrm__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Transfrm__InitSymbols
#endif

2
harbour/source/tools/dates2.c
View File

@@ -68,7 +68,7 @@ HB_INIT_SYMBOLS_BEGIN( Dates2__InitSymbols )
{ "ISLEAPYEAR", FS_PUBLIC, HB_ISLEAPYEAR , 0 },
{ "WOM", FS_PUBLIC, HB_WOM , 0 },
{ "WOY", FS_PUBLIC, HB_WOY , 0 }
HB_INIT_SYMBOLS_END( Dates2__InitSymbols );
HB_INIT_SYMBOLS_END( Dates2__InitSymbols )
#if ! defined(__GNUC__)
#pragma startup Dates2__InitSymbols
#endif

2
harbour/source/vm/dynsym.c
View File

@@ -28,7 +28,7 @@
#include "extend.h"
#define SYM_ALLOCATED -1
#define SYM_ALLOCATED ((SYMBOLSCOPE)-1)
typedef struct
{

14
harbour/source/vm/hvm.c
View File

@@ -421,7 +421,7 @@ void hb_vmExecute( BYTE * pCode, PHB_SYMB pSymbols )
break;
case HB_P_POP:
hb_stackPop();
hb_stackPop();
w++;
break;
@@ -770,7 +770,7 @@ void hb_vmDec( void )
void hb_vmDimArray( WORD wDimensions ) /* generates a wDimensions Array and initialize those dimensions from the stack values */
{
HB_ITEM itArray;
WORD w; // , wElements;
WORD w; /* , wElements; */
itArray.type = IT_NIL;
hb_arrayNew( &itArray, ( stack.pPos - wDimensions )->item.asLong.value );
@@ -781,9 +781,11 @@ void hb_vmDimArray( WORD wDimensions ) /* generates a wDimensions Array and init
exit( 1 );
}
// for( w = 0; w < wElements; w++ )
// hb_itemCopy( itArray.item.asArray.value->pItems + w,
// stack.pPos - wElements + w );
/*
for( w = 0; w < wElements; w++ )
hb_itemCopy( itArray.item.asArray.value->pItems + w,
stack.pPos - wElements + w );
*/
for( w = 0; w < wDimensions; w++ )
hb_stackPop();
@@ -1736,7 +1738,7 @@ static void PushAliasedField( PHB_SYMB pSym )
stack.pPos->item.asInteger.decimal = 0;
hb_stackPush();
HB_DEBUG( "PushAliasedField\n" );
}
}
void hb_vmPushLogical( BOOL bValue )
{