浏览代码

* Use new and dispose for asmmodeinfos

Michaël Van Canneyt 4 月之前
父节点
当前提交
328e60c155
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/rabase.pas

+ 2 - 2
compiler/rabase.pas

@@ -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.