perl 5.000

[perl5.git] / ext / dbm / sdbm / hash.c

diff --git a/ext/dbm/sdbm/hash.c b/ext/dbm/sdbm/hash.c
deleted file mode 100644 (file)
index eb585ac..0000000
--- a/ext/dbm/sdbm/hash.c
+++ /dev/null
@@ -1,48 +0,0 @@
-/*
- * sdbm - ndbm work-alike hashed database library
- * based on Per-Aake Larson's Dynamic Hashing algorithms. BIT 18 (1978).
- * author: oz@nexus.yorku.ca
- * status: public domain. keep it that way.
- *
- * hashing routine
- */
-
-#include "config.h"
-#include "sdbm.h"
-/*
- * polynomial conversion ignoring overflows
- * [this seems to work remarkably well, in fact better
- * then the ndbm hash function. Replace at your own risk]
- * use: 65599  nice.
- *      65587   even better. 
- */
-long
-sdbm_hash(str, len)
-register char *str;
-register int len;
-{
-       register unsigned long n = 0;
-
-#ifdef DUFF
-
-#define HASHC  n = *str++ + 65599 * n
-
-       if (len > 0) {
-               register int loop = (len + 8 - 1) >> 3;
-
-               switch(len & (8 - 1)) {
-               case 0: do {
-                       HASHC;  case 7: HASHC;
-               case 6: HASHC;  case 5: HASHC;
-               case 4: HASHC;  case 3: HASHC;
-               case 2: HASHC;  case 1: HASHC;
-                       } while (--loop);
-               }
-
-       }
-#else
-       while (len--)
-               n = *str++ + 65599 * n;
-#endif
-       return n;
-}