X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=augeas-c.c;h=481811694fcff718e9f9402b7115d7463701e1bc;hb=eb7b3379f07ff52c849b953b1a38cb2d4c3d43bf;hp=0b535d65575e493d08cdb47030ced7afeea6b133;hpb=ddfd3f8bea4d92c802bfcca21e1523b9be06982c;p=ocaml-augeas.git

diff --git a/augeas-c.c b/augeas-c.c
index 0b535d6..4818116 100644
--- a/augeas-c.c
+++ b/augeas-c.c
@@ -56,7 +56,7 @@ augeas_t_finalize (value tv)
 }
 
 static struct custom_operations custom_operations = {
-  "augeas_t_custom_operations",
+  (char *) "augeas_t_custom_operations",
   augeas_t_finalize,
   custom_compare_default,
   custom_hash_default,
@@ -81,6 +81,8 @@ static value Val_augeas_t (augeas_t t)
   CAMLreturn (rv);
 }
 
+#pragma GCC diagnostic ignored "-Wmissing-prototypes"
+
 /* val create : string -> string option -> flag list -> t */
 CAMLprim value
 ocaml_augeas_create (value rootv, value loadpathv, value flagsv)
@@ -199,7 +201,7 @@ ocaml_augeas_rm (value tv, value pathv)
 {
   CAMLparam2 (tv, pathv);
   augeas_t t = Augeas_t_val (tv);
-  char *path = String_val (path);
+  char *path = String_val (pathv);
   int r;
 
   r = aug_rm (t, path);
@@ -246,7 +248,7 @@ ocaml_augeas_count_matches (value tv, value pathv)
 {
   CAMLparam2 (tv, pathv);
   augeas_t t = Augeas_t_val (tv);
-  char *path = String_val (path);
+  char *path = String_val (pathv);
   int r;
 
   r = aug_match (t, path, NULL);