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

* corrected usage of CPUNO32BITOPS

Browse Source 
git-svn-id: trunk@25988 -
This commit is contained in:
Jonas Maebe 2013-11-07 15:20:15 +00:00
parent a580751b7e
commit 2bb67ec47d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ncnv.pas
View File

@ -2441,7 +2441,7 @@ implementation
disable the following optimization in fpcdefs.inc. Currently the only CPU for which
this applies is powerpc64
}
{$ifdef CPUNO32BITOPS}
{$ifndef CPUNO32BITOPS}
{ checks whether we can safely remove 64 bit typeconversions
in case range and overflow checking are off, and in case
the result of this node tree is downcasted again to a
@ -2558,14 +2558,14 @@ implementation
end;
end;
end;
{$endif CPUNO32BITOPS}
{$endif not CPUNO32BITOPS}
function ttypeconvnode.simplify(forinline : boolean): tnode;
var
hp: tnode;
{$ifdef CPUNO32BITOPS}
{$ifndef CPUNO32BITOPS}
foundsint: boolean;
{$endif CPUNO32BITOPS}
{$endif not CPUNO32BITOPS}
begin
result := nil;
{ Constant folding and other node transitions to
@ -2739,7 +2739,7 @@ implementation
end;
end;
end;
{$ifdef CPUNO32BITOPS}
{$ifndef CPUNO32BITOPS}
{ must be done before code below, because we need the
typeconversions for ordconstn's as well }
case convtype of
@ -2758,7 +2758,7 @@ implementation
end;
end;
end;
{$endif CPUNO32BITOPS}
{$endif not CPUNO32BITOPS}
end;