Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-01-20 00:29:50 +00:00
Code Issues Projects Releases Wiki Activity

Apply return optimization to struct/union return types.

Browse Source
This commit is contained in:
Stephen Heumann 2022-12-19 20:49:25 -06:00
parent 030f3ff9e1
commit e910eda623
1 changed files with 9 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
Parser.pas
View File

@ -199,6 +199,7 @@ var
declaredTagOrEnumConst: boolean; {was a tag or enum const declared?} declaredTagOrEnumConst: boolean; {was a tag or enum const declared?}
returnCount: integer; {number of return statements} returnCount: integer; {number of return statements}
skipReturn: boolean; {skip the ordinary return at end of function?} skipReturn: boolean; {skip the ordinary return at end of function?}
structReturnVar: identPtr; {static variable to hold a struct/union return value}
{parameter processing variables} {parameter processing variables}
{------------------------------} {------------------------------}
@ -388,7 +389,10 @@ if not doingFunction then begin {if so, finish it off}
scalarType : Gen0t(pc_ret, baseType); scalarType : Gen0t(pc_ret, baseType);
arrayType : ; arrayType : ;
structType , structType ,
unionType , unionType : begin
Gen1Name(pc_lao, 0, structReturnVar^.name);
Gen0t(pc_rev, cgULong);
end;
pointerType : Gen0t(pc_ret, cgULong); pointerType : Gen0t(pc_ret, cgULong);
functionType: ; functionType: ;
enumConst : ; enumConst : ;
@ -829,7 +833,6 @@ var
var var
id: identPtr; {structure id} id: identPtr; {structure id}
size: longint; {size of the struct/union} size: longint; {size of the struct/union}
tk: tokenType; {structure name token}
procedure ReturnValue (tp: baseTypeEnum); procedure ReturnValue (tp: baseTypeEnum);
@ -859,12 +862,7 @@ var
if token.kind <> semicolonch then {if present, evaluate the return value} if token.kind <> semicolonch then {if present, evaluate the return value}
begin begin
if fType^.kind in [structType,unionType] then begin if fType^.kind in [structType,unionType] then begin
tk.kind := ident; Gen1Name(pc_lao, 0, structReturnVar^.name);
tk.class := identifier;
tk.name := @'@struct';
tk.symbolPtr := nil;
id := FindSymbol(tk, variableSpace, false, true);
Gen1Name(pc_lao, 0, id^.name);
size := fType^.size; size := fType^.size;
end {if} end {if}
else if fType^.kind = scalarType then else if fType^.kind = scalarType then
@ -3629,7 +3627,6 @@ var
fnType: typePtr; {function type} fnType: typePtr; {function type}
segType: integer; {segment type} segType: integer; {segment type}
tp: typePtr; {for tracing type lists} tp: typePtr; {for tracing type lists}
tk: tokenType; {work token}
startLine: longint; {line where this declaration starts} startLine: longint; {line where this declaration starts}
declSpecifiers: declSpecifiersRecord; {type & specifiers for the declaration} declSpecifiers: declSpecifiersRecord; {type & specifiers for the declaration}
@ -4122,17 +4119,9 @@ if isFunction then begin
end {if} end {if}
else begin else begin
{set up struct/union area} {set up struct/union area}
if variable^.itype^.ftype^.kind in [structType,unionType] then begin if variable^.itype^.ftype^.kind in [structType,unionType] then
lp := NewSymbol(@'@struct', variable^.itype^.ftype, staticsy, structReturnVar := NewSymbol(@'@struct', variable^.itype^.ftype,
variablespace, declared, false); staticsy, variablespace, declared, false);
tk.kind := ident;
tk.class := identifier;
tk.name := @'@struct';
tk.symbolPtr := nil;
lp := FindSymbol(tk, variableSpace, false, true);
Gen1Name(pc_lao, 0, lp^.name);
Gen2t(pc_str, 0, 0, cgULong);
end; {if}
{generate parameter labels} {generate parameter labels}
if fnType^.overrideKR then if fnType^.overrideKR then
GenParameters(nil) GenParameters(nil)