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

quit() doit renvoyer une valeur si HAS_UI 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@642 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1996-02-18 14:44:59 +00:00
parent 063abb0f80
commit fdc79d5db8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
byterun/sys.c
View File

@ -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