Allow duplicate typedefs within block scopes (C11).

2022-11-06 21:39:58 -06:00 · 2022-11-06 21:39:58 -06:00 · fa166030fe
parent e168a4d6cb
commit fa166030fe
1 changed files with 2 additions and 1 deletions
--- a/Symbol.pas
+++ b/Symbol.pas
@ -2043,7 +2043,8 @@ if space <> fieldListSpace then begin   {are we defining a function?}
         or ((cs^.state = initialized) and (state = initialized))
         or ((class = typedefsy) <> (cs^.class = typedefsy))
         or ((globalTable <> table) 
-            and ((class <> externsy) or (cs^.class <> externsy))))
+            and (not (class in [externsy,typedefsy])
+               or not (cs^.class in [externsy,typedefsy]))))
         and ((not doingParameters) or (cs^.state <> declared))
         then
         Error(42)