godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed typing of constants, to be more compatible with PCC

Browse Source 
and future standard
This commit is contained in:
ceriel 1987-12-03 11:12:02 +00:00
parent 1c58cd26b9
commit 913ee40148
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lang/cem/cemcom/expr.c
View File

@ -274,7 +274,9 @@ fill_int_expr(ex, ivalue, fund)
ex->ex_type = int_type; ex->ex_type = int_type;
break; break;
case LONG: case LONG:
ex->ex_type = long_type; ex->ex_type =
(ivalue & (1L << (8*long_size - 1))) ? ulong_type
: long_type;
break; break;
case UNSIGNED: case UNSIGNED:
/* We cannot make a test like /* We cannot make a test like
@ -286,10 +288,18 @@ fill_int_expr(ex, ivalue, fund)
answer. We assume that the type "unsigned long" answer. We assume that the type "unsigned long"
is not part of portable C ! is not part of portable C !
*/ */
ex->ex_type = (ivalue & ~max_unsigned) ? long_type : uint_type; ex->ex_type =
(ivalue & ~max_int) ?
( (ivalue & ~max_unsigned) ?
( ivalue & (1L<<(8*long_size-1)) ?
ulong_type : long_type
) : uint_type
) : int_type;
break; break;
case INTEGER: case INTEGER:
ex->ex_type = (ivalue <= max_int) ? int_type : long_type; ex->ex_type = (ivalue <= max_int) ? int_type
: (ivalue & (1L << (8*long_size - 1))) ? ulong_type
: long_type;
break; break;
default: default:
crash("(intexpr) bad fund %s\n", symbol2str(fund)); crash("(intexpr) bad fund %s\n", symbol2str(fund));