mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-22 07:03:38 +00:00
Backport CAMLreturnT for OCaml <= 3.10
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user