diff --git a/compiler/rabase.pas b/compiler/rabase.pas
index 0c7d8de2c9..6de2532513 100644
--- a/compiler/rabase.pas
+++ b/compiler/rabase.pas
@@ -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.