diff options
| author | P. J. McDermott <pj@pehjota.net> | 2017-01-17 14:34:14 (EST) |
|---|---|---|
| committer | P. J. McDermott <pj@pehjota.net> | 2017-01-17 14:34:14 (EST) |
| commit | 5fe61f6effa077552b8986f7b21291e25b3bb769 (patch) | |
| tree | 0232c84215c929fc7ee982c308d6657abe93d30c /lib | |
| parent | 27c2c8c9271e20ec04d333ecd4a1c82e7658f570 (diff) | |
| download | Math-Decimal-FastPP-5fe61f6effa077552b8986f7b21291e25b3bb769.zip Math-Decimal-FastPP-5fe61f6effa077552b8986f7b21291e25b3bb769.tar.gz Math-Decimal-FastPP-5fe61f6effa077552b8986f7b21291e25b3bb769.tar.bz2 | |
dadd(), dmul(), drhtz(), drhfz(): Remove commented-out code
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Math/Decimal/FastPP.pm | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/lib/Math/Decimal/FastPP.pm b/lib/Math/Decimal/FastPP.pm index badca0f..cc516e1 100644 --- a/lib/Math/Decimal/FastPP.pm +++ b/lib/Math/Decimal/FastPP.pm @@ -114,9 +114,6 @@ sub dadd my $bs = $bi . $bf; my $cs = $as + $bs; $cs = sprintf("%0${ce}i", $cs); - # The substr() code is 400% faster than this regular expression code. - #$cs =~ s/(.{$ce})$/.$1/; - #return $cs; return substr($cs, 0, length($cs) - $ce) . "." . substr($cs, length($cs) - $ce); } @@ -142,9 +139,6 @@ sub dmul my $cs = $as * $bs; my $ce = $ae + $be; $cs = sprintf("%0${ce}i", $cs); - # The substr() code is 400% faster than this regular expression code. - #$cs =~ s/(.{$ce})$/.$1/; - #return $cs; return substr($cs, 0, length($cs) - $ce) . "." . substr($cs, length($cs) - $ce); } @@ -176,9 +170,6 @@ sub drhtz --$as if $ad > "5" . "0" x (length($ad) - 1); } $as = sprintf("%0$_[1]i", $as); - # The substr() code is 400% faster than this regular expression code. - #$as =~ s/(.{$_[1]})$/.$1/; - #return $cs; return substr($as, 0, length($as) - $_[1]) . "." . substr($as, length($as) - $_[1]); } @@ -210,9 +201,6 @@ sub drhfz --$as if $ad >= "5" . "0" x (length($ad) - 1); } $as = sprintf("%0$_[1]i", $as); - # The substr() code is 400% faster than this regular expression code. - #$as =~ s/(.{$_[1]})$/.$1/; - #return $as; return substr($as, 0, length($as) - $_[1]) . "." . substr($as, length($as) - $_[1]); } |