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

* avoid esp to be freed

Browse Source 
git-svn-id: trunk@2203 -
This commit is contained in:
florian 2006-01-07 14:32:09 +00:00
parent 155b36dc87
commit a3e3e7e8c5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/cgx86.pas
View File

@ -706,7 +706,8 @@ unit cgx86;
instr:=taicpu.op_reg_reg(op,s,reg1,reg2);
{ Notify the register allocator that we have written a move instruction so
it can try to eliminate it. }
add_move_instruction(instr);
if reg1<>NR_ESP then
add_move_instruction(instr);
list.concat(instr);
end;
{$ifdef x86_64}
@ -1844,7 +1845,6 @@ unit cgx86;
CGmessage(cg_d_stackframe_omited)
else
begin
include(rg[R_INTREGISTER].preserved_by_proc,RS_FRAME_POINTER_REG);
list.concat(Taicpu.op_reg(A_PUSH,tcgsize2opsize[OS_ADDR],NR_FRAME_POINTER_REG));
{ Return address and FP are both on stack }