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

* Mark procedures with shortstring value parameters as non-leaf, because such parameters generate a call (to fpc_shortstr_assign).

Browse Source 
git-svn-id: trunk@25082 -
This commit is contained in:
sergei 2013-07-11 08:21:45 +00:00
parent e992431bc4
commit ac2006898f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/psub.pas
View File

@ -1817,8 +1817,10 @@ implementation
if tsym(p).typ<>paravarsym then
exit;
with tparavarsym(p) do
if is_managed_type(vardef) and
(varspez in [vs_value,vs_out]) then
if (is_managed_type(vardef) and
(varspez in [vs_value,vs_out])) or
(is_shortstring(vardef) and
(varspez=vs_value)) then
include(current_procinfo.flags,pi_do_call);
end;