diff options
| author | Runhang Li <marklrh@gmail.com> | 2017-07-23 09:31:35 +0800 |
|---|---|---|
| committer | Runhang Li <marklrh@gmail.com> | 2017-07-23 09:31:58 +0800 |
| commit | c39b975d435ae0fca8efd90041553234355ed186 (patch) | |
| tree | 06a45659c2f4c9f08d4df02ea5684aac8e8eb3d3 /byterun/debugger.c | |
| parent | bc32e7a52de66f80b75cf2bc9cfb11a12f193527 (diff) | |
| parent | d9d7d5b8f19df9f7300c6b2cf1a1b881ab1cb7c1 (diff) | |
| download | ocaml-c39b975d435ae0fca8efd90041553234355ed186.tar.gz | |
merge trunk and update test
Diffstat (limited to 'byterun/debugger.c')
| -rw-r--r-- | byterun/debugger.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/byterun/debugger.c b/byterun/debugger.c index ff1da956ce..8cf3025855 100644 --- a/byterun/debugger.c +++ b/byterun/debugger.c @@ -27,6 +27,7 @@ #include "caml/config.h" #include "caml/debugger.h" #include "caml/misc.h" +#include "caml/osdeps.h" int caml_debugger_in_use = 0; uintnat caml_event_count; @@ -172,7 +173,7 @@ void caml_debugger_init(void) Store_field(marshal_flags, 0, Val_int(1)); /* Marshal.Closures */ Store_field(marshal_flags, 1, Val_emptylist); - address = getenv("CAML_DEBUG_SOCKET"); + address = caml_secure_getenv("CAML_DEBUG_SOCKET"); if (address == NULL) return; dbg_addr = address; |