paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 17:10:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

* when explicitly casting a variable, it might be sufficient if it is const_regable

Browse Source 
git-svn-id: trunk@36137 -
This commit is contained in:
florian 2017-05-06 18:47:45 +00:00
parent 52d40bb25b
commit c7ba611bf9
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ncnv.pas
View File

@ -3846,6 +3846,7 @@ implementation
if nf_explicit in flags then
{ check if the result could be in a register }
if (not(tstoreddef(resultdef).is_intregable) and
not(tstoreddef(resultdef).is_const_intregable) and
not(tstoreddef(resultdef).is_fpuregable)) or
((left.resultdef.typ = floatdef) and
(resultdef.typ <> floatdef)) then