Fixed warnings in C-stubs

mmottl · mmottl · commit 58b2cb17297a · 2019-10-11T15:18:06.000-04:00
diff --git a/src/postgresql_stubs.c b/src/postgresql_stubs.c
@@ -132,8 +132,8 @@ static inline value make_some(value v)
 
 /* Cache for OCaml-values */
 static value v_empty_string = Val_unit;
-static value *v_exc_Oid = NULL;  /* Exception [Oid] */
-static value *v_null_param = NULL;
+static const value *v_exc_Oid = NULL;  /* Exception [Oid] */
+static const value *v_null_param = NULL;
 
 CAMLprim value PQocaml_init(value __unused v_unit)
 {

Original file line number	Diff line number	Diff line change
`@@ -132,8 +132,8 @@ static inline value make_some(value v)`
`132`	`132`
`133`	`133`	`/* Cache for OCaml-values */`
`134`	`134`	`static value v_empty_string = Val_unit;`
`135`		`-static value v_exc_Oid = NULL; / Exception [Oid] */`
`136`		`-static value *v_null_param = NULL;`
	`135`	`+static const value v_exc_Oid = NULL; / Exception [Oid] */`
	`136`	`+static const value *v_null_param = NULL;`
`137`	`137`
`138`	`138`	`CAMLprim value PQocaml_init(value __unused v_unit)`
`139`	`139`	`{`