소스 검색

* Use new instead of getmem

Michaël Van Canneyt 4 달 전
부모
커밋
e33f720fa5
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      compiler/assemble.pas

+ 1 - 1
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;