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

* make_not_regable is a matter of code generation so do it in pass_1

Browse Source 
git-svn-id: trunk@26645 -
This commit is contained in:
florian 2014-02-01 13:08:28 +00:00
parent fbcfb63826
commit e3f9982ee1
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ncnv.pas
View File

@ -2285,13 +2285,6 @@ implementation
CGMessage2(type_e_illegal_type_conversion,left.resultdef.typename,resultdef.typename);
end;
{ check if the result could be in a register }
if (not(tstoreddef(resultdef).is_intregable) and
not(tstoreddef(resultdef).is_fpuregable)) or
((left.resultdef.typ = floatdef) and
(resultdef.typ <> floatdef)) then
make_not_regable(left,[ra_addr_regable]);
{ class/interface to class/interface, with checkobject support }
if is_class_or_interface_or_objc(resultdef) and
is_class_or_interface_or_objc(left.resultdef) then
@ -3513,6 +3506,15 @@ implementation
if codegenerror then
exit;
expectloc:=left.expectloc;
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_fpuregable)) or
((left.resultdef.typ = floatdef) and
(resultdef.typ <> floatdef)) then
make_not_regable(left,[ra_addr_regable]);
result:=first_call_helper(convtype);
end;