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

2008-06-10 19:10 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

Browse Source 
* harbour/source/vm/hashfunc.c
    * extended functionality of HB_HSet(), HB_HDel() and HB_HDelAt() 
      to return hash value
This commit is contained in:
Mindaugas Kavaliauskas
2008-06-10 16:08:57 +00:00
parent 66b21a4275
commit 45669c5cc1
2 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-06-10 19:10 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/source/vm/hashfunc.c
* extended functionality of HB_HSet(), HB_HDel() and HB_HDelAt()
to return hash value
2008-06-10 17:44 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* contrib/xhb/Makefile
* contrib/xhb/common.mak

11
harbour/source/vm/hashfunc.c
View File

@@ -133,7 +133,10 @@ HB_FUNC( HB_HSET )
PHB_ITEM pValue = hb_param( 3, HB_IT_ANY );
if( pHash && pKey && pValue )
{
hb_hashAdd( pHash, pKey, pValue );
hb_itemReturn( pHash );
}
else
hb_errRT_BASE( EG_ARG, 1123, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
}
@@ -145,7 +148,9 @@ HB_FUNC( HB_HDEL )
if( pHash && pKey )
{
if( ! hb_hashDel( pHash, pKey ) )
if( hb_hashDel( pHash, pKey ) )
hb_itemReturn( pHash );
else
hb_errRT_BASE( EG_BOUND, 1133, NULL, hb_langDGetErrorDesc( EG_ARRASSIGN ), 2, pHash, pKey );
}
else
@@ -233,7 +238,9 @@ HB_FUNC( HB_HDELAT )
if( pHash && pPos )
{
if( ! hb_hashDelAt( pHash, hb_itemGetNL( pPos ) ) )
if( hb_hashDelAt( pHash, hb_itemGetNL( pPos ) ) )
hb_itemReturn( pHash );
else
hb_errRT_BASE( EG_BOUND, 1133, NULL, hb_langDGetErrorDesc( EG_ARRASSIGN ), 2, pHash, pPos );
}
else