summaryrefslogtreecommitdiff
path: root/perllib
diff options
context:
space:
mode:
authorH. Peter Anvin <hpa@zytor.com>2007-09-02 06:20:15 +0000
committerH. Peter Anvin <hpa@zytor.com>2007-09-02 06:20:15 +0000
commite3e9e9fa0df139e49c57fed528b38ae28d028387 (patch)
tree7209e9804eed314acea2cd91ea9e6ac3433554c7 /perllib
parent757dfad9009e0158c4283433a9764b345a9dd12f (diff)
downloadnasm-e3e9e9fa0df139e49c57fed528b38ae28d028387.tar.gz
nasm-e3e9e9fa0df139e49c57fed528b38ae28d028387.tar.bz2
nasm-e3e9e9fa0df139e49c57fed528b38ae28d028387.zip
phash.ph: remove some stale code
Remove old randomization code which is no longer used.
Diffstat (limited to 'perllib')
-rw-r--r--perllib/phash.ph9
1 files changed, 0 insertions, 9 deletions
diff --git a/perllib/phash.ph b/perllib/phash.ph
index 4339d58..5021c2f 100644
--- a/perllib/phash.ph
+++ b/perllib/phash.ph
@@ -142,14 +142,6 @@ sub gen_hash_n($$$) {
}
#
-# Generate a random prehash vector
-#
-sub prehash_vector()
-{
- return [myrand(32), myrand(32), myrand(32), myrand(32)];
-}
-
-#
# Driver for generating the function
#
# gen_perfect_hash(\%data)
@@ -176,7 +168,6 @@ sub gen_perfect_hash($) {
print STDERR "Trying n = $n...\n";
for ($j = 0; $j < $maxj; $j++) {
$sv = $random_sv_vectors[$j];
- # $sv = prehash_vector();
@hashinfo = gen_hash_n($n, $sv, $href);
return @hashinfo if (defined(@hashinfo));
}