From 190b27ad45fd6e8dc45643da93fb09c8f85eacee Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 14 Sep 2024 13:54:54 +0200
Subject: [PATCH]   * use proper value for Fnv64 initialization   * PPU version
 increased

---
 compiler/fpchash.pas | 7 +++++++
 compiler/ncgvmt.pas  | 2 +-
 compiler/ppu.pas     | 2 +-
 compiler/symdef.pas  | 8 ++++----
 4 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/compiler/fpchash.pas b/compiler/fpchash.pas
index f5d78232e5..dd91f48af5 100644
--- a/compiler/fpchash.pas
+++ b/compiler/fpchash.pas
@@ -33,6 +33,7 @@ function TrimStrCRC32(const s: ansistring; maxlen: longint): ansistring;
 { calculate string hash using FNV Hash:
   http://www.isthe.com/chongo/tech/comp/fnv/
 }
+function InitFnv64: uint64;
 function UpdateFnv64(const InitFnv: uint64; const InBuf; InLen: Integer): uint64;
 
 type
@@ -102,6 +103,12 @@ begin
    end;
 end;
 
+
+function InitFnv64: uint64;
+  begin
+    result:=uint64(14695981039346656037);
+  end;
+
 { calculate string hash using FNV Hash:
   http://www.isthe.com/chongo/tech/comp/fnv/
 }
diff --git a/compiler/ncgvmt.pas b/compiler/ncgvmt.pas
index d6f653650a..3900196620 100644
--- a/compiler/ncgvmt.pas
+++ b/compiler/ncgvmt.pas
@@ -744,7 +744,7 @@ implementation
         tmpstr:=_class.objname^+'_$_'+make_mangledname('',realintfdef.owner,'')+'_$$_'+realintfdef.objname^+'_$_'+tostr(i)+'_$_'+pd.mangledname;
         if length(tmpstr)>50 then
           begin
-            hash:=0;
+            hash:=InitFnv64;
             hash:=UpdateFnv64(hash,tmpstr[51],length(tmpstr)-50);
             hs:=copy(tmpstr,1,50)+'$H'+Base64Mangle(hash);
           end
diff --git a/compiler/ppu.pas b/compiler/ppu.pas
index 41c3e48509..4aadcc3f08 100644
--- a/compiler/ppu.pas
+++ b/compiler/ppu.pas
@@ -48,7 +48,7 @@ const
   CurrentPPUVersion = 208;
   { for any other changes to the ppu format, increase this version number
     (it's a cardinal) }
-  CurrentPPULongVersion = 24;
+  CurrentPPULongVersion = 25;
 
 { unit flags }
   uf_big_endian          = $000004;
diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index f2b579ca19..72acb50874 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -1669,7 +1669,7 @@ implementation
                begin
                  if length(prefix)>(maxidlen-length(s)-1) then
                    begin
-                     hash:=0;
+                     hash:=InitFnv64;
                      hash:=UpdateFnv64(hash,prefix[1],length(prefix));
                      prefix:='$H'+Base64Mangle(hash);
                    end;
@@ -1686,7 +1686,7 @@ implementation
               internalerror(200204174);
              if length(prefix)>(maxidlen-length(tabstractrecorddef(st.defowner).objname^)-3) then
                begin
-                 hash:=0;
+                 hash:=InitFnv64;
                  hash:=UpdateFnv64(hash,prefix[1],length(prefix));
                  prefix:='$H'+Base64Mangle(hash);
                end;
@@ -1731,7 +1731,7 @@ implementation
           result:=result+'_$$_'+suffix;
         if length(result)>(maxidlen-1) then
           begin
-            hash:=0;
+            hash:=InitFnv64;
             hash:=UpdateFnv64(hash,result[1],length(result));
             result:=copy(result,1,maxidlen-(high(Base64OfUint64String)-low(Base64OfUint64String)+1)-2)+'$H'+Base64Mangle(hash);
           end;
@@ -5785,7 +5785,7 @@ implementation
         if (newlen-oldlen>12) and
            ((newlen>100) or (newlen-oldlen>64)) then
           begin
-            hash:=0;
+            hash:=InitFnv64;
             for i:=0 to paras.count-1 do
               begin
                 hp:=tparavarsym(paras[i]);