* fixed -Oodfa warningshlcgllvm

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/hlcgllvm@30350 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 7 insertions, 5 deletions

diff --git a/compiler/aasmcnst.pas b/compiler/aasmcnst.pas
index 1f7cc86b09..106abfde2a 100644
--- a/compiler/aasmcnst.pas
+++ b/compiler/aasmcnst.pas
@@ -700,6 +700,8 @@ implementation
 
    function ttai_typedconstbuilder.get_internal_data_section_index(typ: TAsmSectiontype): longint;
      begin
+       { avoid wrong warning by -Oodfa }
+       result:=-1;
        for result:=low(finternal_data_section_info) to high(finternal_data_section_info) do
          if finternal_data_section_info[result].sectype=typ then
            exit;
diff --git a/compiler/powerpc64/cpupara.pas b/compiler/powerpc64/cpupara.pas
index 47d6f6acfc..ce89419855 100644
--- a/compiler/powerpc64/cpupara.pas
+++ b/compiler/powerpc64/cpupara.pas
@@ -409,6 +409,11 @@ begin
   locdef:=nil;
   parashift := 0;
   para.reset;
+  { should the tail be shifted into the most significant bits? }
+  tailpadding:=false;
+  { have we ensured that the next parameter location will be aligned to the
+    next 8 byte boundary? }
+  paraaligned:=false;
   if push_addr_param(varspez, paradef, p.proccalloption) then begin
     paradef := getpointerdef(paradef);
     loc := LOC_REGISTER;
@@ -480,11 +485,6 @@ implemented
   (x)   h) everything else (structures with unions and size<>16, arrays with
            size<>16, ...) is passed "normally" in integer registers
     }
-    { should the tail be shifted into the most significant bits? }
-    tailpadding:=false;
-    { have we ensured that the next parameter location will be aligned to the
-      next 8 byte boundary? }
-    paraaligned:=false;
     { ELFv2 a) }
     if (target_info.abi=abi_powerpc_elfv2) and
        (((paradef.typ=recorddef) and