Merge pull request #235 from mknos/bc-bignumfix

bc: integer precision problem with -b mode
briandfoy · Sep 10, 2023 · 6e92286 · 6e92286
2 parents f183084 + 279e79f
commit 6e92286
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/bin/bc b/bin/bc
@@ -2164,11 +2164,10 @@ sub yylex
 
           # number, is it integer or float?
 	  if ($line =~ s/^(\d+)//) {
-	      $yylval = 0 + ($char.$1);
-	      $yylval = Math::BigFloat->new($yylval) if $bignum;
+	      my $str = $char . $1;
+	      $yylval = $bignum ? Math::BigFloat->new($str) : int($str);
           } else {
-	      $yylval = 0 + $char;
-	      $yylval = Math::BigFloat->new($yylval) if $bignum;
+	      $yylval = $bignum ? Math::BigFloat->new($char) : int($char);
 	  }
 	  $type = $INT;