paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 02:31:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* allocate datastructures with new() instead of getmem() so that they get

Browse Source 
initialised if necessary (such as the targetinfo since the llvmdatalayout
    field is an ansistring)

git-svn-id: branches/hlcgllvm@28472 -
This commit is contained in:
Jonas Maebe 2014-08-19 20:22:00 +00:00
parent 6e09fcb744
commit b36e244e34
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/systems.pas
View File

@ -637,7 +637,7 @@ begin
if assigned(targetinfos[t]) then
writeln('Warning: Target is already registered!')
else
Getmem(targetinfos[t],sizeof(tsysteminfo));
new(targetinfos[t]);
targetinfos[t]^:=r;
end;
@ -648,7 +648,7 @@ var
begin
t:=r.id;
if not assigned(resinfos[t]) then
Getmem(resinfos[t],sizeof(tresinfo));
new(resinfos[t]);
resinfos[t]^:=r;
resinfos[t]^.resourcefileclass:=rcf;
end;
@ -662,7 +662,7 @@ begin
if assigned(arinfos[t]) then
writeln('Warning: ar is already registered!')
else
Getmem(arinfos[t],sizeof(tarinfo));
new(arinfos[t]);
arinfos[t]^:=r;
end;