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

some minor changes

Browse Source
This commit is contained in:
Antonio Linares
2001-12-20 11:00:45 +00:00
parent d07f80a0bf
commit 686eb8deb9
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/source/vm/maindllp.c
View File

@@ -92,6 +92,10 @@ BOOL WINAPI HB_EXPORT DllEntryPoint( HINSTANCE hInstance, DWORD fdwReason, PVOID
/* module symbols initialization */
void hb_vmProcessSymbols( PHB_SYMB pModuleSymbols, USHORT uiModuleSymbols )
{
/* notice hb_vmProcessDllSymbols() must be used, and not
* hb_vmProcessSymbols(), as some special symbols pointers
* adjustments are required
*/
FARPROC pProcessSymbols = GetProcAddress( GetModuleHandle( NULL ),
"_hb_vmProcessDllSymbols" );
if( pProcessSymbols )
@@ -103,7 +107,7 @@ void hb_vmProcessSymbols( PHB_SYMB pModuleSymbols, USHORT uiModuleSymbols )
void hb_vmExecute( const BYTE * pCode, PHB_SYMB pSymbols )
{
FARPROC pExecute = GetProcAddress( GetModuleHandle( NULL ), "_hb_vmDllExecute" );
FARPROC pExecute = GetProcAddress( GetModuleHandle( NULL ), "_hb_vmExecute" );
if( pExecute )
( ( VM_DLL_EXECUTE ) pExecute ) ( pCode, pSymbols );