diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-11-29 18:36:42 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-11-29 18:36:42 +0000 |
| commit | 3b92524aa90a61796e8822eb961452ca8368acdc (patch) | |
| tree | 7b226c556ab1a9d7c542788dba6dc68ef0cbb978 /byterun/sys.c | |
| parent | 9f2a2427f8187c093657887dc1dde1fcfc70963e (diff) | |
Ajout du support pour le debugger
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1211 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/sys.c')
| -rw-r--r-- | byterun/sys.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/byterun/sys.c b/byterun/sys.c index 97897d26e..313912706 100644 --- a/byterun/sys.c +++ b/byterun/sys.c @@ -27,6 +27,7 @@ #include <unistd.h> #endif #include "alloc.h" +#include "debugger.h" #include "fail.h" #include "instruct.h" #include "mlvalues.h" @@ -90,6 +91,7 @@ void sys_error(arg) value sys_exit(retcode) /* ML */ value retcode; { + debugger(PROGRAM_EXIT); #ifdef HAS_UI ui_exit(Int_val(retcode)); #else |