mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-09-27 18:58:34 +00:00
Do not leave behind detritus from the spinner when using #pragma expand.
This could happen with the following example (under ORCA/Shell with output to the screen only): #include <stdio.h> #pragma expand 1 int main(void) { }
This commit is contained in:
parent
c95d8d9f9b
commit
9cd2807bc8
@ -4418,8 +4418,10 @@ while charKinds[ord(ch)] in [illegal,ch_white,ch_eol] do begin
|
|||||||
end {if}
|
end {if}
|
||||||
else begin {skip white space}
|
else begin {skip white space}
|
||||||
if printMacroExpansions then
|
if printMacroExpansions then
|
||||||
if charKinds[ord(ch)] = ch_eol then
|
if charKinds[ord(ch)] = ch_eol then begin
|
||||||
writeln
|
StopSpin;
|
||||||
|
writeln;
|
||||||
|
end {if}
|
||||||
else
|
else
|
||||||
write(ch);
|
write(ch);
|
||||||
NextCh;
|
NextCh;
|
||||||
|
Loading…
Reference in New Issue
Block a user