* fixed -Oodfa warnings

git-svn-id: branches/hlcgllvm@30350 -

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;

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