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

* Use new and dispose for asmmodeinfos

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-18 15:44:17 +01:00
parent 2cd92ee792
commit 328e60c155
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/rabase.pas
View File

@ -64,7 +64,7 @@ unit rabase;
if assigned(asmmodeinfos[t]) then if assigned(asmmodeinfos[t]) then
writeln('Warning: Asmmode is already registered!') writeln('Warning: Asmmode is already registered!')
else else
Getmem(asmmodeinfos[t],sizeof(tasmmodeinfo)); new(asmmodeinfos[t]);
asmmodeinfos[t]^:=r; asmmodeinfos[t]^:=r;
end; end;
@ -101,7 +101,7 @@ finalization
for asmmode:=low(tasmmode) to high(tasmmode) do for asmmode:=low(tasmmode) to high(tasmmode) do
if assigned(asmmodeinfos[asmmode]) then if assigned(asmmodeinfos[asmmode]) then
begin begin
freemem(asmmodeinfos[asmmode],sizeof(tasmmodeinfo)); dispose(asmmodeinfos[asmmode]);
asmmodeinfos[asmmode]:=nil; asmmodeinfos[asmmode]:=nil;
end; end;
end. end.