Skip to content
Snippets Groups Projects
Commit f80e6e48 authored by wlott's avatar wlott
Browse files

Added a ``restore'' command for use when starting saved cores with the

-monitor switch.
parent 5ecc8049
No related branches found
No related tags found
No related merge requests found
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/monitor.c,v 1.11 1990/10/23 00:07:23 wlott Exp $ */ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/monitor.c,v 1.12 1990/11/12 02:36:58 wlott Exp $ */
#include <stdio.h> #include <stdio.h>
#include <setjmp.h> #include <setjmp.h>
...@@ -17,7 +17,7 @@ static void call_cmd(), dump_cmd(), print_cmd(), quit(), help(); ...@@ -17,7 +17,7 @@ static void call_cmd(), dump_cmd(), print_cmd(), quit(), help();
static void flush_cmd(), search_cmd(), regs_cmd(), exit_cmd(); static void flush_cmd(), search_cmd(), regs_cmd(), exit_cmd();
static void timed_call_cmd(), gc_cmd(), print_context_cmd(); static void timed_call_cmd(), gc_cmd(), print_context_cmd();
static void backtrace_cmd(), purify_cmd(), catchers_cmd(), save_cmd(); static void backtrace_cmd(), purify_cmd(), catchers_cmd(), save_cmd();
static void grab_sigs_cmd(); static void grab_sigs_cmd(), restore_cmd();
static struct cmd { static struct cmd {
char *cmd, *help; char *cmd, *help;
...@@ -40,6 +40,7 @@ static struct cmd { ...@@ -40,6 +40,7 @@ static struct cmd {
{"p", NULL, print_cmd}, {"p", NULL, print_cmd},
{"quit", "quit.", quit}, {"quit", "quit.", quit},
{"regs", "display current lisp regs.", regs_cmd}, {"regs", "display current lisp regs.", regs_cmd},
{"restore", "restore the saved lisp image.", restore_cmd},
{"save", "save the current lisp image.", save_cmd}, {"save", "save the current lisp image.", save_cmd},
{"search", "search for TYPE starting at ADDRESS for a max of COUNT words.", search_cmd}, {"search", "search for TYPE starting at ADDRESS for a max of COUNT words.", search_cmd},
{"s", NULL, search_cmd}, {"s", NULL, search_cmd},
...@@ -435,6 +436,12 @@ char **ptr; ...@@ -435,6 +436,12 @@ char **ptr;
save("lisp.core"); save("lisp.core");
} }
static void restore_cmd(ptr)
char **ptr;
{
restore();
}
static void grab_sigs_cmd() static void grab_sigs_cmd()
{ {
printf("Grabbing signals.\n"); printf("Grabbing signals.\n");
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment