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

2003-11-06 11:00 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2003-11-06 08:02:05 +00:00
parent ad7fe25448
commit 2ab10243ff
2 changed files with 29 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-11-06 11:00 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* source/vm/hvm.c
* RDD initialization added ( made by Przemyslaw Czerpak ) - I forgot to
upload it yesterday.
2003-11-05 23:35 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* makefile.bc
* makefile.nt

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

@@ -283,6 +283,29 @@ ULONG _System OS2TermHandler(PEXCEPTIONREPORTRECORD p1,
PVOID pv);
#endif
void hb_vmDoInitRdd( void )
{
PHB_DYNS pDynSym;
int i;
char * rddName[] = { "DBFDBTINIT",
"DBFFPTINIT",
"DBFNTXINIT",
"DBFCDXINIT",
"RDDINIT",
NULL };
for ( i = 0; rddName[i]; i++ )
{
pDynSym = hb_dynsymFind( rddName[i] );
if( pDynSym && pDynSym->pSymbol->pFunPtr )
{
hb_vmPushSymbol( pDynSym->pSymbol );
hb_vmPushNil();
hb_vmDo(0);
}
}
}
/* application entry point */
void HB_EXPORT hb_vmInit( BOOL bStartMainProc )
@@ -343,6 +366,7 @@ void HB_EXPORT hb_vmInit( BOOL bStartMainProc )
* because INIT function can use static variables
*/
hb_vmDoInitStatics();
hb_vmDoInitRdd();
hb_vmDoInitFunctions(); /* process defined INIT functions */
/* This is undocumented CA-Clipper, if there's a function called _APPMAIN