paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 12:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* lowered symbol length at which we start shortening it with a crc so

Browse Source 
tw15203 also compiles on darwin

git-svn-id: trunk@14517 -
This commit is contained in:
Jonas Maebe 2010-01-02 11:54:16 +00:00
parent 04606982ac
commit b3a1833e0f
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ppu.pas
View File

@ -43,7 +43,7 @@ type
{$endif Test_Double_checksum} {$endif Test_Double_checksum}
const const
CurrentPPUVersion = 108; CurrentPPUVersion = 109;
{ buffer sizes } { buffer sizes }
maxentrysize = 1024; maxentrysize = 1024;

6
compiler/symdef.pas
View File

@ -846,7 +846,7 @@ implementation
newlen:=length(s); newlen:=length(s);
{ Replace with CRC if the parameter line is very long } { Replace with CRC if the parameter line is very long }
if (newlen-oldlen>12) and if (newlen-oldlen>12) and
((newlen+length(prefix)>128) or (newlen-oldlen>32)) then ((newlen+length(prefix)>100) or (newlen-oldlen>32)) then
begin begin
crc:=0; crc:=0;
for i:=0 to tprocdef(st.defowner).paras.count-1 do for i:=0 to tprocdef(st.defowner).paras.count-1 do
@ -866,7 +866,7 @@ implementation
prefix:=s+'_'+prefix prefix:=s+'_'+prefix
else else
prefix:=s; prefix:=s;
if length(prefix)>128 then if length(prefix)>100 then
begin begin
crc:=0; crc:=0;
crc:=UpdateCrc32(crc,prefix[1],length(prefix)); crc:=UpdateCrc32(crc,prefix[1],length(prefix));
@ -3423,7 +3423,7 @@ implementation
newlen:=length(mangledname); newlen:=length(mangledname);
{ Replace with CRC if the parameter line is very long } { Replace with CRC if the parameter line is very long }
if (newlen-oldlen>12) and if (newlen-oldlen>12) and
((newlen>128) or (newlen-oldlen>64)) then ((newlen>100) or (newlen-oldlen>64)) then
begin begin
crc:=0; crc:=0;
for i:=0 to paras.count-1 do for i:=0 to paras.count-1 do