diff --git a/ldb/core.h b/ldb/core.h index 6ce4b5fd6050eb20090abc118d54cbab8876b76c..f246e64285f1ccf1d843079cca47be9949042081 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 baff7963663c11fa161ecf30aba447373c4dbc4a..4177f27188c0f0799ee4046458f4b5c24b027e43 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");