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

Allow for function-like macros taking no parameters.

Browse Source 
This was broken by commit 06a3719304.
This commit is contained in:
Stephen Heumann 2020-01-25 19:44:29 -06:00
parent fe6c410271
commit c514c109ab
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Scanner.pas
View File

@ -1394,6 +1394,10 @@ if macro^.parameters >= 0 then begin {find the values of the parameters}
done := false;
end; {if}
until done;
if paramCount = 1 then
if macro^.parameters = 0 then
if parms^.tokens = nil then
paramCount := 0;
if paramCount <> macro^.parameters then
Error(14);
if token.kind <> rparench then begin {insist on a closing ')'}