From 252a1e65cbfbdae0dc8e72e3bcc85ab1a914b6ee Mon Sep 17 00:00:00 2001 From: Ryszard Glab Date: Wed, 5 Oct 2005 12:57:22 +0000 Subject: [PATCH] 2005-10-05 15:05 UTC+0100 Ryszard Glab * source/common/expropt2.c * fixed bug in ASC() optimization (when character code > 127) --- harbour/ChangeLog | 4 ++++ harbour/source/common/expropt2.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index a2e2ff768b..3611bec7d2 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2005-10-05 15:05 UTC+0100 Ryszard Glab + * source/common/expropt2.c + * fixed bug in ASC() optimization (when character code > 127) + 2005-10-05 03:08 UTC-0500 David Arturo Macias Corona * harbour/include/hbextern.ch diff --git a/harbour/source/common/expropt2.c b/harbour/source/common/expropt2.c index 2dc1183260..0383097d94 100644 --- a/harbour/source/common/expropt2.c +++ b/harbour/source/common/expropt2.c @@ -1231,7 +1231,7 @@ BOOL hb_compExprReduceASC( HB_EXPR_PTR pSelf, HB_MACRO_DECL ) if( pArg->ExprType == HB_ET_STRING ) { - HB_EXPR_PTR pExpr = hb_compExprNewLong( pArg->value.asString.string[0] ); + HB_EXPR_PTR pExpr = hb_compExprNewLong( (BYTE)pArg->value.asString.string[0] ); hb_compExprFree( pParms, HB_MACRO_PARAM ); hb_compExprFree( pSelf->value.asFunCall.pFunName, HB_MACRO_PARAM );