Przeglądaj źródła

* SkipAligns method removed

J. Gareth "Curious Kit" Moreton 1 rok temu
rodzic
commit
dbcab9cc29
1 zmienionych plików z 0 dodań i 20 usunięć
  1. 0 20
      compiler/aoptutils.pas

+ 0 - 20
compiler/aoptutils.pas

@@ -35,10 +35,6 @@ unit aoptutils;
     function MatchOpType(const p : taicpu; type0,type1,type2 : toptype) : Boolean;
 {$endif max_operands>2}
 
-    { skips all alignment fields and returns the next label (or non-align).
-      returns immediately with true if hp is a label }
-    function SkipAligns(hp: tai; out hp2: tai): boolean;
-
     { skips all labels and returns the next "real" instruction }
     function SkipLabels(hp: tai; out hp2: tai): boolean;
 
@@ -70,22 +66,6 @@ unit aoptutils;
       end;
 {$endif max_operands>2}
 
-
-    { skips all alignment fields and returns the next label (or non-align).
-      Returns immediately with True if hp is a label }
-    function SkipAligns(hp: tai; out hp2: tai): boolean;
-      begin
-        while assigned(hp) and
-              (hp.typ in SkipInstr + [ait_label,ait_align]) Do
-          begin
-            { Check that the label is actually live }
-            if (hp.typ = ait_label) and tai_label(hp).labsym.is_used then
-              Break;
-            hp := tai(hp.next);
-          end;
-        SkipAligns := SetAndTest(hp, hp2);
-      end;
-
     { skips all labels and returns the next "real" instruction }
     function SkipLabels(hp: tai; out hp2: tai): boolean;
       begin