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 );