paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 14:19:31 +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 }
if getlastinstruction(startmod,beforestartmod) then
RestoreRegContentsTo(supreg,ptaiprop(beforestartmod.optinfo)^.regs[supreg],
startmod,p)
startmod,hp1)
else
ClearRegContentsFrom(supreg,startmod,hp1);
end;