Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

PR#4167 ajout de const dans fail.h (suite) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7761 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2006-11-28 15:45:24 +00:00
parent f4702f8208
commit f38100ea36
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
asmrun/fail.c
View File

@ -62,7 +62,7 @@ void caml_raise(value v)
#else
#define PUSHED_AFTER >
#endif
while (caml_local_roots != NULL &&
while (caml_local_roots != NULL &&
(char *) caml_local_roots PUSHED_AFTER caml_exception_pointer) {
caml_local_roots = caml_local_roots->next;
}
@ -94,17 +94,17 @@ void caml_raise_with_arg(value tag, value arg)
CAMLnoreturn;
}
void caml_raise_with_string(value tag, char *msg)
void caml_raise_with_string(value tag, char const *msg)
{
caml_raise_with_arg(tag, caml_copy_string(msg));
}
void caml_failwith (char *msg)
void caml_failwith (char const *msg)
{
caml_raise_with_string((value) caml_exn_Failure, msg);
}
void caml_invalid_argument (char *msg)
void caml_invalid_argument (char const *msg)
{
caml_raise_with_string((value) caml_exn_Invalid_argument, msg);
}