regen/mph.pl: Use 'bignum'
authorKarl Williamson <khw@cpan.org>
Sat, 7 Jul 2018 17:29:12 +0000 (11:29 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 7 Jul 2018 18:42:13 +0000 (12:42 -0600)
Commit 72196ef94b98987bb277d8bf6db6efaacd624c3c changed to 'use integer'
in one function.  But this was not sufficient to work on a 32 bit
system.  I tried a global 'use integer', which also didn't work; then a
global 'use bigint', which causes the program to not loop and it
generates usable data, but this causes a floating point statistic that is
included to be printed as 0.  The solution is to 'use bignum' instead.

See the thread beginning at
http://nntp.perl.org/group/perl.perl5.porters/251393

regen/mph.pl
uni_keywords.h

index 06d2ccf..5ed392a 100644 (file)
@@ -4,6 +4,7 @@ use warnings;
 use Data::Dumper;
 use Carp;
 use Text::Wrap;
+use bignum;     # Otherwise fails on 32-bit systems
 
 my $DEBUG= 0;
 my $RSHIFT= 8;
@@ -11,7 +12,6 @@ my $FNV_CONST= 16777619;
 
 sub _fnv {
     my ($key, $seed)= @_;
-    use integer;
     my $hash = 0+$seed;
     foreach my $char (split //, $key) {
         $hash = $hash ^ ord($char);
index 4989c9a..b183445 100644 (file)
@@ -6839,5 +6839,5 @@ MPH_VALt match_uniprop( const unsigned char * const key, const U16 key_len ) {
  * 4bb677187a1a64e39d48f2e341b5ecb6c99857e49d7a79cf503bd8a3c709999b regen/charset_translations.pl
  * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl
  * d5fbbeb7c499aa5f12b3debd0cef5c01d59d18da9ed390ad42030ee94e3e767c regen/mk_invlists.pl
- * 8e7ae6bf56e3808b39c4f4a50ab9645e3462639bef604a0008db78a1219b7d8d regen/mph.pl
+ * 1adf61210fe457d9fe2e953f9646cac257b1c00226a84435d9c2642051b81024 regen/mph.pl
  * ex: set ro: */