paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed restoring of register contents one instruction too far when removing

Browse Source 
a previous unused load

git-svn-id: trunk@1465 -
This commit is contained in:
Jonas Maebe 2005-10-18 09:31:54 +00:00
parent e082117d31
commit 867aaef744
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/i386/csopt386.pas
View File

@ -1526,7 +1526,7 @@ begin
{ the contents it had before this instruction } { the contents it had before this instruction }
if getlastinstruction(startmod,beforestartmod) then if getlastinstruction(startmod,beforestartmod) then
RestoreRegContentsTo(supreg,ptaiprop(beforestartmod.optinfo)^.regs[supreg], RestoreRegContentsTo(supreg,ptaiprop(beforestartmod.optinfo)^.regs[supreg],
startmod,p) startmod,hp1)
else else
ClearRegContentsFrom(supreg,startmod,hp1); ClearRegContentsFrom(supreg,startmod,hp1);
end; end;