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

Andi Jahja <harbour@cbn.net.id>

Browse Source
This commit is contained in:
Andi Jahja
2001-12-28 05:25:37 +00:00
parent 5567822a42
commit 7f28d184c4
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -84,7 +84,9 @@
#include "hbpcode.h"
#include "hbset.h"
BOOL hb_StartApp( void ); /* placed at source/vm/dynlibhb.c */
#if ( defined(HB_OS_WIN_32) && defined(__BORLANDC__) )
BOOL hb_StartApp( void ); /* placed at source/vm/dynlibhb.c */
#endif
#ifdef HB_MACRO_STATEMENTS
#include "hbpp.h"
@@ -4307,7 +4309,9 @@ 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 ) ) )
if( hb_StartApp() ) /* Are we calling this from the main application ? */
#if ( defined(HB_OS_WIN_32) && defined(__BORLANDC__) )
if( hb_StartApp() ) /* Are we calling this from the main application ? */
#endif
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 ) ) )
@@ -4690,4 +4694,4 @@ void HB_EXPORT hb_vmProcessDllSymbols( PHB_SYMB pModuleSymbols, USHORT uiModuleS
hb_dynsymNew( ( pModuleSymbols + ui ) );
}
}
}
}