if() used at HB_P_FUNCTIONSHORT to avoid a hb_itemClear() call when not needed

2002-01-21 12:51:04 +00:00
parent b15cdade44
commit f07384c78b
1 changed files with 3 additions and 1 deletions
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -594,7 +594,9 @@ void HB_EXPORT hb_vmExecute( const BYTE * pCode, PHB_SYMB pSymbols )
            break;

         case HB_P_FUNCTIONSHORT:
-            hb_itemClear( &hb_stack.Return );
+            if( ( &hb_stack.Return )->type )
+               hb_itemClear( &hb_stack.Return );
+
            hb_vmDo( pCode[ w + 1 ] );
            hb_itemCopy( hb_stackTopItem(), &hb_stack.Return );
            hb_stackPush();