From f07384c78b8a7b977b67247532ef3bd63cac2045 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Mon, 21 Jan 2002 12:51:04 +0000
Subject: [PATCH] if() used at HB_P_FUNCTIONSHORT to avoid a hb_itemClear()
 call when not needed

---
 harbour/source/vm/hvm.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c
index 3c9e36946f..33bef699fc 100644
--- 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();