Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-04-12 05:37:10 +00:00
Code Issues Projects Releases Wiki Activity

Remove special-case code for declarations with no declaration specifiers.

Browse Source 
This can now be folded into the regular code path.
This commit is contained in:
Stephen Heumann 2020-01-17 21:30:49 -06:00
parent 08b4f8da3e
commit 0f3bb11d22
1 changed files with 9 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
Parser.pas
View File

@ -3368,35 +3368,16 @@ lUseGlobalPool := useGlobalPool;
storageClass := ident;
typeSpec := wordPtr; {default type specifier is an integer}
{handle a TypeSpecifier/declarator}
if token.kind in declarationSpecifiersElement then begin
if token.kind in declarationSpecifiersElement then
typeFound := true;
DeclarationSpecifiers(declarationSpecifiersElement);
isPascal := pascalsy in functionSpecifiers;
isAsm := asmsy in functionSpecifiers;
isInline := inlinesy in functionSpecifiers;
lisPascal := isPascal;
if not skipDeclarator then begin
variable := nil;
Declarator(typeSpec, variable, variableSpace, doingPrototypes);
if variable = nil then begin
inhibitHeader := false;
if token.kind = semicolonch then
NextToken
else begin
Error(22);
SkipStatement;
end; {else}
goto 1;
end; {if}
end; {if}
end {if}
else begin
isAsm := false;
isPascal := false;
isInline := false;
lisPascal := isPascal;
DeclarationSpecifiers(declarationSpecifiersElement);
isPascal := pascalsy in functionSpecifiers;
isAsm := asmsy in functionSpecifiers;
isInline := inlinesy in functionSpecifiers;
lisPascal := isPascal;
if not skipDeclarator then begin
variable := nil;
Declarator (typeSpec, variable, variableSpace, doingPrototypes);
Declarator(typeSpec, variable, variableSpace, doingPrototypes);
if variable = nil then begin
inhibitHeader := false;
if token.kind = semicolonch then
@ -3407,7 +3388,7 @@ else begin
end; {else}
goto 1;
end; {if}
end;
end; {if}
isPascal := lisPascal;
{make sure variables have some type info}