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

extend.c changes by bruno

Browse Source
This commit is contained in:
Andi Jahja
1999-07-08 01:33:45 +00:00
parent 8338e32015
commit afacf0a7ec
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -300,7 +300,8 @@ long hb_parnl( WORD wParam, ... )
return 0;
}
int hb_parinfa( int iParamNum, ULONG uiArrayIndex )
ULONG hb_parinfa( int iParamNum, ULONG uiArrayIndex )
{
PHB_ITEM pArray = hb_param( iParamNum, IT_ARRAY );
@@ -309,12 +310,14 @@ int hb_parinfa( int iParamNum, ULONG uiArrayIndex )
if( ! uiArrayIndex )
return hb_arrayLen( pArray );
else
return hb_arrayGetType( pArray, uiArrayIndex );
// return hb_arrayGetType( pArray, uiArrayIndex );
return (long) hb_arrayGetType( pArray, uiArrayIndex );
}
else
return 0; /* QUESTION: should we raise an error here ? */
}
WORD hb_parinfo( WORD wParam )
{
if( ! wParam )