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

+ set node complexity of const. string nodes to 1

Browse Source 
+ better approximation if a tmp. location for a parameter when inlining can be omitted

git-svn-id: trunk@11635 -
This commit is contained in:
florian 2008-08-23 07:25:53 +00:00
parent 510e22e898
commit 615619804a
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncal.pas
View File

@ -3042,8 +3042,8 @@ implementation
{ call-by-reference const's may need to be passed by }
{ reference to function called in the inlined code }
(paramanager.push_addr_param(vs_const,para.parasym.vardef,procdefinition.proccalloption) and
(not valid_for_addr(para.left,false) or
is_constnode(para.left)))))
not valid_for_addr(para.left,false))
))
)
) then
begin

5
compiler/nutils.pas
View File

@ -696,6 +696,7 @@ implementation
end;
p := tbinarynode(p).right;
end;
stringconstn,
tempcreaten,
tempdeleten,
ordconstn,
@ -775,7 +776,7 @@ implementation
inc(result);
exit;
end;
in_inc_x,
in_dec_x,
in_include_x_y,
@ -799,7 +800,7 @@ implementation
exit;
end;
end;
end;
else
begin