From 191a684ad80ef9270265271a8a76bf20fb0e58f1 Mon Sep 17 00:00:00 2001 From: Ron Pinkas Date: Tue, 2 Jan 2001 07:36:29 +0000 Subject: [PATCH] 2000-01-01 23:35 UTC+0800 Ron Pinkas * source/compiler/harbour.c * Minor correction in hb_compInlineAdd() --- harbour/ChangeLog | 5 +++++ harbour/source/compiler/harbour.c | 11 +++++++++++ 2 files changed, 16 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f96f9ecb9e..ee1b8188c0 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +2000-01-01 23:35 UTC+0800 Ron Pinkas + + * source/compiler/harbour.c + * Minor correction in hb_compInlineAdd() + 2000-01-01 22:40 UTC+0800 Ron Pinkas * include/hberrors.h diff --git a/harbour/source/compiler/harbour.c b/harbour/source/compiler/harbour.c index 5a1b7f102d..0c72815014 100644 --- a/harbour/source/compiler/harbour.c +++ b/harbour/source/compiler/harbour.c @@ -1080,6 +1080,17 @@ void hb_compFunctionAdd( char * szFunName, HB_SYMBOLSCOPE cScope, int iType ) PINLINE hb_compInlineAdd( char * szFunName ) { PINLINE pInline; + PCOMSYMBOL pSym; + + pSym = hb_compSymbolFind( szFunName, NULL ); + if( ! pSym ) + { + pSym = hb_compSymbolAdd( szFunName, NULL ); + } + if( pSym ) + { + pSym->cScope |= HB_FS_STATIC; + } pInline = hb_compInlineNew( szFunName );