Ludo's bug fix

This commit is contained in:
Christophe Alexandre 2003-12-01 12:41:46 +00:00
parent 3aa90432c0
commit ffe1c7a3d3
1 changed files with 11 additions and 1 deletions

View File

@ -203,6 +203,11 @@ ablexpr *simpdupexpr( Expr )
freeablexpr( Expr ); freeablexpr( Expr );
ABL_ATOM_VALUE( ExprSimp ) = (char *)AblSimplifyTable[ Oper ][ 1 ]; ABL_ATOM_VALUE( ExprSimp ) = (char *)AblSimplifyTable[ Oper ][ 1 ];
if ( Negative == 1 )
{
return( optimablnotexpr( ExprSimp ) );
}
return( ExprSimp ); return( ExprSimp );
} }
@ -339,6 +344,11 @@ ablexpr *loc_simpablexpr( Expr )
freeablexpr( Expr ); freeablexpr( Expr );
ABL_ATOM_VALUE( ExprSimp ) = (char *)AblSimplifyTable[ Oper ][ 1 ]; ABL_ATOM_VALUE( ExprSimp ) = (char *)AblSimplifyTable[ Oper ][ 1 ];
if ( Negative == 1 )
{
ExprSimp = optimablnotexpr( ExprSimp );
}
return( ExprSimp ); return( ExprSimp );
} }