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

Write out long long constants when using #pragma expand.

Browse Source
This commit is contained in:
Stephen Heumann 2021-03-11 23:20:14 -06:00
parent dae27757d3
commit 03f267ac02
1 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
Scanner.pas
View File

@ -350,6 +350,21 @@ procedure TermHeader; extern;
{ closes any open symbol file, and should take no action if } { closes any open symbol file, and should take no action if }
{ called twice. } { called twice. }
function CnvLLX (val: longlong): extended; extern;
{ convert a long long to a real number }
{ }
{ parameters: }
{ val - the long long value }
function CnvULLX (val: longlong): extended; extern;
{ convert an unsigned long long to a real number }
{ }
{ parameters: }
{ val - the unsigned long long value }
{-- Scanner support --------------------------------------------} {-- Scanner support --------------------------------------------}
procedure CheckDelimiters (var name: pString); procedure CheckDelimiters (var name: pString);
@ -744,6 +759,7 @@ label 1;
var var
ch: char; {work character} ch: char; {work character}
i: integer; {loop counter} i: integer; {loop counter}
str: string[23]; {temp string}
begin {PrintToken} begin {PrintToken}
case token.kind of case token.kind of
@ -759,8 +775,17 @@ case token.kind of
longConst, longConst,
ulongConst: write(token.lval:1); ulongConst: write(token.lval:1);
longlongConst, longlongConst: begin
ulonglongConst: write('0x...'); {TODO implement} str := cnvds(CnvLLX(token.qval),1,1);
str[0] := chr(ord(str[0]) - 2);
write(str);
end;
ulonglongConst: begin
str := cnvds(CnvULLX(token.qval),1,1);
str[0] := chr(ord(str[0]) - 2);
write(str);
end;
compConst, compConst,
floatConst, floatConst,