quit() doit renvoyer une valeur si HAS_UI
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@642 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
063abb0f80
commit
fdc79d5db8
|
@ -79,7 +79,7 @@ void sys_error(arg)
|
||||||
raise_sys_error(str);
|
raise_sys_error(str);
|
||||||
}
|
}
|
||||||
|
|
||||||
void sys_exit(retcode) /* ML */
|
value sys_exit(retcode) /* ML */
|
||||||
value retcode;
|
value retcode;
|
||||||
{
|
{
|
||||||
#ifdef HAS_UI
|
#ifdef HAS_UI
|
||||||
|
@ -87,6 +87,7 @@ void sys_exit(retcode) /* ML */
|
||||||
#else
|
#else
|
||||||
exit(Int_val(retcode));
|
exit(Int_val(retcode));
|
||||||
#endif
|
#endif
|
||||||
|
return Val_unit;
|
||||||
}
|
}
|
||||||
|
|
||||||
#ifndef O_BINARY
|
#ifndef O_BINARY
|
||||||
|
|
Loading…
Reference in New Issue