* Add notice that work by Wolfgang Erhardt was used

packages/fcl-hash/src/fpecc.pp

@@ -73,6 +73,10 @@ implementation
 
 uses sysutils, fphashutils;
 
+{
+  This code is based on earlier work by Wolfgang Erhardt.
+}
+
 type
   UInt128 = record
     m_low: UInt64;

packages/fcl-hash/src/fphashutils.pp

@@ -9,6 +9,11 @@
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
+{
+  Part of this code is based on earlier work by Wolfgang Erhardt.
+}
+
+
 unit fphashutils;
 
 {$mode ObjFPC}{$H+}