Explorar o código

* simple clean ups after dyn. array conversion

florian hai 4 meses
pai
achega
b20f968454
Modificáronse 1 ficheiros con 2 adicións e 7 borrados
  1. 2 7
      compiler/aopt.pas

+ 2 - 7
compiler/aopt.pas

@@ -141,9 +141,7 @@ Unit aopt;
       With LabelInfo^ Do
         begin
           If (LabelDif <> 0) Then
-            Begin
-              SetLength(LabelTable, LabelDif);
-            end;
+            SetLength(LabelTable, LabelDif);
           p := BlockStart;
           While (P <> BlockEnd) Do
             Begin
@@ -252,10 +250,7 @@ Unit aopt;
 
     procedure tasmoptimizer.clear;
       begin
-        if assigned(LabelInfo^.labeltable) then
-          begin
-            LabelInfo^.labeltable:=Nil;
-          end;
+        LabelInfo^.labeltable:=Nil;
         LabelInfo^.labeldif:=0;
         LabelInfo^.lowlabel:=high(longint);
         LabelInfo^.highlabel:=0;