1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [by Matthias Blume
's ml
-nlffigen (version
0.9.1) for x86
-unix
] *)
3 (* Send comments
and suggestions to blume@tti
-c
.org
. Thanks
! *)
4 local open C
.Dim C_Int
in
5 structure FPtrRTTI_12
= struct
7 = Cvt
.c_sint (CMemory
.unwrap_sint (Callop_6
.callop (a
, (), nil
)))
8 val typ
= mk_fptr_typ mkcall
: (unit
-> sint
) fptr T
.typ