Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-08-15 07:27:27 +00:00
Code Issues Projects Releases Wiki Activity

Add the predefined macro __ORCAC_HAS_LONG_LONG__.

Browse Source 
This allows headers or other code to test for the presence of this feature.
This commit is contained in:
Stephen Heumann
2021-02-17 14:41:09 -06:00
parent b4604e079e
commit 6bb91d20e5
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Scanner.pas
View File

@@ -1491,7 +1491,7 @@ if macro^.readOnly then begin {handle special macros}
5: begin {__STDC__} 5: begin {__STDC__}
token.kind := intConst; {__ORCAC__} token.kind := intConst; {__ORCAC__}
token.numString := @oneStr; {__STDC_NO_...__} token.numString := @oneStr; {__STDC_NO_...__}
token.class := intConstant; token.class := intConstant; {__ORCAC_HAS_LONG_LONG__}
token.ival := 1; token.ival := 1;
oneStr := '1'; oneStr := '1';
tokenStart := @oneStr[1]; tokenStart := @oneStr[1];
@@ -3863,6 +3863,15 @@ mp^.algorithm := 6;
bp := pointer(ord4(macros) + hash(mp^.name)); bp := pointer(ord4(macros) + hash(mp^.name));
mp^.next := bp^; mp^.next := bp^;
bp^ := mp; bp^ := mp;
new(mp); {__ORCAC_HAS_LONG_LONG__}
mp^.name := @'__ORCAC_HAS_LONG_LONG__';
mp^.parameters := -1;
mp^.tokens := nil;
mp^.readOnly := true;
mp^.algorithm := 5;
bp := pointer(ord4(macros) + hash(mp^.name));
mp^.next := bp^;
bp^ := mp;
new(mp); {__STDC_NO_ATOMICS__} new(mp); {__STDC_NO_ATOMICS__}
mp^.name := @'__STDC_NO_ATOMICS__'; mp^.name := @'__STDC_NO_ATOMICS__';
mp^.parameters := -1; mp^.parameters := -1;