From b30e1acf1204d9d4b720deb516a1ab28cb4b1567 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Mon, 24 Jul 2000 22:33:29 +0000 Subject: [PATCH] 2000-07-25 00:33 UTC+0100 Victor Szakats --- harbour/ChangeLog | 6 ++++++ harbour/source/rtl/setkey.c | 2 +- harbour/source/vm/memvars.c | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 9d1944eed6..9eba5a9f2e 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,9 @@ +2000-07-25 00:33 UTC+0100 Victor Szakats + + * source/rtl/setkey.c + * source/vm/memvars.c + % Minor optimization in Item returning. + 2000-07-25 00:23 UTC+0100 Victor Szakats * source/rtl/abs.c diff --git a/harbour/source/rtl/setkey.c b/harbour/source/rtl/setkey.c index 656108c34c..f59cfb548e 100644 --- a/harbour/source/rtl/setkey.c +++ b/harbour/source/rtl/setkey.c @@ -189,7 +189,7 @@ HB_FUNC( SETKEY ) if( pIsActiveResults == NULL || ! HB_IS_LOGICAL( pIsActiveResults ) || hb_itemGetL( pIsActiveResults ) ) { #endif - hb_itemRelease( hb_itemReturn( hb_itemNew( sk_list_tmp->pAction ) ) ); + hb_itemReturn( sk_list_tmp->pAction ); #if defined( HB_EXTENSION ) } #endif diff --git a/harbour/source/vm/memvars.c b/harbour/source/vm/memvars.c index ed4423d574..29a16b1c49 100644 --- a/harbour/source/vm/memvars.c +++ b/harbour/source/vm/memvars.c @@ -1074,7 +1074,7 @@ HB_FUNC( __MVDBGINFO ) } else { - hb_itemRelease( hb_itemReturn( hb_itemNew( NULL ) ) ); /* return NIL value */ + hb_ret(); /* return NIL value */ if( iCount >= 3 && ISBYREF( 3 ) ) {