File: select_addr.ml

package info (click to toggle)
ocaml 5.3.0-3
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 43,124 kB
  • sloc: ml: 355,439; ansic: 51,636; sh: 25,098; asm: 5,413; makefile: 3,673; python: 919; javascript: 273; awk: 253; perl: 59; fortran: 21; cs: 9
file content (14 lines) | stat: -rw-r--r-- 383 bytes parent folder | download | duplicates (2) 
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)