paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed -Oodfa warnings

Browse Source 
git-svn-id: trunk@30500 -
This commit is contained in:
Jonas Maebe 2015-04-08 19:08:39 +00:00
parent af61923dc3
commit 6391794958
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/llvm/nllvmmem.pas
View File

@ -138,10 +138,10 @@ implementation
begin
inherited;
locref:=nil;
{ avoid uninitialised warning }
arrptrelementdef:=nil;
if not arraytopointerconverted then
begin
{ avoid uninitialised warning }
arrptrelementdef:=nil;
{ the result is currently a pointer to left.resultdef (the array type)
-> convert it into a pointer to an element inside this array }
getarrelementptrdef;
@ -156,11 +156,7 @@ implementation
(tfloatdef(resultdef).floattype=s80real) then
begin
if not assigned(locref) then
begin
{ avoid uninitialised warning }
arrptrelementdef:=nil;
getarrelementptrdef;
end;
getarrelementptrdef;
hreg:=hlcg.getaddressregister(current_asmdata.CurrAsmList,getpointerdef(resultdef));
hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,arrptrelementdef,getpointerdef(resultdef),locref^.base,hreg);
locref^.base:=hreg;