paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 00:39:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* save ESP after pusha and restore before popa for save all registers

Browse Source
This commit is contained in:
peter 2003-10-03 14:45:37 +00:00
parent 6edadf3df5
commit c63b079d07
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/x86/cgx86.pas
View File

@ -141,7 +141,7 @@ unit cgx86;
uses
globtype,globals,verbose,systems,cutils,
symdef,symsym,defutil,paramgr,procinfo,
symdef,paramgr,procinfo,
rgobj,tgobj,rgcpu;
{$ifndef NOTARGETWIN32}
@ -1544,6 +1544,8 @@ unit cgx86;
procedure tcgx86.g_save_all_registers(list : taasmoutput);
begin
list.concat(Taicpu.Op_none(A_PUSHA,S_L));
tg.GetTemp(list,POINTER_SIZE,tt_noreuse,current_procinfo.save_regs_ref);
cg.a_load_reg_ref(list,OS_ADDR,OS_ADDR,NR_ESP,current_procinfo.save_regs_ref);
end;
@ -1551,6 +1553,8 @@ unit cgx86;
var
href : treference;
begin
cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,current_procinfo.save_regs_ref,NR_ESP);
tg.UnGetTemp(list,current_procinfo.save_regs_ref);
if acchiused then
begin
reference_reset_base(href,NR_ESP,20);
@ -1597,7 +1601,10 @@ unit cgx86;
end.
{
$Log$
Revision 1.70 2003-10-01 20:34:51 peter
Revision 1.71 2003-10-03 14:45:37 peter
* save ESP after pusha and restore before popa for save all registers
Revision 1.70 2003/10/01 20:34:51 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose