diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2003-12-12 19:47:43 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-12 22:43:11 +0000 |
| commit | 8df1e0a2b21ea34567b1f903327ae2a11bb9b86e (patch) | |
| tree | 3fe9e6dfea8b2de78a5d79f4ccad0fbdfa704d8a /lib/Math/BigFloat.pm | |
| parent | 087c4f22370f16639ef0e86293c159a934ea228c (diff) | |
| download | perl-8df1e0a2b21ea34567b1f903327ae2a11bb9b86e.tar.gz | |
Math::BigInt v1.67 released
Message-Id: <200312121847.49039@bloodgate.com>
p4raw-id: //depot/perl@21882
Diffstat (limited to 'lib/Math/BigFloat.pm')
| -rw-r--r-- | lib/Math/BigFloat.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Math/BigFloat.pm b/lib/Math/BigFloat.pm index dfb2671e42..3b8d5a6e04 100644 --- a/lib/Math/BigFloat.pm +++ b/lib/Math/BigFloat.pm @@ -172,8 +172,9 @@ sub new # undef,undef to signal MBI that we don't need no bloody rounding $self->{_e} = $MBI->new("$$es$$ev",undef,undef); # exponent $self->{_m} = $MBI->new("$$miv$$mfv",undef,undef); # create mant. + # print $self->{_e}, " ", $self->{_m},"\n"; # 3.123E0 = 3123E-3, and 3.123E-2 => 3123E-5 - $self->{_e} -= CORE::length($$mfv) if CORE::length($$mfv) != 0; + $self->{_e} -= CORE::length($$mfv) if CORE::length($$mfv) != 0; $self->{sign} = $$mis; } # if downgrade, inf, NaN or integers go down @@ -186,7 +187,7 @@ sub new $self->{_m}->{sign} = $$mis; # negative if wanted return $downgrade->new($self->{_m}); } - return $downgrade->new("$$mis$$miv$$mfv"."E$$es$$ev"); + return $downgrade->new($self->bsstr()); } #print "mbf new $self->{sign} $self->{_m} e $self->{_e} ",ref($self),"\n"; $self->bnorm()->round(@r); # first normalize, then round |