git.annexia.org
/
libguestfs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix 'unknown filesystem' warnings in old inspection code (RHBZ#678231 RHBZ#666578).
[libguestfs.git]
/
ocaml
/
guestfs_c.h
diff --git
a/ocaml/guestfs_c.h
b/ocaml/guestfs_c.h
index
b4a7661
..
a374bf2
100644
(file)
--- a/
ocaml/guestfs_c.h
+++ b/
ocaml/guestfs_c.h
@@
-1,5
+1,5
@@
/* libguestfs
/* libguestfs
- * Copyright (C) 2009 Red Hat Inc.
+ * Copyright (C) 2009
-2011
Red Hat Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@@
-19,10
+19,24
@@
#ifndef GUESTFS_OCAML_C_H
#define GUESTFS_OCAML_C_H
#ifndef GUESTFS_OCAML_C_H
#define GUESTFS_OCAML_C_H
+#include "guestfs-internal.h"
+
#define Guestfs_val(v) (*((guestfs_h **)Data_custom_val(v)))
extern void ocaml_guestfs_raise_error (guestfs_h *g, const char *func)
Noreturn;
#define Guestfs_val(v) (*((guestfs_h **)Data_custom_val(v)))
extern void ocaml_guestfs_raise_error (guestfs_h *g, const char *func)
Noreturn;
+extern void ocaml_guestfs_raise_closed (const char *func)
+ Noreturn;
extern char **ocaml_guestfs_strings_val (guestfs_h *g, value sv);
extern void ocaml_guestfs_free_strings (char **r);
extern char **ocaml_guestfs_strings_val (guestfs_h *g, value sv);
extern void ocaml_guestfs_free_strings (char **r);
+# ifdef __GNUC__
+# ifndef ATTRIBUTE_UNUSED
+# define ATTRIBUTE_UNUSED __attribute__((__unused__))
+# endif
+#else
+# ifndef ATTRIBUTE_UNUSED
+# define ATTRIBUTE_UNUSED
+# endif
+#endif
+
#endif /* GUESTFS_OCAML_C_H */
#endif /* GUESTFS_OCAML_C_H */