浏览代码

* make use of RemoveCurrentP

git-svn-id: trunk@43532 -
florian 5 年之前
父节点
当前提交
f5caa9940b
共有 1 个文件被更改,包括 2 次插入4 次删除
  1. 2 4
      compiler/x86/aoptx86.pas

+ 2 - 4
compiler/x86/aoptx86.pas

@@ -2052,12 +2052,10 @@ unit aoptx86;
                       ->
                         decw    %si             addw    %dx,%si       p
                     }
-                    asml.remove(p);
                     asml.remove(hp2);
-                    p.Free;
                     hp2.Free;
-                    p := hp1;
-                    Result := True;
+                    RemoveCurrentP(p);
+                    Result:=True;
                     Exit;
                   end;
               end;