From 316c60f71c3f9eb3e028d280e5a4e7a02fc11c01 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Mon, 21 Jan 2002 14:32:26 +0000 Subject: [PATCH] improved hb_vmPushString() for speed execution --- harbour/source/vm/hvm.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index 8e58536b61..b0a2522cf4 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -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(); }