diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 89b3c1317f..5a699ef40a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,11 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-05-14 18:33 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/include/hbapi.h + * harbour/src/vm/dynsym.c + + added new function hb_dynsymIsMemvar() + 2010-15:14 07:01 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbide/resources/curlinehilight.png ! Some refinement though not sufficient yet. diff --git a/harbour/include/hbapi.h b/harbour/include/hbapi.h index 96831ece88..674f49d26e 100644 --- a/harbour/include/hbapi.h +++ b/harbour/include/hbapi.h @@ -984,6 +984,7 @@ extern HB_EXPORT PHB_SYMB hb_dynsymFindSymbol( const char * szName ); /* finds extern HB_EXPORT PHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym ); extern HB_EXPORT const char * hb_dynsymName( PHB_DYNS pDynSym ); /* return dynamic symbol name */ extern HB_EXPORT HB_BOOL hb_dynsymIsFunction( PHB_DYNS pDynSym ); +extern HB_EXPORT HB_BOOL hb_dynsymIsMemvar( PHB_DYNS pDynSym ); extern HB_EXPORT int hb_dynsymAreaHandle( PHB_DYNS pDynSym ); /* return work area number bound with given dynamic symbol */ extern HB_EXPORT void hb_dynsymSetAreaHandle( PHB_DYNS pDynSym, int iArea ); /* set work area number for a given dynamic symbol */ #ifdef _HB_API_INTERNAL_ diff --git a/harbour/src/vm/dynsym.c b/harbour/src/vm/dynsym.c index d01e761b12..b3b934a002 100644 --- a/harbour/src/vm/dynsym.c +++ b/harbour/src/vm/dynsym.c @@ -472,6 +472,13 @@ HB_BOOL hb_dynsymIsFunction( PHB_DYNS pDynSym ) return pDynSym->pSymbol->value.pFunPtr != NULL; } +HB_BOOL hb_dynsymIsMemvar( PHB_DYNS pDynSym ) +{ + HB_TRACE(HB_TR_DEBUG, ("hb_dynsymIsMemvar(%p)", pDynSym)); + + return hb_dynsymHandles( pDynSym )->pMemvar != NULL; +} + PHB_ITEM hb_dynsymGetMemvar( PHB_DYNS pDynSym ) { HB_TRACE(HB_TR_DEBUG, ("hb_dynsymGetMemvar(%p)", pDynSym));