Skip to main content

Browse the archive

swh:1:snp:505c374fd75bb208ae4e9a54e64bb310bc49295e
Raw File
Tip revision: bd0c14c9d256385b55e1c552288e8dab772dbd8f authored by Mathias Bourgoin on 18 March 2024, 11:30:28 UTC
Proto/Tests: update test with level of min_delegated
Tip revision: bd0c14c
main.ml 
open Api
open Ctypes

let add (x : int) (y : int) =
  let x_ptr = Uintptr.of_int x in
  let y_ptr = Uintptr.of_int y in
  let res = Functions.add x_ptr y_ptr in
  Uintptr.to_int res
back to top