Browse Source

* simple clean ups after dyn. array conversion

florian 4 months ago
parent
commit
b20f968454
1 changed files with 2 additions and 7 deletions
  1. 2 7
      compiler/aopt.pas

+ 2 - 7
compiler/aopt.pas

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