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

* Use new instead of getmem

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-17 15:42:08 +01:00
parent 07a2c6b37e
commit e33f720fa5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/assemble.pas
View File

@ -2955,7 +2955,7 @@ Implementation
if assigned(asminfos[t]) then if assigned(asminfos[t]) then
writeln('Warning: Assembler is already registered!') writeln('Warning: Assembler is already registered!')
else else
Getmem(asminfos[t],sizeof(tasminfo)); new(asminfos[t]);
asminfos[t]^:=r; asminfos[t]^:=r;
CAssembler[t]:=c; CAssembler[t]:=c;
end; end;