paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 15:28:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* simple clean ups after dyn. array conversion

Browse Source
This commit is contained in:
florian 2025-03-21 21:35:39 +01:00
parent 6ba102ee57
commit b20f968454
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/aopt.pas
View File

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