diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2006-11-24 14:40:11 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2006-11-24 14:40:11 +0000 |
| commit | f4702f8208352a150221352f1c2b87a44e9e6fb1 (patch) | |
| tree | 60e5a08e5df437bc75224f823b19d64affc1d21c | |
| parent | 7f73882272088cada70a5dc1167492fd3244963a (diff) | |
PR#4167 ajout de const dans fail.h
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7758 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | byterun/fail.c | 8 | ||||
| -rw-r--r-- | byterun/fail.h | 6 | ||||
| -rw-r--r-- | stdlib/sys.ml | 2 |
3 files changed, 8 insertions, 8 deletions
diff --git a/byterun/fail.c b/byterun/fail.c index 7adfcccfc..a36b6afb4 100644 --- a/byterun/fail.c +++ b/byterun/fail.c @@ -60,7 +60,7 @@ CAMLexport void caml_raise_with_arg(value tag, value arg) CAMLnoreturn; } -CAMLexport void caml_raise_with_string(value tag, char *msg) +CAMLexport void caml_raise_with_string(value tag, char const *msg) { CAMLparam1 (tag); CAMLlocal1 (vmsg); @@ -70,12 +70,12 @@ CAMLexport void caml_raise_with_string(value tag, char *msg) CAMLnoreturn; } -CAMLexport void caml_failwith (char *msg) +CAMLexport void caml_failwith (char const *msg) { caml_raise_with_string(Field(caml_global_data, FAILURE_EXN), msg); } -CAMLexport void caml_invalid_argument (char *msg) +CAMLexport void caml_invalid_argument (char const *msg) { caml_raise_with_string(Field(caml_global_data, INVALID_EXN), msg); } @@ -96,7 +96,7 @@ static struct { CAMLexport void caml_raise_out_of_memory(void) { - if (out_of_memory_bucket.exn == 0) + if (out_of_memory_bucket.exn == 0) caml_fatal_error ("Fatal error: out of memory while raising Out_of_memory\n"); caml_raise((value) &(out_of_memory_bucket.exn)); diff --git a/byterun/fail.h b/byterun/fail.h index 47df947c5..5a55c57c5 100644 --- a/byterun/fail.h +++ b/byterun/fail.h @@ -60,9 +60,9 @@ extern value caml_exn_bucket; CAMLextern void caml_raise (value bucket) Noreturn; CAMLextern void caml_raise_constant (value tag) Noreturn; CAMLextern void caml_raise_with_arg (value tag, value arg) Noreturn; -CAMLextern void caml_raise_with_string (value tag, char * msg) Noreturn; -CAMLextern void caml_failwith (char *) Noreturn; -CAMLextern void caml_invalid_argument (char *) Noreturn; +CAMLextern void caml_raise_with_string (value tag, char const * msg) Noreturn; +CAMLextern void caml_failwith (char const *) Noreturn; +CAMLextern void caml_invalid_argument (char const *) Noreturn; CAMLextern void caml_raise_out_of_memory (void) Noreturn; CAMLextern void caml_raise_stack_overflow (void) Noreturn; CAMLextern void caml_raise_sys_error (value) Noreturn; diff --git a/stdlib/sys.ml b/stdlib/sys.ml index 0465bdf69..8b4abca03 100644 --- a/stdlib/sys.ml +++ b/stdlib/sys.ml @@ -78,4 +78,4 @@ let catch_break on = (* OCaml version string, must be in the format described in sys.mli. *) -let ocaml_version = "3.10+dev18 (2006-11-17)";; +let ocaml_version = "3.10+dev19 (2006-11-24)";; |