Backport CAMLreturnT for OCaml <= 3.10

This commit is contained in:
Richard Jones
2009-05-06 15:11:40 +01:00
parent 64847eed16
commit 76758f42b1

View File

@@ -32,6 +32,15 @@
#include "guestfs_c.h"
/* This macro was added in OCaml 3.10. Backport for earlier versions. */
#ifndef CAMLreturnT
#define CAMLreturnT(type, result) do{ \
type caml__temp_result = (result); \
caml_local_roots = caml__frame; \
return (caml__temp_result); \
}while(0)
#endif
/* Allocate handles and deal with finalization. */
static void
guestfs_finalize (value gv)