Jelajahi Sumber

* while updating used register sets, all labels can/must be skipped

git-svn-id: trunk@33909 -
florian 9 tahun lalu
induk
melakukan
d05222990e
1 mengubah file dengan 1 tambahan dan 2 penghapusan
  1. 1 2
      compiler/aoptobj.pas

+ 1 - 2
compiler/aoptobj.pas

@@ -404,8 +404,7 @@ Unit AoptObj;
         repeat
         repeat
           while assigned(p) and
           while assigned(p) and
                 ((p.typ in (SkipInstr - [ait_RegAlloc])) or
                 ((p.typ in (SkipInstr - [ait_RegAlloc])) or
-                 ((p.typ = ait_label) and
-                  labelCanBeSkipped(tai_label(p))) or
+                 (p.typ = ait_label) or
                  ((p.typ = ait_marker) and
                  ((p.typ = ait_marker) and
                   (tai_Marker(p).Kind in [mark_AsmBlockEnd,mark_NoLineInfoStart,mark_NoLineInfoEnd]))) do
                   (tai_Marker(p).Kind in [mark_AsmBlockEnd,mark_NoLineInfoStart,mark_NoLineInfoEnd]))) do
                p := tai(p.next);
                p := tai(p.next);