paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-25 20:37:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

* the condition for when to use a temp in case of reference var/const

Browse Source 
parameters was inverse
This commit is contained in:
Jonas Maebe 2004-07-15 21:02:05 +00:00
parent 705d5fdd89
commit 7cdc049df1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncal.pas
View File

@ -1894,7 +1894,7 @@ type
para.left := ctemprefnode.create(tempnode); para.left := ctemprefnode.create(tempnode);
addstatement(deletestatement,ctempdeletenode.create(tempnode)); addstatement(deletestatement,ctempdeletenode.create(tempnode));
end end
else if not node_complexity(para.left) > 1 then else if node_complexity(para.left) > 1 then
begin begin
if (cs_regvars in aktglobalswitches) and if (cs_regvars in aktglobalswitches) and
not tvarsym(para.paraitem.parasym).vartype.def.needs_inittable then not tvarsym(para.paraitem.parasym).vartype.def.needs_inittable then
@ -2258,7 +2258,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.241 2004-07-15 19:55:39 jonas Revision 1.242 2004-07-15 21:02:05 jonas
* the condition for when to use a temp in case of reference var/const
parameters was inverse
Revision 1.241 2004/07/15 19:55:39 jonas
+ (incomplete) node_complexity function to assess the complexity of a + (incomplete) node_complexity function to assess the complexity of a
tree tree
+ support for inlining value and const parameters at the node level + support for inlining value and const parameters at the node level