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

source/vm/itemapi.c

Browse Source 
* subdivision of the function hb_itemUnRef() in
       hb_itemUnRef() and hb_itemUnRefOnce().
This commit is contained in:
Walter Negro
2002-04-14 04:38:53 +00:00
parent 2d2663d1f0
commit 6fd6174039
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
harbour/source/vm/itemapi.c
View File

@@ -919,6 +919,20 @@ PHB_ITEM hb_itemUnRef( PHB_ITEM pItem )
HB_TRACE(HB_TR_DEBUG, ("hb_itemUnRef(%p)", pItem));
while( HB_IS_BYREF( pItem ) )
pItem = hb_itemUnRefOnce( pItem );
return pItem;
}
/* Internal API, not standard Clipper */
/* De-references item passed by the reference */
PHB_ITEM hb_itemUnRefOnce( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemUnRefOnce(%p)", pItem));
if( HB_IS_BYREF( pItem ) )
{
if( HB_IS_MEMVAR( pItem ) )
{
@@ -958,6 +972,7 @@ PHB_ITEM hb_itemUnRef( PHB_ITEM pItem )
return pItem;
}
/* Internal API, not standard Clipper */
/* Check whether two strings are equal (0), smaller (-1), or greater (1) */