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

* fixed crash in r30244 (we only have to get a new elementdef if we didn't

Browse Source 
already initialise the location, and we won't get a new elementdef if
    the location is already assigned)

git-svn-id: branches/hlcgllvm@30346 -
This commit is contained in:
Jonas Maebe 2015-03-28 11:33:59 +00:00
parent 25e6eaf07f
commit 5a2609933f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/llvm/nllvmmem.pas
View File

@ -155,9 +155,12 @@ implementation
if (resultdef.typ=floatdef) and if (resultdef.typ=floatdef) and
(tfloatdef(resultdef).floattype=s80real) then (tfloatdef(resultdef).floattype=s80real) then
begin begin
{ avoid uninitialised warning } if not assigned(locref) then
arrptrelementdef:=nil; begin
getarrelementptrdef; { avoid uninitialised warning }
arrptrelementdef:=nil;
getarrelementptrdef;
end;
hreg:=hlcg.getaddressregister(current_asmdata.CurrAsmList,getpointerdef(resultdef)); hreg:=hlcg.getaddressregister(current_asmdata.CurrAsmList,getpointerdef(resultdef));
hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,arrptrelementdef,getpointerdef(resultdef),locref^.base,hreg); hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,arrptrelementdef,getpointerdef(resultdef),locref^.base,hreg);
locref^.base:=hreg; locref^.base:=hreg;