Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-12-30 14:31:04 +00:00
Code Issues Projects Releases Wiki Activity

Remove an unnecessary instruction from stack check code.

Browse Source 
The intention may have been to set the flags based on the return value, but that is not part of the calling convention and nothing should be relying on it.
This commit is contained in:
Stephen Heumann 2023-01-14 19:09:45 -06:00
parent 03fc7a43b9
commit 40260bb8a0
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Gen.pas
View File

@ -5668,7 +5668,6 @@ procedure GenTree {op: icptr};
GenImplied(m_ply); GenImplied(m_ply);
GenNative(m_sty_dir, direct, stackLoc, nil, 0); GenNative(m_sty_dir, direct, stackLoc, nil, 0);
end; {if} end; {if}
GenImplied(m_tay);
end {if} end {if}
else if (saveStack and (op^.q >= 0)) or (op^.q > 0) then begin else if (saveStack and (op^.q >= 0)) or (op^.q > 0) then begin
stackSaveDepth := stackSaveDepth - 1; stackSaveDepth := stackSaveDepth - 1;