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