Source

compiler-libs-hack / ocaml / testsuite / tests / prim-bswap / bswap.ml

Full commit
(***********************************************************************)
(*                                                                     *)
(*                                OCaml                                *)
(*                                                                     *)
(*                   Benedikt Meurer, os-cillation GmbH                *)
(*                                                                     *)
(*    Copyright 1998 Institut National de Recherche en Informatique    *)
(*    et en Automatique. Copyright 2013 Benedikt Meurer. All rights    *)
(*    reserved.  This file is distributed  under the terms of the Q    *)
(*    Public License version 1.0.                                      *)
(*                                                                     *)
(***********************************************************************)

open Printf

external bswap16: int -> int = "%bswap16"
external bswap32: int32 -> int32 = "%bswap_int32"
external bswap64: int64 -> int64 = "%bswap_int64"

let d16 = [0x11223344;
           0x0000f0f0]
let d32 = [0x11223344l;
           0xf0f0f0f0l]
let d64 = [0x1122334455667788L;
           0xf0f0f0f0f0f0f0f0L]

let _ =
  List.iter (fun x -> printf "%x\n" (bswap16 x)) d16;
  List.iter (fun x -> printf "%lx\n" (bswap32 x)) d32;
  List.iter (fun x -> printf "%Lx\n" (bswap64 x)) d64