Constify the string parameter of caml_find_custom_operations

ccasin · Dec 12, 2023 · 58f3223 · 58f3223
1 parent dc1c105
commit 58f3223
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/runtime/caml/custom.h b/runtime/caml/custom.h
@@ -77,7 +77,8 @@ CAMLextern mlsize_t caml_custom_get_max_major (void);
 #define caml_compare_unordered (Caml_state_field(compare_unordered))
 
 #ifdef CAML_INTERNALS
-extern struct custom_operations * caml_find_custom_operations(char * ident);
+extern struct custom_operations *
+          caml_find_custom_operations(const char * ident);
 extern struct custom_operations *
           caml_final_custom_operations(void (*fn)(value));
 

diff --git a/runtime/custom.c b/runtime/custom.c
@@ -146,7 +146,7 @@ caml_register_custom_operations(const struct custom_operations * ops)
   push_custom_ops(&custom_ops_table, ops);
 }
 
-struct custom_operations * caml_find_custom_operations(char * ident)
+struct custom_operations * caml_find_custom_operations(const char * ident)
 {
   struct custom_operations_list * l;
   for (l = atomic_load(&custom_ops_table); l != NULL; l = l->next)