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

Utilisation de Sys.os_type et Sys.word_size. Nettoyages. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1169 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1996-11-07 10:59:54 +00:00
parent 5bca16dae1
commit e5ea3418a8
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
otherlibs/num/int_misc.ml
View File

@ -24,7 +24,7 @@ let num_bits_int n = num_bits_int_aux (abs n);;
let sign_int i = if i = 0 then 0 else if i > 0 then 1 else -1;;
let length_of_int = (Sys.get_config()).Sys.word_size - 2;;
let length_of_int = Sys.word_size - 2;;
let monster_int = 1 lsl length_of_int;;
let biggest_int = monster_int - 1;;

2
otherlibs/num/nat.ml
View File

@ -44,7 +44,7 @@ external land_digit_nat: nat -> int -> nat -> int -> unit = "land_digit_nat"
external lor_digit_nat: nat -> int -> nat -> int -> unit = "lor_digit_nat"
external lxor_digit_nat: nat -> int -> nat -> int -> unit = "lxor_digit_nat"
let length_of_digit = (Sys.get_config ()).Sys.word_size;;
let length_of_digit = Sys.word_size;;
let make_nat len =
if len < 0 then invalid_arg "make_nat" else