diff --git a/compiler/assemble.pas b/compiler/assemble.pas
index 0e250ccdbf..618543040c 100644
--- a/compiler/assemble.pas
+++ b/compiler/assemble.pas
@@ -2955,7 +2955,7 @@ Implementation
         if assigned(asminfos[t]) then
           writeln('Warning: Assembler is already registered!')
         else
-          Getmem(asminfos[t],sizeof(tasminfo));
+          new(asminfos[t]);
         asminfos[t]^:=r;
         CAssembler[t]:=c;
       end;