Skip to main content

Browse the archive

swh:1:snp:505c374fd75bb208ae4e9a54e64bb310bc49295e
Raw File
Tip revision: 96c414508b66efb8edee4ced03a50de7ef3abc58 authored by Ole Krüger on 04 April 2024, 13:56:32 UTC
Nix: Provide Nix flake
Tip revision: 96c4145
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