libgmp-alloc-fns.pony

    let alloc_fn = @{(size: USize): Pointer[U8] =>
      @pony_alloc[Pointer[U8]](@pony_ctx[Pointer[None] iso](), size)
    }
    
    let realloc_fn = @{(p: Pointer[U8], oldsz: USize, sz: USize): Pointer[U8] =>
      @pony_realloc[Pointer[U8]](@pony_ctx[Pointer[None] iso](), p, sz)
    }
    
    let free_fn = @{(p: Pointer[U8], size: USize) =>
      None // do nothing - let Pony GC take care of it
    }
    
    @__gmp_set_memory_functions[None](alloc_fn, realloc_fn, free_fn)