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);
|
||||
}
|
||||
|
||||
void sys_exit(retcode) /* ML */
|
||||
value sys_exit(retcode) /* ML */
|
||||
value retcode;
|
||||
{
|
||||
#ifdef HAS_UI
|
||||
|
@ -87,6 +87,7 @@ void sys_exit(retcode) /* ML */
|
|||
#else
|
||||
exit(Int_val(retcode));
|
||||
#endif
|
||||
return Val_unit;
|
||||
}
|
||||
|
||||
#ifndef O_BINARY
|
||||
|
|
Loading…
Reference in New Issue