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

see changelog

Browse Source
This commit is contained in:
Eddie Runia
1999-06-02 11:36:21 +00:00
parent fc49160f99
commit f450a94369
2 changed files with 23 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990602-12:30 CET Eddie Runia
* source/rtl/arrays.c
memory leakage in arrayClone plugged
19990602-09:30 Alexander Kresin
Updated:
* source/hbpp/hbpp.c - main preprocessor file

33
harbour/source/rtl/arrays.c
View File

@@ -526,10 +526,10 @@ void hb_arrayCopy( PITEM pSrcArray, PITEM pDstArray, ULONG ulStart,
PITEM hb_arrayClone( PITEM pSrcArray )
{
PITEM pDstArray = hb_itemNew( 0 );
PITEM pDstArray = hb_itemNew( 0 );
if ( IS_ARRAY( pSrcArray ) )
{
if ( IS_ARRAY( pSrcArray ) )
{
PBASEARRAY pSrcBaseArray, pDstBaseArray;
ULONG ulCount, ulSrcLen = hb_arrayLen( pSrcArray );
@@ -540,24 +540,29 @@ PITEM hb_arrayClone( PITEM pSrcArray )
pDstBaseArray->wClass = pSrcBaseArray->wClass;
for ( ulCount = 0; ulCount < ulSrcLen; ulCount ++ )
{
PITEM pSrcItem = pSrcBaseArray->pItems + ulCount;
{
PITEM pSrcItem = pSrcBaseArray->pItems + ulCount;
if ( pSrcItem->wType == IT_ARRAY )
hb_itemArrayPut( pDstArray, ulCount + 1, hb_arrayClone( pSrcItem ) );
else
if ( pSrcItem->wType == IT_ARRAY )
{
PITEM pClone = hb_arrayClone( pSrcItem );
hb_itemArrayPut( pDstArray, ulCount + 1, pClone );
hb_itemRelease( pClone );
}
else
hb_itemArrayPut( pDstArray, ulCount + 1, pSrcItem );
}
}
return pDstArray;
}
else
{
}
else
{
PITEM pError = _errNew();
_errPutDescription( pError, szArgumentError );
_errLaunch( pError );
_errRelease( pError );
}
return pDstArray;
}
return pDstArray;
}
/*