Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-01-02 19:29:21 +00:00
Code Issues Projects Releases Wiki Activity

Allow negated long long constants in cc= defines.

Browse Source 
These are still treated as one token, like other negated numbers specified in cc=(-d...).
This commit is contained in:
Stephen Heumann 2022-02-06 15:33:26 -06:00
parent efb363a04d
commit 5f03dee66a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Scanner.pas
View File

@ -4303,7 +4303,14 @@ repeat
intConstant : token.ival := -token.ival; intConstant : token.ival := -token.ival;
longConstant : token.lval := -token.lval; longConstant : token.lval := -token.lval;
realConstant : token.rval := -token.rval; realConstant : token.rval := -token.rval;
longlongConstant,otherwise: Error(108); longlongConstant: begin
token.qval.lo := ~token.qval.lo;
token.qval.hi := ~token.qval.hi;
token.qval.lo := token.qval.lo + 1;
if token.qval.lo = 0 then
token.qval.hi := token.qval.hi + 1;
end;
otherwise: Error(108);
end; {case} end; {case}
end {if} end {if}
else else