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

* fix building on powerpc/powerpc64/mips/mipsel

Browse Source 
git-svn-id: trunk@17352 -
This commit is contained in:
florian 2011-04-20 09:02:29 +00:00
parent 58893a7342
commit 918909c65d
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/ncgcnv.pas
View File

@ -52,7 +52,10 @@ interface
procedure second_char_to_char;override;
procedure second_nothing;override;
procedure pass_generate_code;override;
procedure second_int_to_bool;override;
{$ifdef cpuflags}
{ CPUs without flags need a specific implementation of int -> bool }
procedure second_int_to_bool;override;
{$endif cpuflags}
end;
tcgasnode = class(tasnode)
@ -135,6 +138,7 @@ interface
end;
{$ifdef cpuflags}
procedure tcgtypeconvnode.second_int_to_bool;
var
hregister : tregister;
@ -168,9 +172,15 @@ interface
current_procinfo.CurrFalseLabel:=oldFalseLabel;
exit;
end;
{ though ppc/ppc64 doesn't use the generic code, we need to ifdef here
because the code is included into the powerpc compilers }
{$if defined(POWERPC) or defined(POWERPC64)}
resflags.cr := RS_CR0;
resflags.flag:=F_NE;
{$else defined(POWERPC) or defined(POWERPC64)}
{ Load left node into flag F_NE/F_E }
resflags:=F_NE;
{$endif defined(POWERPC) or defined(POWERPC64)}
case left.location.loc of
LOC_CREFERENCE,
LOC_REFERENCE :
@ -195,6 +205,7 @@ interface
end;
LOC_REGISTER,LOC_CREGISTER :
begin
{$ifndef cpu64bitalu}
if left.location.size in [OS_64,OS_S64] then
begin
hregister:=cg.getintregister(current_asmdata.CurrAsmList,OS_32);
@ -202,6 +213,7 @@ interface
cg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_OR,OS_32,left.location.register64.reghi,hregister);
end
else
{$endif cpu64bitalu}
begin
cg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_OR,left.location.size,left.location.register,left.location.register);
end;
@ -230,6 +242,7 @@ interface
current_procinfo.CurrTrueLabel:=oldTrueLabel;
current_procinfo.CurrFalseLabel:=oldFalseLabel;
end;
{$endif cpuflags}
procedure tcgtypeconvnode.second_cstring_to_pchar;