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

2004-05-06 15:40 UTC+0100 Ryszard Glab <rglab@imid.med.pl>

Browse Source 
* include/hbexpra.c
   * source/common/expropt2.c
   * source/compiler/expropta.c
   * source/macro/macroa.c
      ! Fixed optimalization of AT,ASC,LEN,CHR functions
      in the macro compiler (this fixes GPF reported
      by Alexander)
This commit is contained in:
Ryszard Glab
2004-05-06 13:43:20 +00:00
parent 9093889087
commit 772bb53a06
5 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -8,6 +8,15 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2004-05-06 15:40 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
* include/hbexpra.c
* source/common/expropt2.c
* source/compiler/expropta.c
* source/macro/macroa.c
! Fixed optimalization of AT,ASC,LEN,CHR functions
in the macro compiler (this fixes GPF reported
by Alexander)
2004-05-05 08:08 UTC+0200 Ilias Lazaridis <ilias@lazaridis.com>
* source/codepage/cdpesdos.c
! Whitespace reformatting

2
harbour/include/hbexpra.c
View File

@@ -157,7 +157,7 @@ HB_EXPR_PTR hb_compExprNew( int iType )
void hb_compExprClear( HB_EXPR_PTR pExpr )
{
#if defined( HB_MACRO_SUPPORT )
HB_SYMBOL_UNUSED( pExpr );
pExpr->ExprType = HB_ET_NONE;
#else
if( --pExpr->Counter == 0 )
HB_XFREE( pExpr );

8
harbour/source/common/expropt2.c
View File

@@ -1156,7 +1156,7 @@ BOOL hb_compExprReduceAT( HB_EXPR_PTR pSelf, HB_MACRO_DECL )
hb_compExprFree( pSelf->value.asFunCall.pParms, HB_MACRO_PARAM );
memcpy( pSelf, pReduced, sizeof( HB_EXPR ) );
hb_xfree( pReduced );
hb_compExprClear( pReduced );
return TRUE;
}
else
@@ -1212,7 +1212,7 @@ BOOL hb_compExprReduceCHR( HB_EXPR_PTR pSelf, HB_MACRO_DECL )
hb_compExprFree( pParms, HB_MACRO_PARAM );
hb_compExprFree( pSelf->value.asFunCall.pFunName, HB_MACRO_PARAM );
memcpy( pSelf, pExpr, sizeof( HB_EXPR ) );
hb_xfree( pExpr );
hb_compExprClear( pExpr );
return TRUE;
}
@@ -1231,7 +1231,7 @@ BOOL hb_compExprReduceLEN( HB_EXPR_PTR pSelf, HB_MACRO_DECL )
hb_compExprFree( pParms, HB_MACRO_PARAM );
hb_compExprFree( pSelf->value.asFunCall.pFunName, HB_MACRO_PARAM );
memcpy( pSelf, pExpr, sizeof( HB_EXPR ) );
hb_xfree( pExpr );
hb_compExprClear( pExpr );
return TRUE;
}
return FALSE;
@@ -1249,7 +1249,7 @@ BOOL hb_compExprReduceASC( HB_EXPR_PTR pSelf, HB_MACRO_DECL )
hb_compExprFree( pParms, HB_MACRO_PARAM );
hb_compExprFree( pSelf->value.asFunCall.pFunName, HB_MACRO_PARAM );
memcpy( pSelf, pExpr, sizeof( HB_EXPR ) );
hb_xfree( pExpr );
hb_compExprClear( pExpr );
return TRUE;
}
return FALSE;

2
harbour/source/compiler/expropta.c
View File

@@ -5,6 +5,6 @@
/* hbexpra.c is also included from ../macro/macro.c
* However it produces a slighty different code if used in
* macro compiler (there is an additional parameter passed to some functions)
* 1.13 - ignore this magic number - this is used to force compilation
* 1.14 - ignore this magic number - this is used to force compilation
*/
#include "hbexpra.c"

2
harbour/source/macro/macroa.c
View File

@@ -5,7 +5,7 @@
/* hbexpra.c is also included from ../compiler/expropta.c
* However it produces a slighty different code if used in
* macro compiler (there is an additional parameter passed to some functions)
* 1.13 - ignore this magic number - this is used to force compilation
* 1.14 - ignore this magic number - this is used to force compilation
*/
#define HB_MACRO_SUPPORT