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

20000425-11:17 GMT+1

Browse Source
This commit is contained in:
Antonio Linares
2000-04-25 09:17:13 +00:00
parent 36fdbbffd3
commit 476ed76bd5
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -197,6 +197,7 @@ static void hb_vmReleaseLocalSymbols( void ); /* releases the memory of the
static void hb_vmProcessObjSymbols ( void ); /* process Harbour generated OBJ symbols */
void hb_vmProcessBorlandInitSegment( void ); /* process Borland _INIT_ segment functions
when not using Borland startup */
void hb_startup( void ); /* Harbour startup when not using a C compiler startup */
typedef struct
{
@@ -205,9 +206,9 @@ typedef struct
} OBJSYMBOLS, * POBJSYMBOLS; /* structure used from Harbour generated OBJs */
#ifdef __cplusplus
extern "C" POBJSYMBOLS HB_FIRSTSYMBOL, HB_LASTSYMBOL;
extern "C" POBJSYMBOLS hb_firstsymbol, hb_lastsymbol;
#else
extern POBJSYMBOLS HB_FIRSTSYMBOL, HB_LASTSYMBOL;
extern POBJSYMBOLS hb_firstsymbol, hb_lastsymbol;
#endif
#endif
@@ -3839,9 +3840,9 @@ static void hb_vmProcessObjSymbols( void )
if( ! s_bDone )
{
POBJSYMBOLS pObjSymbols = ( POBJSYMBOLS ) &HB_FIRSTSYMBOL;
POBJSYMBOLS pObjSymbols = ( POBJSYMBOLS ) &hb_firstsymbol;
while( pObjSymbols < ( POBJSYMBOLS ) ( &HB_LASTSYMBOL - 1 ) )
while( pObjSymbols < ( POBJSYMBOLS ) ( &hb_lastsymbol - 1 ) )
{
hb_vmProcessSymbols( pObjSymbols->pSymbols, pObjSymbols->wSymbols );
pObjSymbols++;
@@ -3990,6 +3991,10 @@ void hb_vmForceLink( void )
HB_TRACE(HB_TR_DEBUG, ("hb_vmForceLink()"));
HB_FUNCNAME( SYSINIT )();
#ifdef HARBOUR_OBJ_GENERATION
hb_startup();
#endif
}
/* ----------------------------- */