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

2000-07-25 00:23 UTC+0100 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-07-24 22:24:25 +00:00
parent 06fbb5b23b
commit 09534028e0
35 changed files with 124 additions and 265 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
harbour/ChangeLog
View File

@@ -1,3 +1,49 @@
2000-07-25 00:23 UTC+0100 Victor Szakats <info@szelvesz.hu>
* source/rtl/abs.c
* source/rtl/at.c
* source/rtl/chrasc.c
* source/rtl/datec.c
* source/rtl/dateshb.c
* source/rtl/dir.c
* source/rtl/do.c
* source/rtl/idle.c
* source/rtl/left.c
* source/rtl/len.c
* source/rtl/math.c
* source/rtl/minmax.c
* source/rtl/mod.c
* source/rtl/replic.c
* source/rtl/round.c
* source/rtl/setkey.c
* source/rtl/space.c
* source/rtl/str.c
* source/rtl/strcase.c
* source/rtl/strtran.c
* source/rtl/strzero.c
* source/rtl/substr.c
* source/rtl/transfrm.c
* source/rtl/trim.c
* source/rtl/type.c
* source/rtl/val.c
* source/vm/arrayshb.c
* source/vm/classes.c
* source/vm/debug.c
* source/vm/eval.c
* source/vm/hvm.c
* source/vm/memvars.c
* source/vm/runner.c
% This construct:
hb_itemReturn( x );
hb_itemRelease/Clear( x );
converted to this smaller and faster one:
hb_itemRelease/Clear( hb_itemReturn( x ) );
Actually the speed increase and binary size decrease is almost zero,
but the source code is more compact. This snippet is mostly found in
error runtime error branches.
Some local variables could be eliminated this way.
20000724-22:45 GMT+2 Maurilio Longo <maurilio.longo@libero.it>
+ contrib/mysql

16
harbour/source/rdd/dbcmd.c
View File

@@ -2279,8 +2279,7 @@ HB_FUNC( DBRLOCKLIST )
else
hb_errRT_DBCMD( EG_NOTABLE, 2001, NULL, "DBRLOCKLIST" );
hb_itemReturn( pList );
hb_itemRelease( pList );
hb_itemRelease( hb_itemReturn( pList ) );
}
HB_FUNC( DBRUNLOCK )
@@ -2706,8 +2705,7 @@ HB_FUNC( FIELDGET )
if( s_pCurrArea && uiField )
SELF_GETVALUE( ( AREAP ) s_pCurrArea->pArea, uiField, pItem );
hb_itemReturn( pItem );
hb_itemRelease( pItem );
hb_itemRelease( hb_itemReturn( pItem ) );
}
HB_FUNC( FIELDNAME )
@@ -2774,7 +2772,6 @@ HB_FUNC( FIELDPUT )
if( SELF_PUTVALUE( ( AREAP ) s_pCurrArea->pArea, uiIndex, pItem ) == SUCCESS )
{
hb_itemReturn( pItem );
return;
}
}
}
@@ -2815,8 +2812,7 @@ HB_FUNC( HEADER )
pRecSize = hb_itemNew( NULL );
SELF_INFO( ( AREAP ) s_pCurrArea->pArea, DBI_GETHEADERSIZE, pRecSize );
hb_itemReturn( pRecSize );
hb_itemRelease( pRecSize );
hb_itemRelease( hb_itemReturn( pRecSize ) );
}
}
@@ -3301,8 +3297,7 @@ HB_FUNC( RECNO )
pRecNo = hb_itemPutNL( NULL, 0 );
if( s_pCurrArea )
SELF_RECNO( ( AREAP ) s_pCurrArea->pArea, pRecNo );
hb_itemReturn( pRecNo );
hb_itemRelease( pRecNo );
hb_itemRelease( hb_itemReturn( pRecNo ) );
}
HB_FUNC( RECSIZE )
@@ -3313,8 +3308,7 @@ HB_FUNC( RECSIZE )
pRecSize = hb_itemNew( NULL );
SELF_INFO( ( AREAP ) s_pCurrArea->pArea, DBI_GETRECSIZE, pRecSize );
hb_itemReturn( pRecSize );
hb_itemRelease( pRecSize );
hb_itemRelease( hb_itemReturn( pRecSize ) );
}
else
hb_retni( 0 );

5
harbour/source/rtl/abs.c
View File

@@ -78,10 +78,7 @@ HB_FUNC( ABS )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1089, NULL, "ABS" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

5
harbour/source/rtl/at.c
View File

@@ -54,10 +54,7 @@ HB_FUNC( AT )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1108, NULL, "AT" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

10
harbour/source/rtl/chrasc.c
View File

@@ -62,10 +62,7 @@ HB_FUNC( CHR )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1104, NULL, "CHR" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -86,10 +83,7 @@ HB_FUNC( ASC )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1107, NULL, "ASC" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

10
harbour/source/rtl/datec.c
View File

@@ -69,10 +69,7 @@ HB_FUNC( CMONTH )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1116, NULL, "CMONTH" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -99,10 +96,7 @@ HB_FUNC( CDOW )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1117, NULL, "CDOW" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

35
harbour/source/rtl/dateshb.c
View File

@@ -162,10 +162,7 @@ HB_FUNC( CTOD )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1119, NULL, "CTOD" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -183,10 +180,7 @@ HB_FUNC( DTOC )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1118, NULL, "DTOC" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -203,10 +197,7 @@ HB_FUNC( DTOS )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1120, NULL, "DTOS" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -234,10 +225,7 @@ HB_FUNC( YEAR )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1112, NULL, "YEAR" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -258,10 +246,7 @@ HB_FUNC( MONTH )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1113, NULL, "MONTH" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -282,10 +267,7 @@ HB_FUNC( DAY )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1114, NULL, "DAY" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -327,10 +309,7 @@ HB_FUNC( DOW )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1115, NULL, "DOW" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

6
harbour/source/rtl/dir.c
View File

@@ -537,8 +537,7 @@ HB_FUNC( DIRECTORY )
{
HB_TRACE(HB_TR_INFO, ("invalid dirname |%s|\n", dirname));
hb_itemReturn( pDir );
hb_itemRelease( pDir );
hb_itemRelease( hb_itemReturn( pDir ) );
return;
}
@@ -717,8 +716,7 @@ HB_FUNC( DIRECTORY )
HB_TRACE(HB_TR_INFO, ("normal return\n"));
hb_itemReturn( pDir ); /* DIRECTORY() returns an array */
hb_itemRelease( pDir );
hb_itemRelease( hb_itemReturn( pDir ) ); /* DIRECTORY() returns an array */
#endif /* HAVE_POSIX_IO */
}

5
harbour/source/rtl/do.c
View File

@@ -89,10 +89,7 @@ HB_FUNC( DO )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 3012, NULL, "DO" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

3
harbour/source/rtl/idle.c
View File

@@ -187,8 +187,7 @@ HB_FUNC( HB_IDLEDEL )
if( ulID == ( ULONG ) pItem->item.asBlock.value )
{
hb_gcUnlockItem( pItem );
hb_itemReturn( pItem ); /* return a codeblock */
hb_itemClear( pItem );
hb_itemClear( hb_itemReturn( pItem ) ); /* return a codeblock */
--s_uiIdleMaxTask;
if( s_uiIdleMaxTask )

5
harbour/source/rtl/left.c
View File

@@ -59,10 +59,7 @@ HB_FUNC( LEFT )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1124, NULL, "LEFT" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

5
harbour/source/rtl/len.c
View File

@@ -63,9 +63,6 @@ HB_FUNC( LEN )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1111, NULL, "LEN" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

30
harbour/source/rtl/math.c
View File

@@ -121,10 +121,7 @@ HB_FUNC( EXP )
s_internal_math_error = 0;
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
else
hb_retnd( dResult );
@@ -137,10 +134,7 @@ HB_FUNC( EXP )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1096, NULL, "EXP" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -158,10 +152,7 @@ HB_FUNC( LOG )
s_internal_math_error = 0;
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
else
hb_retnd( dResult );
@@ -180,10 +171,7 @@ HB_FUNC( LOG )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1095, NULL, "LOG" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -201,10 +189,7 @@ HB_FUNC( SQRT )
s_internal_math_error = 0;
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
else
hb_retnd( dResult );
@@ -219,10 +204,7 @@ HB_FUNC( SQRT )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1097, NULL, "SQRT" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

10
harbour/source/rtl/minmax.c
View File

@@ -90,10 +90,7 @@ HB_FUNC( MAX )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1093, NULL, "MAX" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -150,10 +147,7 @@ HB_FUNC( MIN )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1092, NULL, "MIN" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

5
harbour/source/rtl/mod.c
View File

@@ -86,10 +86,7 @@ HB_FUNC( MOD )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1085, NULL, "%" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

10
harbour/source/rtl/replic.c
View File

@@ -70,10 +70,7 @@ HB_FUNC( REPLICATE )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_STROVERFLOW, 1234, NULL, "REPLICATE" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
else
@@ -84,10 +81,7 @@ HB_FUNC( REPLICATE )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1106, NULL, "REPLICATE" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

10
harbour/source/rtl/round.c
View File

@@ -68,10 +68,7 @@ HB_FUNC( INT )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1090, NULL, "INT" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -128,9 +125,6 @@ HB_FUNC( ROUND )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1094, NULL, "ROUND" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

7
harbour/source/rtl/setkey.c
View File

@@ -189,9 +189,7 @@ HB_FUNC( SETKEY )
if( pIsActiveResults == NULL || ! HB_IS_LOGICAL( pIsActiveResults ) || hb_itemGetL( pIsActiveResults ) )
{
#endif
PHB_ITEM pAction = hb_itemNew( sk_list_tmp->pAction );
hb_itemReturn( pAction );
hb_itemRelease( pAction );
hb_itemRelease( hb_itemReturn( hb_itemNew( sk_list_tmp->pAction ) ) );
#if defined( HB_EXTENSION )
}
#endif
@@ -298,8 +296,7 @@ HB_FUNC( HB_SETKEYSAVE )
hb_itemRelease( pKeyElements );
}
hb_itemReturn( pKeys );
hb_itemRelease( pKeys );
hb_itemRelease( hb_itemReturn( pKeys ) );
pParam = hb_param( 1, HB_IT_ANY );
if( pParam )

5
harbour/source/rtl/space.c
View File

@@ -66,9 +66,6 @@ HB_FUNC( SPACE )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1105, NULL, "SPACE" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

5
harbour/source/rtl/str.c
View File

@@ -82,10 +82,7 @@ HB_FUNC( STR )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1099, NULL, "STR" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

10
harbour/source/rtl/strcase.c
View File

@@ -101,10 +101,7 @@ HB_FUNC( LOWER )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1103, NULL, "LOWER" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -127,9 +124,6 @@ HB_FUNC( UPPER )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1102, NULL, "UPPER" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

10
harbour/source/rtl/strtran.c
View File

@@ -177,10 +177,7 @@ HB_FUNC( STRTRAN )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1126, NULL, "STRTRAN" ); /* NOTE: Undocumented but existing Clipper Run-time error [vszakats] */
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
else
@@ -188,10 +185,7 @@ HB_FUNC( STRTRAN )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1126, NULL, "STRTRAN" ); /* NOTE: Undocumented but existing Clipper Run-time error [vszakats] */
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

5
harbour/source/rtl/strzero.c
View File

@@ -117,10 +117,7 @@ HB_FUNC( STRZERO )
#endif
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
}

10
harbour/source/rtl/substr.c
View File

@@ -76,10 +76,7 @@ HB_FUNC( SUBSTR )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1110, NULL, "SUBSTR" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
/* NOTE: Exit from inside [vszakats] */
return;
@@ -101,9 +98,6 @@ HB_FUNC( SUBSTR )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1110, NULL, "SUBSTR" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

5
harbour/source/rtl/transfrm.c
View File

@@ -609,10 +609,7 @@ HB_FUNC( TRANSFORM )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1122, NULL, "TRANSFORM" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

15
harbour/source/rtl/trim.c
View File

@@ -89,10 +89,7 @@ HB_FUNC( LTRIM )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1101, NULL, "LTRIM" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -117,10 +114,7 @@ HB_FUNC( RTRIM )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1100, NULL, "TRIM" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -153,10 +147,7 @@ HB_FUNC( ALLTRIM )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 2022, NULL, "ALLTRIM" ); /* NOTE: This appeared in CA-Cl*pper 5.3 [vszakats] */
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
#else
hb_retc( "" );

5
harbour/source/rtl/type.c
View File

@@ -48,10 +48,7 @@ HB_FUNC( TYPE )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1121, NULL, "TYPE" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

5
harbour/source/rtl/val.c
View File

@@ -126,9 +126,6 @@ HB_FUNC( VAL )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1098, NULL, "VAL" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

12
harbour/source/vm/arrayshb.c
View File

@@ -109,10 +109,7 @@ HB_FUNC( AADD )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1123, NULL, "AADD" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
@@ -278,11 +275,6 @@ HB_FUNC( ACLONE )
PHB_ITEM pSrcArray = hb_param( 1, HB_IT_ARRAY );
if( pSrcArray && ! hb_arrayIsObject( pSrcArray ) )
{
PHB_ITEM pDstArray = hb_arrayClone( pSrcArray );
hb_itemReturn( pDstArray ); /* AClone() returns the new array */
hb_itemRelease( pDstArray );
}
hb_itemRelease( hb_itemReturn( hb_arrayClone( pSrcArray ) ) ); /* AClone() returns the new array */
}

31
harbour/source/vm/classes.c
View File

@@ -1198,10 +1198,7 @@ HB_FUNC( __CLSINST )
pSelf = hb_clsInst( ( USHORT ) hb_parni( 1 ), &ppObjects, &uiSize );
if( pSelf )
{
hb_itemReturn( pSelf );
hb_itemRelease( pSelf );
}
hb_itemRelease( hb_itemReturn( pSelf ) );
if( ppObjects )
hb_xfree( ppObjects );
@@ -1522,11 +1519,7 @@ HB_FUNC( __OBJCLONE )
PHB_ITEM pSrcObject = hb_param( 1, HB_IT_OBJECT );
if( pSrcObject )
{
PHB_ITEM pDstObject = hb_arrayClone( pSrcObject );
hb_itemReturn( pDstObject );
hb_itemRelease( pDstObject );
}
hb_itemRelease( hb_itemReturn( hb_arrayClone( pSrcObject ) ) );
else
hb_errRT_BASE( EG_ARG, 3001, NULL, "__OBJCLONE" );
}
@@ -1726,8 +1719,8 @@ HB_FUNC( __CLASSSEL )
}
}
}
hb_itemReturn( pReturn );
hb_itemRelease( pReturn );
hb_itemRelease( hb_itemReturn( pReturn ) );
}
/* to be used from Classes ERROR HANDLER method */
@@ -1769,8 +1762,7 @@ HB_FUNC( __CLS_PARAM )
hb_itemRelease( iTmp );
}
hb_itemReturn( array );
hb_itemRelease( array );
hb_itemRelease( hb_itemReturn( array ) );
}
@@ -1837,10 +1829,7 @@ HB_FUNC( __EVAL )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_NOMETHOD, 1004, NULL, "EVAL" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
hb_itemRelease( pObject );
@@ -1962,8 +1951,7 @@ static HARBOUR hb___msgClsSel( void )
}
}
hb_itemReturn( pReturn );
hb_itemRelease( pReturn );
hb_itemRelease( hb_itemReturn( pReturn ) );
}
@@ -2013,10 +2001,7 @@ static HARBOUR hb___msgEval( void )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_NOMETHOD, 1004, NULL, "EVAL" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

11
harbour/source/vm/debug.c
View File

@@ -100,8 +100,7 @@ HB_FUNC( __VMSTKGLIST )
for( pItem = hb_stack.pItems; pItem <= hb_stack.pPos; pItem++ )
AddToArray( pItem, pReturn, uiPos++ );
hb_itemReturn( pReturn );
hb_itemRelease( pReturn );
hb_itemRelease( hb_itemReturn( pReturn ) );
}
/* $Doc$
@@ -148,10 +147,11 @@ HB_FUNC( __VMSTKLLIST )
USHORT uiPos = 1;
pReturn = hb_itemArrayNew( uiLen ); /* Create a transfer array */
for( pItem = pBase; pItem < hb_stack.pBase; pItem++ )
AddToArray( pItem, pReturn, uiPos++ );
hb_itemReturn( pReturn );
hb_itemRelease( pReturn );
hb_itemRelease( hb_itemReturn( pReturn ) );
}
/* $Doc$
@@ -175,8 +175,7 @@ HB_FUNC( __VMPARLLIST )
for( pItem = pBase + 2; uiLen--; pItem++ )
AddToArray( pItem, pReturn, uiPos++ );
hb_itemReturn( pReturn );
hb_itemRelease( pReturn );
hb_itemRelease( hb_itemReturn( pReturn ) );
}
HB_FUNC( __VMVARLGET )

5
harbour/source/vm/eval.c
View File

@@ -62,10 +62,7 @@ HB_FUNC( EVAL )
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_NOMETHOD, 1004, NULL, "EVAL" );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}

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

@@ -2790,10 +2790,7 @@ void hb_vmDo( USHORT uiParams )
pResult = hb_errRT_BASE_Subst( EG_NOMETHOD, 1004, NULL, pSym->szName );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
else /* it is a function */
@@ -2888,10 +2885,7 @@ void hb_vmSend( USHORT uiParams )
pResult = hb_errRT_BASE_Subst( EG_NOMETHOD, 1004, NULL, pSym->szName );
if( pResult )
{
hb_itemReturn( pResult );
hb_itemRelease( pResult );
}
hb_itemRelease( hb_itemReturn( pResult ) );
}
}
else /* it is a function */

15
harbour/source/vm/memvars.c
View File

@@ -1074,9 +1074,7 @@ HB_FUNC( __MVDBGINFO )
}
else
{
pValue = hb_itemNew( NULL );
hb_itemReturn( pValue ); /* return NIL value */
hb_itemRelease( pValue );
hb_itemRelease( hb_itemReturn( hb_itemNew( NULL ) ) ); /* return NIL value */
if( iCount >= 3 && ISBYREF( 3 ) )
{
@@ -1102,8 +1100,7 @@ HB_FUNC( __MVGET )
{
HB_ITEM retValue;
hb_memvarGetValue( &retValue, pDynVar->pSymbol );
hb_itemReturn( &retValue );
hb_itemClear( &retValue );
hb_itemClear( hb_itemReturn( &retValue ) );
}
else
{
@@ -1126,8 +1123,7 @@ HB_FUNC( __MVGET )
{
HB_ITEM retValue;
hb_memvarGetValue( &retValue, pDynVar->pSymbol );
hb_itemReturn( &retValue );
hb_itemClear( &retValue );
hb_itemClear( hb_itemReturn( &retValue ) );
uiAction = E_DEFAULT;
}
}
@@ -1147,10 +1143,7 @@ HB_FUNC( __MVGET )
HB_ITEM_PTR pRetValue = hb_errRT_BASE_Subst( EG_ARG, 3009, NULL, NULL );
if( pRetValue )
{
hb_itemReturn( pRetValue );
hb_itemRelease( pRetValue );
}
hb_itemRelease( hb_itemReturn( pRetValue ) );
}
}

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

@@ -295,11 +295,8 @@ HB_FUNC( __HRBRUN )
}
}
if ( pRetVal )
{
hb_itemReturn( pRetVal );
hb_itemRelease( pRetVal );
}
if( pRetVal )
hb_itemRelease( hb_itemReturn( pRetVal ) );
}
for( ul = 0; ul < ulFuncs; ul++ )