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

* fix warnings when compiling the compiler with DFA optimizer enabled on PowerPC

Browse Source 
git-svn-id: trunk@28501 -
This commit is contained in:
Károly Balogh 2014-08-20 14:31:36 +00:00
parent 0cf7357ee2
commit 6122db7d40
3 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/powerpc/nppcadd.pas
View File

@ -73,6 +73,7 @@ interface
tmpreg : tregister;
useconst : boolean;
begin
tmpreg:=NR_NO;
// get the constant on the right if there is one
if (left.location.loc = LOC_CONSTANT) then
swapleftright;
@ -512,6 +513,8 @@ interface
op1 := A_MULLW;
op2 := A_MULHWU
end;
else
internalerror(2014082040);
end;
end;
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(op1,location.register64.reglo,
@ -663,6 +666,8 @@ interface
cgop := OP_OR;
andn:
cgop := OP_AND;
else
internalerror(2014082041);
end;
if (left.location.loc = LOC_CONSTANT) then
swapleftright;

1
compiler/powerpc/nppcmat.pas
View File

@ -419,6 +419,7 @@ implementation
op: tasmop;
begin
src1:=NR_NO;
secondpass(left);
if is_64bit(left.resultdef) then
begin

2
compiler/systems/t_morph.pas
View File

@ -205,13 +205,13 @@ var
success : boolean;
StripStr: string[40];
begin
StripStr:='';
if not(cs_link_nolink in current_settings.globalswitches) then
Message1(exec_i_linking,current_module.exefilename);
if UseVLink then
begin
StripStr:='';
if (cs_link_strip in current_settings.globalswitches) then
StripStr:='-s -P __abox__';
end;