* use InstructionLoadsFromReg instead of RegInInstruction when moving register deallocations

git-svn-id: trunk@33541 -
2025-04-23 15:31:41 +02:00 · 2016-04-21 19:51:05 +00:00 · 2016-04-21 19:51:05 +00:00 · 4ac3953c34
commit 4ac3953c34
parent 046b148f5f
1 changed files with 1 additions and 1 deletions
--- a/compiler/aopt.pas
+++ b/compiler/aopt.pas
@ -189,7 +189,7 @@ Unit aopt;
                        hp2 := nil;
                        While Not(assigned(FindRegAlloc(tai_regalloc(p).Reg, tai(hp1.Next)))) And
                              GetNextInstruction(hp1, hp1) And
-                              RegInInstruction(tai_regalloc(p).Reg, hp1) Do
+                              InstructionLoadsFromReg(tai_regalloc(p).Reg, hp1) Do
                          hp2 := hp1;
                        { move deallocations }
                        If hp2 <> nil Then