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

improved hb_vmPushString() for speed execution

Browse Source
This commit is contained in:
Antonio Linares
2002-01-21 14:32:26 +00:00
parent 683bcf62c4
commit 316c60f71c
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3756,6 +3756,7 @@ void hb_vmPushPointer( void * pPointer )
void hb_vmPushString( char * szText, ULONG length )
{
char * szTemp;
PHB_ITEM pStackTopItem = hb_stackTopItem();
HB_TRACE(HB_TR_DEBUG, ("hb_vmPushString(%s, %lu)", szText, length));
@@ -3763,9 +3764,9 @@ void hb_vmPushString( char * szText, ULONG length )
hb_xmemcpy( szTemp, szText, length );
szTemp[ length ] = '\0';
( hb_stackTopItem() )->type = HB_IT_STRING;
( hb_stackTopItem() )->item.asString.length = length;
( hb_stackTopItem() )->item.asString.value = szTemp;
pStackTopItem->type = HB_IT_STRING;
pStackTopItem->item.asString.length = length;
pStackTopItem->item.asString.value = szTemp;
hb_stackPush();
}