diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2003-12-29 19:26:15 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2003-12-29 19:26:15 +0000 |
| commit | 1f051a0398738eaf4b6dfba72d4ffb6490cf50b4 (patch) | |
| tree | ca310e21132519001ac5e514c06ba519d246cb4c | |
| parent | 57fd501b0bfcdd8d2bc222a1a230d14c1f19b50c (diff) | |
PR#1989
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6038 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | otherlibs/num/big_int.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/otherlibs/num/big_int.ml b/otherlibs/num/big_int.ml index 7542f1f89..5d556daa7 100644 --- a/otherlibs/num/big_int.ml +++ b/otherlibs/num/big_int.ml @@ -178,6 +178,7 @@ let mult_int_big_int i bi = if i = monster_int then let res = create_nat size_res in blit_nat res 0 (bi.abs_value) 0 size_bi; + set_digit_nat res size_bi 0; mult_digit_nat res 0 size_res (bi.abs_value) 0 size_bi (nat_of_int biggest_int) 0; { sign = - (sign_big_int bi); |