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

* comment updated

Browse Source 
git-svn-id: trunk@25913 -
This commit is contained in:
florian 2013-11-01 20:22:46 +00:00
parent 1843ed59b5
commit b147693cc5
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ncnv.pas
View File

@ -2437,15 +2437,12 @@ implementation
result:=typecheck_call_helper(convtype); result:=typecheck_call_helper(convtype);
end; end;
{ this is done in case of no cpu64bitaddr define rather than cpu64bitalu, { checks whether we can safely remove 64 bit typeconversions
because whether or not expressions are evaluated as 64 bit by default depends in case range and overflow checking are off, and in case
on cpu64bitaddr. Even on a cpu with a 64 bit alu, a 32 bit operations are the result of this node tree is downcasted again to a
likely to be faster than 64 bit ones. } 8/16/32 bit value afterwards
{ checks whether we can safely remove 64 bit typeconversions } We do this on 64 bit CPUs as well, they benefit from it as well }
{ in case range and overflow checking are off, and in case }
{ the result of this node tree is downcasted again to a }
{ 8/16/32 bit value afterwards }
function checkremove64bittypeconvs(n: tnode; out gotsint: boolean): boolean; function checkremove64bittypeconvs(n: tnode; out gotsint: boolean): boolean;
var var
gotdivmod: boolean; gotdivmod: boolean;