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

2010-08-11 12:28 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/src/rtl/empty.c
    * modified EMPTY() function behavior so now for symbols
      created for functions declared as DYNAMIC it does not
      return .T. but .F. for functions which are registered
      in HVM.
      As side effect above modifications should fix some code
      in RTL and contrib which used !EMPTY() for DYNAMIC function
      symbols.
This commit is contained in:
Przemyslaw Czerpak
2010-08-11 10:28:39 +00:00
parent 4d5c1c8d76
commit 1e1f6a62ae
2 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -16,6 +16,16 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-08-11 12:28 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/rtl/empty.c
* modified EMPTY() function behavior so now for symbols
created for functions declared as DYNAMIC it does not
return .T. but .F. for functions which are registered
in HVM.
As side effect above modifications should fix some code
in RTL and contrib which used !EMPTY() for DYNAMIC function
symbols.
2010-08-10 22:26 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/tests/demoqt.prg
! Fixed: X click or "Exit" option was not working.

3
harbour/src/rtl/empty.c
View File

@@ -109,6 +109,9 @@ HB_FUNC( EMPTY )
case HB_IT_SYMBOL:
pSym = hb_itemGetSymbol( pItem );
if( pSym && ( pSym->scope.value & HB_FS_DEFERRED ) && \
pSym->pDynSym )
pSym = hb_dynsymSymbol( pSym->pDynSym );
hb_retl( pSym == NULL || pSym->value.pFunPtr == NULL );
break;