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

Fully prohibit redefinition of predefined macros.

Browse Source 
Code like the following was previously being allowed:

#define __STDC__ /* no tokens */
This commit is contained in:
Stephen Heumann 2022-02-13 18:10:45 -06:00
parent 5d7c002819
commit c169c2bf92
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Scanner.pas
View File

@ -2552,6 +2552,8 @@ var
mPtr^.algorithm := 0; mPtr^.algorithm := 0;
if IsDefined(mPtr^.name) then begin if IsDefined(mPtr^.name) then begin
mf := macroFound; mf := macroFound;
if mf^.readOnly then
goto 3;
if mf^.parameters = mPtr^.parameters then begin if mf^.parameters = mPtr^.parameters then begin
tk1 := mf^.tokens; tk1 := mf^.tokens;
tk2 := mPtr^.tokens; tk2 := mPtr^.tokens;