Преглед изворни кода

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

git-svn-id: trunk@33909 -
florian пре 9 година
родитељ
комит
d05222990e
1 измењених фајлова са 1 додато и 2 уклоњено
  1. 1 2
      compiler/aoptobj.pas

+ 1 - 2
compiler/aoptobj.pas

@@ -404,8 +404,7 @@ Unit AoptObj;
         repeat
           while assigned(p) and
                 ((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
                   (tai_Marker(p).Kind in [mark_AsmBlockEnd,mark_NoLineInfoStart,mark_NoLineInfoEnd]))) do
                p := tai(p.next);