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-05-14 18:44:49 +00:00
parent a266066d11
commit fdca410c52
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990514-19:45 CET Eddie Runia
* source/rtl/arrays.c
Patch from David (see below) was overwritten ??
19990514-17:05 CET Eddie Runia
* harbour.y
xVar[ xEl ] += -= *= /= %= ^= added

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

@@ -137,7 +137,7 @@ int hb_arrayGetType( PITEM pArray, ULONG ulIndex )
{
if( IS_ARRAY( pArray ) )
{
if( ulIndex <= ( unsigned ) ArrayLen( pArray ) )
if( ulIndex <= ( unsigned ) hb_arrayLen( pArray ) )
{
PITEM pItem = ( ( PBASEARRAY ) pArray->value.pBaseArray )->pItems + ulIndex - 1;
return pItem->wType;
@@ -399,7 +399,7 @@ int hb_arrayScan( PITEM pArray, PITEM pValue, ULONG ulStart, ULONG ulCount )
break;
case IT_STRING :
iRet = ( hb_itemStrCmp( pValue, pItem ) == 0 );
iRet = ( hb_itemStrCmp( pValue, pItem, FALSE ) == 0 );
break;
}
}
@@ -524,7 +524,7 @@ void hb_arrayCopy( PITEM pSrcArray, PITEM pDstArray, ULONG ulStart,
PITEM hb_arrayClone( PITEM pSrcArray )
{
PITEM pDstArray = hb_newItem( 0 );
PITEM pDstArray = hb_itemNew( 0 );
if ( IS_ARRAY( pSrcArray ) )
{