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

Use pei rather than load+push in a few places.

Browse Source
This commit is contained in:
Stephen Heumann 2022-07-11 18:42:14 -05:00
parent 607211d38e
commit b5b76b624c
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Gen.pas
View File

@ -5474,8 +5474,7 @@ procedure GenTree {op: icptr};
{save the stack register}
if ((saveStack or checkStack) and (op^.q >= 0)) or (op^.q > 0) then begin
if stackSaveDepth <> 0 then begin
GenNative(m_ldx_dir, direct, stackLoc, nil, 0);
GenImplied(m_phx);
GenNative(m_pei_dir, direct, stackLoc, nil, 0);
extraStackSize := 2;
end; {if}
GenImplied(m_tsx);
@ -5594,8 +5593,7 @@ procedure GenTree {op: icptr};
{save the stack register}
if ((saveStack or checkStack) and (op^.q >= 0)) or (op^.q > 0) then begin
if stackSaveDepth <> 0 then begin
GenNative(m_ldx_dir, direct, stackLoc, nil, 0);
GenImplied(m_phx);
GenNative(m_pei_dir, direct, stackLoc, nil, 0);
extraStackSize := 2;
end; {if}
GenImplied(m_tsx);
@ -7017,8 +7015,7 @@ procedure GenTree {op: icptr};
{restore data bank reg}
if dataBank then begin
GenNative(m_lda_dir, direct, bankLoc, nil, 0);
GenImplied(m_pha);
GenNative(m_pei_dir, direct, bankLoc, nil, 0);
GenImplied(m_plb);
GenImplied(m_plb);
end; {if}