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

Extend.c Changes Per Bruno

Browse Source
This commit is contained in:
Andi Jahja
1999-07-06 14:15:16 +00:00
parent bffaa2f9e9
commit 8898b7a729
1 changed files with 15 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
harbour/source/rtl/extend.c
View File

@@ -163,10 +163,14 @@ int hb_parl( WORD wParam, ... )
if( pItem->type & IT_BYREF )
pItem = stack.pItems + pItem->item.asRefer.value;
if( IS_ARRAY( pItem ) && wArrayIndex )
/* TODO: implement wArrayIndex use when retrieving an array element */
return 0;
if( IS_ARRAY( pItem ) )
{
if( wArrayIndex )
return hb_arrayGetBool( pItem, wArrayIndex );
else
return 0;
}
else if( IS_LOGICAL( pItem ) )
return pItem->item.asLogical.value;
@@ -192,10 +196,13 @@ double hb_parnd( WORD wParam, ... )
if( pItem->type & IT_BYREF )
pItem = stack.pItems + pItem->item.asRefer.value;
if( IS_ARRAY( pItem ) && wArrayIndex )
/* TODO: implement wArrayIndex use when retrieving an array element */
return 0;
if( IS_ARRAY( pItem ) )
{
if( wArrayIndex )
return hb_arrayGetDouble( pItem, wArrayIndex );
else
return 0;
}
else if( IS_INTEGER( pItem ) )
return pItem->item.asInteger.value;