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

* use also an FNV hash to shorten interface wrapper names

Browse Source
This commit is contained in:
florian 2024-09-13 22:12:20 +02:00
parent aec11012e8
commit 84da5e619c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgvmt.pas
View File

@ -735,7 +735,7 @@ implementation
realintfdef: tobjectdef;
tmpstr : AnsiString;
hs : TSymStr;
crc : DWord;
hash : QWord;
begin
realintfdef:=AImplIntf.IntfDef;
while realintfdef.is_unique_objpasdef do
@ -744,9 +744,9 @@ implementation
tmpstr:=_class.objname^+'_$_'+make_mangledname('',realintfdef.owner,'')+'_$$_'+realintfdef.objname^+'_$_'+tostr(i)+'_$_'+pd.mangledname;
if length(tmpstr)>50 then
begin
crc:=0;
crc:=UpdateCrc32(crc,tmpstr[51],length(tmpstr)-50);
hs:=copy(tmpstr,1,50)+'$CRC'+hexstr(crc,8);
hash:=0;
hash:=UpdateFnv64(hash,tmpstr[51],length(tmpstr)-50);
hs:=copy(tmpstr,1,50)+'$H'+Base64Mangle(hash);
end
else
hs:=tmpstr;