bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Allow unary +/- for floating point constants

Browse Source
This commit is contained in:
bbbradsmith
2023-05-02 23:50:01 -04:00
parent a109f475ed
commit a686d1fa8e
1 changed files with 33 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/cc65/expr.c
View File

@@ -1901,14 +1901,22 @@ static void UnaryOp (ExprDesc* Expr)
/* Get the expression */
hie10 (Expr);
/* We can only handle integer types */
/* Check for a constant numeric expression */
if (ED_IsConstAbs (Expr)) {
if (IsClassFloat (Expr->Type)) {
switch (Tok) {
case TOK_MINUS: Expr->V.FVal = FP_D_Sub(FP_D_Make(0.0),Expr->V.FVal); break;
case TOK_PLUS: break;
case TOK_COMP: Error ("Unary ~ operator not valid for floating point constant"); break;
default: Internal ("Unexpected token: %d", Tok);
}
} else {
if (!IsClassInt (Expr->Type)) {
Error ("Argument must have integer type");
Error ("Constant argument must have integer or float type");
ED_MakeConstAbsInt (Expr, 1);
}
/* Check for a constant numeric expression */
if (ED_IsConstAbs (Expr)) {
/* Value is numeric */
switch (Tok) {
case TOK_MINUS: Expr->IVal = -Expr->IVal; break;
@@ -1922,10 +1930,17 @@ static void UnaryOp (ExprDesc* Expr)
/* Limit the calculated value to the range of its type */
LimitExprValue (Expr, 1);
}
} else {
unsigned Flags;
/* If not constant, we can only handle integer types */
if (!IsClassInt (Expr->Type)) {
Error ("Non-constant argument must have integer type");
ED_MakeConstAbsInt (Expr, 1);
}
/* Value is not constant */
LoadExpr (CF_NONE, Expr);