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

* fixed 64 bit boolean operations on ppc32 (fixes tests/test/taddbool)

Browse Source 
git-svn-id: trunk@20521 -
This commit is contained in:
Jonas Maebe 2012-03-15 18:51:03 +00:00
parent 9f512e231e
commit 639aa0c0c2
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/ppcgen/ngppcadd.pas
View File

@ -179,17 +179,20 @@ implementation
cmpop:=false;
if (torddef(left.resultdef).ordtype in [pasbool8,bool8bit]) or
(torddef(right.resultdef).ordtype in [pasbool8,bool8bit]) then
cgsize:=OS_8
cgsize:=OS_8
else if (torddef(left.resultdef).ordtype in [pasbool16,bool16bit]) or
(torddef(right.resultdef).ordtype in [pasbool16,bool16bit]) then
cgsize:=OS_16
else if (torddef(left.resultdef).ordtype in [pasbool32,bool32bit]) or
(torddef(right.resultdef).ordtype in [pasbool32,bool32bit]) then
cgsize:=OS_32
else
if (torddef(left.resultdef).ordtype in [pasbool16,bool16bit]) or
(torddef(right.resultdef).ordtype in [pasbool16,bool16bit]) then
cgsize:=OS_16
else
cgsize:=OS_32;
cgsize:=OS_64;
if ((cs_full_boolean_eval in current_settings.localswitches) and
not(nf_short_bool in flags)) or
(nodetype in [unequaln,ltn,lten,gtn,gten,equaln,xorn]) then
if {$ifndef cpu64bitalu}(cgsize<>OS_64) and{$endif}
(((cs_full_boolean_eval in current_settings.localswitches) and
not(nf_short_bool in flags)) or
(nodetype in [unequaln,ltn,lten,gtn,gten,equaln,xorn])) then
begin
if left.nodetype in [ordconstn,realconstn] then
swapleftright;