X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fmonitor.c;h=076d9481703e36ab7986aff491a1a32b57999f7b;hb=03363f0145ab5e88a17a4b881068dc921f7d122f;hp=aff7720b3545d639c1bdc1ab270a710733eb59ea;hpb=cbfca6d8c90bfd249e6bee6e3d9bba88a56c0312;p=sbcl.git diff --git a/src/runtime/monitor.c b/src/runtime/monitor.c index aff7720..076d948 100644 --- a/src/runtime/monitor.c +++ b/src/runtime/monitor.c @@ -9,16 +9,19 @@ * files for more information. */ +#include "sbcl.h" + #include #include #include #include #include +#ifndef LISP_FEATURE_WIN32 #include +#endif #include #include -#include "sbcl.h" #include "runtime.h" #include "parse.h" #include "vars.h" @@ -177,7 +180,9 @@ print_cmd(char **ptr) static void kill_cmd(char **ptr) { +#ifndef LISP_FEATURE_WIN32 kill(getpid(), parse_number(ptr)); +#endif } static void @@ -444,7 +449,11 @@ sub_monitor(void) int ambig; if (!ldb_in) { +#ifndef LISP_FEATURE_WIN32 ldb_in = fopen("/dev/tty","r+"); +#else + ldb_in = stdin; +#endif ldb_in_fd = fileno(ldb_in); }