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

* fixed check for regvar-ability of tempnodes

Browse Source
This commit is contained in:
Jonas Maebe 2004-11-28 19:16:53 +00:00
parent da263529ce
commit 21c7a9db2f
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nbas.pas
View File

@ -684,8 +684,9 @@ implementation
tempinfo^.may_be_in_reg:=
allowreg and
{ temp must fit a single register }
((_restype.def.deftype = floatdef) or
(_size<=TCGSize2Size[OS_INT])) and
(tstoreddef(_restype.def).is_fpuregable or
(tstoreddef(_restype.def).is_intregable and
(_size<=TCGSize2Size[OS_INT]))) and
{ size of register operations must be known }
(def_cgsize(_restype.def)<>OS_NO) and
{ no init/final needed }
@ -1023,7 +1024,10 @@ begin
end.
{
$Log$
Revision 1.90 2004-11-21 17:54:59 peter
Revision 1.91 2004-11-28 19:16:53 jonas
* fixed check for regvar-ability of tempnodes
Revision 1.90 2004/11/21 17:54:59 peter
* ttempcreatenode.create_reg merged into .create with parameter
whether a register is allowed
* funcret_paraloc renamed to funcretloc