Apple-2gs-SW
/
ORCA-C
mirror of https://github.com/byteworksinc/ORCA-C.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fix indentation of a few lines.

This commit is contained in:
Stephen Heumann 2022-01-22 18:21:11 -06:00
parent f4b0993007
commit 5357e65859
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Expression.pas
View File

@ -1906,11 +1906,11 @@ var
codeGeneration := lCodeGeneration and (numErrors = 0);
{get controlling type after conversions}
if expressionType^.kind = functionType then begin
controllingType.size := cgLongSize;
controllingType.saveDisp := 0;
controllingType.qualifiers := [];
controllingType.kind := pointerType;
controllingType.pType := expressionType;
controllingType.size := cgLongSize;
controllingType.saveDisp := 0;
controllingType.qualifiers := [];
controllingType.kind := pointerType;
controllingType.pType := expressionType;
end {if}
else if expressionType^.kind in [structType,unionType] then begin
controllingType.size := expressionType^.size;