Report an error if a type name is missing in a _Generic expression.

2021-03-09 17:45:49 -06:00 · 2021-03-09 17:45:49 -06:00 · 4381b97f86
parent 8fd091e119
commit 4381b97f86
1 changed files with 5 additions and 0 deletions
--- a/Expression.pas
+++ b/Expression.pas
@ -1914,6 +1914,11 @@ var
      NextToken;
      typesMatch := false;
      if token.kind <> defaultsy then begin   
+         if not (token.kind in specifierQualifierListElement) then begin
+            Error(26);
+            while not (token.kind in [colonch,commach,rparench,eofsy]) do
+               NextToken;
+            end; {if}
         TypeName;                      {get the type name}
         currentType := typeSpec;
         if (currentType^.size = 0) or (currentType^.kind = functionType) then