diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 38f5c9fa3e..da5a919f8e 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -12968,6 +12968,11 @@ sub register_fraction($) { my $float = eval $rational; $float = sprintf "%.*e", $E_FLOAT_PRECISION, $float; + + # Strip off any leading zeros beyond 2 digits to make it C99 compliant. + # (Windows has 3 digit exponents, contrary to C99) + $float =~ s/ ( .* e [-+] ) 0* ( \d{2,}? ) /$1$2/x; + if ( defined $nv_floating_to_rational{$float} && $nv_floating_to_rational{$float} ne $rational) { |