paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 03:28:40 +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

4
compiler/rabase.pas
View File

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