Browse Source

* Dotted version of fnvhash.pp

Michaël Van Canneyt 1 year ago
parent
commit
9586d3e674

+ 3 - 0
packages/hash/namespaced/System.Hash.Fnv.pp

@@ -0,0 +1,3 @@
+unit System.Hash.Fnv;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fnvhash.pp}

+ 1 - 0
packages/hash/namespaces.lst

@@ -7,3 +7,4 @@ src/uuid.pas=namespaced/System.Hash.Uuid.pas
 src/ntlm.pas=namespaced/System.Hash.Ntlm.pas
 src/hmac.pp=namespaced/System.Hash.Hmac.pp
 src/md5.pp=namespaced/System.Hash.Md5.pp
+src/fnvhash.pp=namespaced/System.Hash.Fnv.pp

+ 8 - 2
packages/hash/src/fnvhash.pp

@@ -12,14 +12,20 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fnvhash;
+{$ENDIF}
 
 {$mode objfpc}
 
 interface
 
-uses sysutils, types;
+uses 
+{$IFDEF FPC_DOTTEDUNITS}
+  System.SysUtils, System.Types;
+{$ELSE}
+  sysutils, types;
+{$ENDIF}
 
 Const
   // FNV 32-bit hash, see http://www.isthe.com/chongo/src/fnv/hash_32.c