diff options
-rw-r--r-- | compiler/aasmcnst.pas | 2 | ||||
-rw-r--r-- | compiler/powerpc64/cpupara.pas | 10 |
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 |