X-Git-Url: https://git.hcoop.net/hcoop/smlsql.git/blobdiff_plain/812d937792645ff4de79715553a449a42ba4d589..ff979976e79e20620cab1a3bacf8ede384f5b880:/libpq/FFI/fptr-rtti-31.sml diff --git a/libpq/FFI/fptr-rtti-31.sml b/libpq/FFI/fptr-rtti-31.sml deleted file mode 100644 index 6178b57..0000000 --- a/libpq/FFI/fptr-rtti-31.sml +++ /dev/null @@ -1,17 +0,0 @@ -(* This file has been generated automatically. DO NOT EDIT! *) -(* [by Matthias Blume's ml-nlffigen (version 0.9.1) for x86-unix] *) -(* Send comments and suggestions to blume@tti-c.org. Thanks! *) -local open C.Dim C_Int in -structure FPtrRTTI_31 = struct - fun mkcall a x1 - = Cvt.c_uint - (CMemory.unwrap_uint - (Callop_18.callop - (a, - CMemory.wrap_addr (reveal (Ptr.inject' x1)), - nil))) - val typ = - mk_fptr_typ mkcall : - ((ST_pg_result.tag, ro) su_obj ptr' -> uint) fptr T.typ -end -end