File: select_addr.ml

package info (click to toggle)
ocaml 5.4.0-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 44,372 kB
  • sloc: ml: 370,196; ansic: 52,820; sh: 27,396; asm: 5,462; makefile: 3,679; python: 974; awk: 278; javascript: 273; perl: 59; fortran: 21; cs: 9
file content (14 lines) | stat: -rw-r--r-- 383 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(* TEST *)

let[@inline never][@local never] f n =
  let n = Int64.of_int n in
  let open Int64 in
  to_int (add n (of_int Int.min_int))

let _ =
  (* The test only works on architectures where Sys.int_size is 63,
     as it depends on the exact value of Int.min_int. *)
  if Sys.int_size <> 63 then
    Printf.printf "0x4000000000000001\n"
  else
    Printf.printf "0x%x\n%!" (f 1)