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

add allowTokensAfterEndif setting for pragma ignore (from MPW ORCA/C IIgs) [WIP]

Browse Source
This commit is contained in:
Kelvin Sherlock 2017-10-26 07:44:50 -04:00
parent 780c639112
commit 3c09d1c4ff
3 changed files with 23 additions and 12 deletions

6
Header.pas

@ -863,7 +863,8 @@ procedure EndInclude {chPtr: ptr};
p_ignore:
WriteByte(ord(skipIllegalTokens)
| (ord(allowLongIntChar) << 1)
| (ord(slashSlashComments) << 3));
| (ord(allowTokensAfterEndif) << 2)
| (ord(allowSlashSlashComments) << 3));
p_segment: begin
for i := 1 to 10 do begin
@ -1496,7 +1497,8 @@ var
i := ReadByte;
skipIllegalTokens := odd(i);
allowLongIntChar := odd(i >> 1);
slashSlashComments := odd(i >> 3);
allowTokensAfterEndif := odd(i >> 2);
allowSlashSlashComments := odd(i >> 3);
end;
p_segment: begin

4
Scanner.asm

@ -329,7 +329,7 @@ lb9 anop
! {characters and return a space. }
! if (not doingstring) and (ch = '/') and (chPtr <> eofPtr)
! and ((chr(chPtr^) = '*')
! or ((chr(chPtr^) = '/') and slashSlashComments))then begin
! or ((chr(chPtr^) = '/') and allowSlashSlashComments))then begin
lda doingstring
jne lc6
lda ch
@ -348,7 +348,7 @@ lc1 move4 chPtr,p1
beq lc1a
cmp #'/'
jne lc6
ldx slashSlashComments
ldx allowSlashSlashComments
jeq lc6
! cch := chr(chPtr^);
lc1a sta cch

25
Scanner.pas

@ -77,11 +77,15 @@ var
pathList: pathRecordPtr; {additional search paths}
printMacroExpansions: boolean; {print the token list?}
reportEOL: boolean; {report eolsy as a token?}
skipIllegalTokens: boolean; {skip flagging illegal tokens in skipped code?}
slashSlashComments: boolean; {allow // comments?}
allowLongIntChar: boolean; {allow long int char constants?}
token: tokenType; {next token to process}
{#pragma ignore flags}
{--------------------}
allowLongIntChar: boolean; {allow long int char constants?}
allowSlashSlashComments: boolean; {allow // comments?}
allowTokensAfterEndif: boolean; {allow tokens after #endif?}
skipIllegalTokens: boolean; {skip flagging illegal tokens in skipped code?}
{---------------------------------------------------------------}
procedure DoDefaultsDotH;
@ -2226,9 +2230,6 @@ var
ip: ifPtr; {used to create a new if record}
begin {DoEndif}
NextToken; {skip the command name}
if token.kind <> eolsy then {check for extra stuff on the line}
Error(11);
if ifList <> nil then begin
ip := ifList; {remove the top if record from the list}
ifList := ip^.next;
@ -2240,6 +2241,10 @@ var
end {if}
else
Error(20);
NextToken; {skip the command name}
if token.kind <> eolsy then {check for extra stuff on the line}
if not allowTokensAfterEndif then
Error(11);
end; {DoEndif}
@ -2767,13 +2772,16 @@ if ch in ['a','d','e','i','l','p','u','w'] then begin
else if token.name^ = 'ignore' then begin
{ ignore bits: }
{ 1 - don't flag illegal tokens in skipped source }
{ 2 - allow long int character constants }
{ 4 - allow tokens after #endif }
{ 8 - allow // comments }
FlagPragmas(p_ignore);
NumericDirective;
val := long(expressionValue).lsw;
skipIllegalTokens := odd(val);
allowLongIntChar := odd(val >> 1);
slashSlashComments := odd(val >> 3);
allowTokensAfterEndif := odd(val >> 2);
allowSlashSlashComments := odd(val >> 3);
if token.kind <> eolsy then
Error(11);
end {else if}
@ -3344,7 +3352,8 @@ begin {InitScanner}
printMacroExpansions := false; {don't print the token list}
skipIllegalTokens := false; {flag illegal tokens in skipped code}
allowLongIntChar := false; {allow long int char constants}
slashSlashComments := true; {allow // comments}
allowTokensAfterEndif := false; {allow tokens after #endif}
allowSlashSlashComments := true; {allow // comments}
foundFunction := false; {no functions found so far}
fileList := nil; {no included files}
gettingFileName := false; {not in GetFileName}