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

    a previous unused load

git-svn-id: trunk@1465 -

compiler/i386/csopt386.pas

@@ -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;