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

2008-09-08 21:37 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/vm/hashes.c
    ! fixed typo in hash cloning code which caused that references
      was copied to cloned array. Thanks to Mindaugas for example.
This commit is contained in:
Przemyslaw Czerpak
2008-09-08 19:37:49 +00:00
parent ac4c1a5547
commit 5e79459116
2 changed files with 6 additions and 1 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-09-08 21:37 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/vm/hashes.c
! fixed typo in hash cloning code which caused that references
was copied to cloned array. Thanks to Mindaugas for example.
2008-09-08 13:59 UTC-0500 Teo Fonrouge (teo/at/windtelsoft/dot/com)
* include/hbclass.ch
! added missing MESSAGE <MessageName> TO <oObject>

2
harbour/source/vm/hashes.c
View File

@@ -651,7 +651,7 @@ void hb_hashCloneBody( PHB_ITEM pHash, PHB_ITEM pDest, PHB_NESTED_CLONED pCloned
{
PHB_ITEM pValue = &pHash->item.asHash.value->pPairs[ ulPos ].value;
if( HB_IS_BYREF( pValue ) )
hb_itemUnRef( pValue );
pValue = hb_itemUnRef( pValue );
hb_itemCopy( &pDest->item.asHash.value->pPairs[ ulPos ].key,
&pHash->item.asHash.value->pPairs[ ulPos ].key );
pDest->item.asHash.value->ulLen++;