Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-08-14 16:27:34 +00:00
Code Issues Projects Releases Wiki Activity

Fix indentation of a few lines.

Browse Source
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
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); codeGeneration := lCodeGeneration and (numErrors = 0);
{get controlling type after conversions} {get controlling type after conversions}
if expressionType^.kind = functionType then begin if expressionType^.kind = functionType then begin
controllingType.size := cgLongSize; controllingType.size := cgLongSize;
controllingType.saveDisp := 0; controllingType.saveDisp := 0;
controllingType.qualifiers := []; controllingType.qualifiers := [];
controllingType.kind := pointerType; controllingType.kind := pointerType;
controllingType.pType := expressionType; controllingType.pType := expressionType;
end {if} end {if}
else if expressionType^.kind in [structType,unionType] then begin else if expressionType^.kind in [structType,unionType] then begin
controllingType.size := expressionType^.size; controllingType.size := expressionType^.size;