ffi: support for duplicating type objects.

* ffi.c (struct txr_ffi_type): New member, dup.
(ffi_struct_dup, ffi_ptr_dup): New static functions.
(make_ffi_type_pointer, make_ffi_type_struct,
make_ffi_type_array): Set up dup virtual function for these
types.
(ffi_copy_type): New function.
(ffi_init): Register ffi-copy-type intrinsic.

* ffi.h (ffi_copy_type): Declared.

1 files changed, 1 insertions, 0 deletions

diff --git a/ffi.h b/ffi.h
index 2845ccc4..88da4deb 100644
--- a/ffi.h
+++ b/ffi.h
@@ -56,4 +56,5 @@ val ffi_make_call_desc(val ntotal, val nfixed, val rettype, val argtypes);
 val ffi_make_closure(val fun, val call_desc);
 mem_t *ffi_closure_get_fptr(val closure);
 val ffi_call_wrap(val ffi_call_desc, val fptr, val args);
+val ffi_copy_type(val type);
 void ffi_init(void);