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

Add native peephole opts for stack repair code.

Browse Source 
These mainly affect cases of multiple successive or nested function calls.
This commit is contained in:
Stephen Heumann 2022-12-10 21:56:16 -06:00
parent 32975b720f
commit 1754607908
1 changed files with 49 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
Native.pas
View File

@ -1779,7 +1779,35 @@ var
operand := operand+1;
Remove(ns+1);
end; {if}
m_ldx_dir:
if npeep[ns+1].opcode = m_txs then {optimize stack repair code}
if npeep[ns+2].opcode = m_tsx then begin
if npeep[ns+3].opcode = m_stx_dir then
if npeep[ns+3].operand = npeep[ns].operand then begin
Remove(ns+2);
Remove(ns+2);
end; {if}
end {if}
else if npeep[ns+2].opcode in
[m_sta_dir,m_sta_abs,m_sta_long,m_sta_indl,m_tyx] then begin
if (npeep[ns+2].opcode <> m_sta_dir)
or (npeep[ns+2].operand <> npeep[ns].operand) then
if npeep[ns+3].opcode = m_tsx then
if npeep[ns+4].opcode = m_stx_dir then
if npeep[ns+4].operand = npeep[ns].operand then begin
Remove(ns+3);
Remove(ns+3);
if npeep[ns+2].opcode = m_tyx then
Remove(ns+2);
end; {if}
end {else if}
else if npeep[ns+2].opcode = m_tsc then begin
npeep[ns].opcode := m_lda_dir;
npeep[ns+1].opcode := m_tcs;
Remove(ns+2);
end; {else if}
m_pei_dir:
if npeep[ns+1].opcode = m_pla then begin
opcode := m_lda_dir;
@ -1954,6 +1982,26 @@ var
if npeep[ns+2].opcode = m_tdc then
Remove(ns+2);
m_tcs:
if npeep[ns+1].opcode = m_tsx then
if npeep[ns+2].opcode = m_stx_dir then begin
npeep[ns+2].opcode := m_sta_dir;
Remove(ns+1);
end; {if}
m_tsx:
if npeep[ns+1].opcode = m_stx_dir then
if npeep[ns+2].opcode = m_pei_dir then
if npeep[ns+3].opcode = m_tsx then
if npeep[ns+4].opcode = m_stx_dir then
if npeep[ns+1].operand = npeep[ns+2].operand then
if npeep[ns+1].operand = npeep[ns+4].operand then
begin
npeep[ns+1].opcode := m_phx;
npeep[ns+1].mode := implied;
Remove(ns+2);
end; {if}
otherwise: ;
end; {case}