paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 11:27:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use the 'leave' instruction on 80186+

Browse Source 
git-svn-id: trunk@24378 -
This commit is contained in:
nickysn 2013-04-29 19:45:39 +00:00
parent d4c7afbfe8
commit 7c0679efdb
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/i8086/cgcpu.pas
View File

@ -889,10 +889,13 @@ unit cgcpu;
end
else
begin
list.concat(Taicpu.op_reg_reg(A_MOV, S_W, NR_BP, NR_SP));
list.concat(Taicpu.op_reg(A_POP, S_W, NR_BP));
{todo: use LEAVE for 286+}
{list.concat(Taicpu.op_none(A_LEAVE,S_NO));}
if current_settings.cputype < cpu_186 then
begin
list.concat(Taicpu.op_reg_reg(A_MOV, S_W, NR_BP, NR_SP));
list.concat(Taicpu.op_reg(A_POP, S_W, NR_BP));
end
else
list.concat(Taicpu.op_none(A_LEAVE,S_NO));
end;
list.concat(tai_regalloc.dealloc(current_procinfo.framepointer,nil));
end;