PR#224

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3343 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 3 insertions, 3 deletions

diff --git a/byterun/alloc.c b/byterun/alloc.c
index 603c519ef..53e82df25 100644
--- a/byterun/alloc.c
+++ b/byterun/alloc.c
@@ -88,7 +88,7 @@ value alloc_final (mlsize_t len, final_fun fun, mlsize_t mem, mlsize_t max)
                       len * sizeof(value), mem, max);
 }
 
-value copy_string(char *s)
+value copy_string(char const *s)
 {
   int len;
   value res;
@@ -99,7 +99,7 @@ value copy_string(char *s)
   return res;
 }
 
-value alloc_array(value (*funct)(char *), char ** arr)
+value alloc_array(value (*funct)(char const *), char const ** arr)
 {
   CAMLparam0 ();
   mlsize_t nbr, n;
@@ -122,7 +122,7 @@ value alloc_array(value (*funct)(char *), char ** arr)
   }
 }
 
-value copy_string_array(char **arr)
+value copy_string_array(char const ** arr)
 {
   return alloc_array(copy_string, arr);
 }