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

Simplify address calculation for auto initializers.

Browse Source 
This simplifies the code in the compiler, and also generates better code when not using optimization.
This commit is contained in:
Stephen Heumann 2021-10-11 22:10:38 -05:00
parent 5871820e0c
commit a888206111
1 changed files with 4 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Parser.pas
View File

@ -4276,20 +4276,10 @@ var
{ Load the address of the operand }
begin {LoadAddress}
with id^ do {load the base address}
case storage of
stackFrame: Gen2(pc_lda, lln, 0);
parameter: if itype^.kind = arrayType then
Gen2t(pc_lod, pln, 0, cgULong)
else
Gen2(pc_lda, pln, 0);
external,
global,
private: Gen1Name(pc_lao, 0, name);
otherwise: ;
end; {case}
if disp <> 0 then
Gen1t(pc_inc, long(disp).lsw, cgULong)
if id^.storage = stackFrame then
Gen2(pc_lda, id^.lln, ord(disp))
else
Error(57);
end; {LoadAddress}