From 96bec69f7283bc10f98fa0ce1c6ccd6025c61b85 Mon Sep 17 00:00:00 2001 From: Ryszard Glab Date: Sun, 19 Sep 1999 13:50:10 +0000 Subject: [PATCH] ChangeLog 19990919-15:45 GMT+2 --- harbour/ChangeLog | 5 +++++ harbour/source/vm/hvm.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index e456c05079..9c4ccf7991 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +19990919-15:45 GMT+2 Ryszard Glab + + *source/vm/hvm.c + * added checking if starting symbol name points to a function + 19990919-14:25 GMT+2 Ryszard Glab *soource/rtl/console.c diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index 12285e3ba9..c4f27542ad 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -201,14 +201,14 @@ int main( int argc, char * argv[] ) { PHB_DYNS pDynSym = hb_dynsymFind( "_APPMAIN" ); - if( pDynSym ) + if( pDynSym && pDynSym->pSymbol->pFunPtr ) s_pSymStart = pDynSym->pSymbol; #ifdef HARBOUR_START_PROCEDURE else { pDynSym = hb_dynsymFind( HARBOUR_START_PROCEDURE ); - if( pDynSym ) + if( pDynSym && pDynSym->pSymbol->pFunPtr ) s_pSymStart = pDynSym->pSymbol; else hb_errInternal( 9999, "Can\'t locate the starting procedure: \'%s\'", HARBOUR_START_PROCEDURE, NULL );