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

* fixed -Oodfa warnings

Browse Source 
git-svn-id: branches/hlcgllvm@30350 -
This commit is contained in:
Jonas Maebe 2015-03-28 12:28:21 +00:00
parent 201121d7c9
commit a30f0bc289
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aasmcnst.pas
View File

@ -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;

10
compiler/powerpc64/cpupara.pas
View File

@ -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