diff options
Diffstat (limited to 'contrib/syslinux/syslinux-4.03/core/genhash.pl')
-rwxr-xr-x | contrib/syslinux/syslinux-4.03/core/genhash.pl | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/contrib/syslinux/syslinux-4.03/core/genhash.pl b/contrib/syslinux/syslinux-4.03/core/genhash.pl deleted file mode 100755 index c79139f..0000000 --- a/contrib/syslinux/syslinux-4.03/core/genhash.pl +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl -# -# Generate hash values for keywords -# - -eval { use bytes; }; - -while ( defined($keywd = <STDIN>) ) { - chomp $keywd; - - ($keywd,$keywdname) = split(/\s+/, $keywd); - $keywdname = $keywd unless ( $keywdname ); - - $l = length($keywd); - $h = 0; - for ( $i = 0 ; $i < $l ; $i++ ) { - $c = ord(substr($keywd,$i,1)) | 0x20; - $h = ((($h << 5)|($h >> 27)) ^ $c) & 0xFFFFFFFF; - } - if ( $seenhash{$h} ) { - printf STDERR "$0: hash collision (0x%08x) %s %s\n", - $h, $keywd, $seenhash{$h}; - } - $seenhash{$h} = $keywd; - printf("%-23s equ 0x%08x\n", "hash_${keywdname}", $h); -} |