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