X-Git-Url: https://git.hcoop.net/hcoop/smlsql.git/blobdiff_plain/f147efc833ed466c187a55622be46fc67539f11d..ff979976e79e20620cab1a3bacf8ede384f5b880:/libpq/FFI/fptr-rtti-9.sml?ds=sidebyside diff --git a/libpq/FFI/fptr-rtti-9.sml b/libpq/FFI/fptr-rtti-9.sml deleted file mode 100644 index 65ee56c..0000000 --- a/libpq/FFI/fptr-rtti-9.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) for x86-unix] *) -(* Send comments and suggestions to blume@research.bell-labs.com. Thanks! *) -local open C.Dim C_Int in -structure FPtrRTTI_9 = struct - fun mkcall a x1 - = Cvt.c_sint - (CMemory.unwrap_sint - (Callop_1.callop - (a, - CMemory.wrap_addr (reveal (Ptr.inject' x1)), - nil))) - val typ = - mk_fptr_typ mkcall : - ((ST_pg_conn.tag, rw) su_obj ptr' -> sint) fptr T.typ -end -end