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

hb_StartApp() call used

Browse Source
This commit is contained in:
Antonio Linares
2001-12-22 10:23:00 +00:00
parent 64ca22a4f2
commit 025c90c2d8
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -84,6 +84,8 @@
#include "hbpcode.h"
#include "hbset.h"
BOOL hb_StartApp( void ); /* placed at source/vm/dynlibhb.c */
#ifdef HB_MACRO_STATEMENTS
#include "hbpp.h"
#endif
@@ -4305,7 +4307,8 @@ void HB_EXPORT hb_vmProcessSymbols( PHB_SYMB pModuleSymbols, USHORT uiModuleSymb
hSymScope = ( pModuleSymbols + ui )->cScope;
pNewSymbols->hScope |= hSymScope;
if( ( ! s_pSymStart ) && ( hSymScope & HB_FS_FIRST && ! ( hSymScope & HB_FS_INITEXIT ) ) )
s_pSymStart = pModuleSymbols + ui; /* first public defined symbol to start execution */
if( hb_StartApp() ) /* Are we calling this from the main application ? */
s_pSymStart = pModuleSymbols + ui; /* first public defined symbol to start execution */
if( ( hSymScope == HB_FS_PUBLIC ) || ( hSymScope & ( HB_FS_MESSAGE | HB_FS_MEMVAR | HB_FS_FIRST ) ) )
hb_dynsymNew( pModuleSymbols + ui );