paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 01:39:30 +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}
const
CurrentPPUVersion = 108;
CurrentPPUVersion = 109;
{ buffer sizes }
maxentrysize = 1024;

6
compiler/symdef.pas
View File

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