From b5b76b624ccea92e93460a803a403e74b1855ad1 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Mon, 11 Jul 2022 18:42:14 -0500
Subject: [PATCH] Use pei rather than load+push in a few places.

---
 Gen.pas | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/Gen.pas b/Gen.pas
index 8d92111..8288f02 100644
--- a/Gen.pas
+++ b/Gen.pas
@@ -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}