paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-23 14:49: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 if assigned(targetinfos[t]) then
writeln('Warning: Target is already registered!') writeln('Warning: Target is already registered!')
else else
Getmem(targetinfos[t],sizeof(tsysteminfo)); new(targetinfos[t]);
targetinfos[t]^:=r; targetinfos[t]^:=r;
end; end;
@ -648,7 +648,7 @@ var
begin begin
t:=r.id; t:=r.id;
if not assigned(resinfos[t]) then if not assigned(resinfos[t]) then
Getmem(resinfos[t],sizeof(tresinfo)); new(resinfos[t]);
resinfos[t]^:=r; resinfos[t]^:=r;
resinfos[t]^.resourcefileclass:=rcf; resinfos[t]^.resourcefileclass:=rcf;
end; end;
@ -662,7 +662,7 @@ begin
if assigned(arinfos[t]) then if assigned(arinfos[t]) then
writeln('Warning: ar is already registered!') writeln('Warning: ar is already registered!')
else else
Getmem(arinfos[t],sizeof(tarinfo)); new(arinfos[t]);
arinfos[t]^:=r; arinfos[t]^:=r;
end; end;