diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2008-08-01 14:10:36 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2008-08-01 14:10:36 +0000 |
| commit | 674c821f5d51e4470d96cc1dd1d3c362139845f2 (patch) | |
| tree | 0bfc0388882ac93225d69c820aa53a349aedc2ed | |
| parent | c8ec05937da6f13b769fdfd17b01211ed42544b8 (diff) | |
PR#4567: const modifier on argument of caml_hash_variant
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8970 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | byterun/hash.c | 2 | ||||
| -rw-r--r-- | byterun/mlvalues.h | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/byterun/hash.c b/byterun/hash.c index 13709d4a7..a1d7864db 100644 --- a/byterun/hash.c +++ b/byterun/hash.c @@ -142,7 +142,7 @@ static void hash_aux(value obj) /* Hashing variant tags */ -CAMLexport value caml_hash_variant(char * tag) +CAMLexport value caml_hash_variant(char const * tag) { value accu; /* Same hashing algorithm as in ../typing/btype.ml, function hash_variant */ diff --git a/byterun/mlvalues.h b/byterun/mlvalues.h index d6263aefc..d76c1f1df 100644 --- a/byterun/mlvalues.h +++ b/byterun/mlvalues.h @@ -203,7 +203,7 @@ CAMLextern value caml_get_public_method (value obj, value tag); #define Lazy_tag 246 /* Another special case: variants */ -CAMLextern value caml_hash_variant(char * tag); +CAMLextern value caml_hash_variant(char const * tag); /* 2- If tag >= No_scan_tag : a sequence of bytes. */ |