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

* shorten mangledname names much quicker for nested procedures

Browse Source 
git-svn-id: trunk@8160 -
This commit is contained in:
peter 2007-07-23 21:36:16 +00:00
parent 1dd62b8686
commit 1249bf70ff
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symdef.pas
View File

@ -769,7 +769,7 @@ implementation
newlen:=length(s);
{ Replace with CRC if the parameter line is very long }
if (newlen-oldlen>12) and
((newlen>128) or (newlen-oldlen>64)) then
((newlen+length(prefix)>128) or (newlen-oldlen>32)) then
begin
crc:=$ffffffff;
for i:=0 to tprocdef(st.defowner).paras.count-1 do