From fd32717ef495af9f730ace2267a7417eb4773fbe Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 23 Oct 1990 00:00:11 +0000 Subject: [PATCH] Don't bother saving the flags, 'cause we don't need to. --- ldb/core.h | 1 - ldb/save.c | 2 -- 2 files changed, 3 deletions(-) diff --git a/ldb/core.h b/ldb/core.h index 6ce4b5fd6..f246e6428 100644 --- a/ldb/core.h +++ b/ldb/core.h @@ -23,7 +23,6 @@ struct machine_state { lispobj *csp; lispobj *fp; lispobj *bsp; - long flags; char *number_stack_start; long sigcontext_page; diff --git a/ldb/save.c b/ldb/save.c index baff79636..4177f2718 100644 --- a/ldb/save.c +++ b/ldb/save.c @@ -103,7 +103,6 @@ struct sigcontext *context; ms.csp = current_control_stack_pointer; ms.fp = current_control_frame_pointer; ms.bsp = current_binding_stack_pointer; - ms.flags = current_flags_register; ms.number_stack_start = number_stack_start; ms.sigcontext_page = write_bytes((char *)context, sizeof(struct sigcontext)); ms.control_stack_page = write_stack("Control", @@ -237,7 +236,6 @@ struct machine_state *ms; current_control_stack_pointer = ms->csp; current_control_frame_pointer = ms->fp; current_binding_stack_pointer = ms->bsp; - current_flags_register = ms->flags; if (ms->number_stack_start > number_stack_start) { fprintf(stderr, "Your environment is too large. Use ``unsetenv''\n"); -- GitLab