mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 21:50:37 -08:00
Code Issues Projects Releases Wiki Activity

Fix non-MPS build

Browse source
This commit is contained in:
Gerd Möllmann 2024-06-08 07:00:48 +02:00
parent 444872f75a
commit 2ca11bb73f
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/lread.c
View file

@ -4515,9 +4515,10 @@ read0 (Lisp_Object readcharfun, bool locate_syms)
struct read_stack_entry *e = read_stack_top ();
switch (e->type)
{
#ifdef HAVE_MPS
case RE_free:
emacs_abort ();
#endif
case RE_list_start:
e->type = RE_list;
e->u.list.head = e->u.list.tail = Fcons (obj, Qnil);

2
src/print.c
View file

@ -1404,6 +1404,7 @@ pp_stack_push_values (Lisp_Object vectorlike, ptrdiff_t start, ptrdiff_t n)
grow_pp_stack ();
ppstack.stack[ppstack.sp++]
= (struct print_pp_entry){ .start = start, .n = n, .u.vectorlike = vectorlike };
ppstack.stack[ppstack.sp - 1].is_free = false;
}
#else
static inline void
@ -1416,7 +1417,6 @@ pp_stack_push_values (Lisp_Object *values, ptrdiff_t n)
grow_pp_stack ();
ppstack.stack[ppstack.sp++] = (struct print_pp_entry){.n = n,
.u.values = values};
ppstack.stack[ppstack.sp - 1].is_free = false;
}
#endif