1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [by Matthias Blume
's ml
-nlffigen (version
0.9) for x86
-unix
] *)
3 (* Send comments
and suggestions to blume@research
.bell
-labs
.com
. Thanks
! *)
4 local open C
.Dim C_Int
in
5 structure FPtrRTTI_13
= struct
6 fun mkcall
a (x1
, x2
, x3
)
11 (CMemory
.wrap_addr (reveal (Ptr
.inject
' x1
)),
12 CMemory
.wrap_uint (Cvt
.ml_uint x2
),
13 CMemory
.wrap_addr (reveal (Ptr
.inject
' x3
))),
17 (rw uchar_obj ptr
' * uint
* rw uint_obj ptr
' ->
18 rw uchar_obj ptr
') fptr T
.typ