Sfoglia il codice sorgente

* simple clean ups after dyn. array conversion

florian 4 mesi fa
parent
commit
b20f968454
1 ha cambiato i file con 2 aggiunte e 7 eliminazioni
  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;