Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
f80e6e48
Commit
f80e6e48
authored
Nov 12, 1990
by
wlott
Browse files
Added a ``restore'' command for use when starting saved cores with the
-monitor switch.
parent
5ecc8049
Changes
1
Hide whitespace changes
Inline
Side-by-side
ldb/monitor.c
View file @
f80e6e48
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/monitor.c,v 1.1
1
1990/1
0/23 00:07:23
wlott Exp $ */
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/monitor.c,v 1.1
2
1990/1
1/12 02:36:58
wlott Exp $ */
#include <stdio.h>
#include <setjmp.h>
...
...
@@ -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
timed_call_cmd
(),
gc_cmd
(),
print_context_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
{
char
*
cmd
,
*
help
;
...
...
@@ -40,6 +40,7 @@ static struct cmd {
{
"p"
,
NULL
,
print_cmd
},
{
"quit"
,
"quit."
,
quit
},
{
"regs"
,
"display current lisp regs."
,
regs_cmd
},
{
"restore"
,
"restore the saved lisp image."
,
restore_cmd
},
{
"save"
,
"save the current lisp image."
,
save_cmd
},
{
"search"
,
"search for TYPE starting at ADDRESS for a max of COUNT words."
,
search_cmd
},
{
"s"
,
NULL
,
search_cmd
},
...
...
@@ -435,6 +436,12 @@ char **ptr;
save
(
"lisp.core"
);
}
static
void
restore_cmd
(
ptr
)
char
**
ptr
;
{
restore
();
}
static
void
grab_sigs_cmd
()
{
printf
(
"Grabbing signals.
\n
"
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment