Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix square_big_int 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2388 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 1999-08-03 17:58:46 +00:00
parent 5107abe233
commit fafa8d241d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
otherlibs/num/big_int.ml
View File

@ -5,7 +5,7 @@
(* Valerie Menissier-Morain, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *)
(* Automatique. Distributed only by permission. *)
(* en Automatique. Distributed only by permission. *)
(* *)
(***********************************************************************)
@ -555,7 +555,7 @@ let square_big_int bi =
let len_res = 2 * len_bi in
let res = make_nat len_res in
square_nat res 0 len_res (bi.abs_value) 0 len_bi;
{ sign = 1;
{ sign = bi.sign * bi.sign;
abs_value = res }
(* round off of the futur last digit (of the integer represented by the string