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

strings as bytes arrays management implemented

Browse Source
This commit is contained in:
Antonio Linares
2002-11-12 13:31:56 +00:00
parent aa5a4b8365
commit 25bcc0730a
1 changed files with 21 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
harbour/source/vm/hvm.c
View File

@@ -2670,6 +2670,27 @@ static void hb_vmArrayPush( void )
return;
}
#ifndef HB_C52_STRICT
if( HB_IS_STRING( pArray ) )
{
BYTE b = 0;
HB_ITEM item;
if( ulIndex > 0 && ulIndex <= pArray->item.asString.length )
b = pArray->item.asString.value[ ulIndex - 1 ];
else
hb_errRT_BASE( EG_BOUND, 1132, NULL, hb_langDGetErrorDesc( EG_ARRACCESS ),
2, pArray, pIndex );
hb_itemInit( &item );
hb_itemPutNI( &item, b );
hb_stackPop();
hb_itemCopy( hb_stackItemFromTop( -1 ), &item );
hb_itemClear( &item );
return;
}
#endif
if( HB_IS_OBJECT( pArray ) && hb_objHasMsg( pArray, "__OpArrayIndex" ) )
{
hb_vmOperatorCall( pArray, pIndex, "__OPARRAYINDEX" );