mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(BYTE_CODE_QUIT): Add missing AFTER_POTENTIAL_GC.

Browse Source 
(Fbyte_code): Remove dead code after `wrong_type_argument'.
This commit is contained in:
Stefan Monnier 2004-09-13 21:13:38 +00:00
parent 126f9c02d4
commit 892a8eb54c
2 changed files with 11 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ChangeLog
View File

@ -1,5 +1,8 @@
2004-09-13 Stefan Monnier <monnier@iro.umontreal.ca> 2004-09-13 Stefan Monnier <monnier@iro.umontreal.ca>
* bytecode.c (BYTE_CODE_QUIT): Add missing AFTER_POTENTIAL_GC.
(Fbyte_code): Remove dead code after `wrong_type_argument'.
* alloc.c (Fgarbage_collect): Mark keyboards, gtk data, and specpdl * alloc.c (Fgarbage_collect): Mark keyboards, gtk data, and specpdl
before doing the mark_stack_check_gcpros since they are not on the stack. before doing the mark_stack_check_gcpros since they are not on the stack.

35
src/bytecode.c
View File

@ -1,5 +1,5 @@
/* Execution of byte code produced by bytecomp.el. /* Execution of byte code produced by bytecomp.el.
Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003 Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003, 2004
Free Software Foundation, Inc. Free Software Foundation, Inc.
This file is part of GNU Emacs. This file is part of GNU Emacs.
@ -387,6 +387,7 @@ unmark_byte_stack ()
Vquit_flag = Qnil; \ Vquit_flag = Qnil; \
BEFORE_POTENTIAL_GC (); \ BEFORE_POTENTIAL_GC (); \
Fsignal (Qquit, Qnil); \ Fsignal (Qquit, Qnil); \
AFTER_POTENTIAL_GC (); \
} \ } \
} while (0) } while (0)
@ -539,9 +540,7 @@ If the third argument is incorrect, Emacs may crash. */)
TOP = Qnil; TOP = Qnil;
else else
{ {
BEFORE_POTENTIAL_GC (); wrong_type_argument (Qlistp, v1);
Fcar (wrong_type_argument (Qlistp, v1));
AFTER_POTENTIAL_GC ();
} }
break; break;
} }
@ -574,9 +573,7 @@ If the third argument is incorrect, Emacs may crash. */)
TOP = Qnil; TOP = Qnil;
else else
{ {
BEFORE_POTENTIAL_GC (); wrong_type_argument (Qlistp, v1);
Fcdr (wrong_type_argument (Qlistp, v1));
AFTER_POTENTIAL_GC ();
} }
break; break;
} }
@ -907,11 +904,7 @@ If the third argument is incorrect, Emacs may crash. */)
else if (!NILP (v1)) else if (!NILP (v1))
{ {
immediate_quit = 0; immediate_quit = 0;
BEFORE_POTENTIAL_GC (); wrong_type_argument (Qlistp, v1);
v1 = wrong_type_argument (Qlistp, v1);
AFTER_POTENTIAL_GC ();
immediate_quit = 1;
op++;
} }
} }
immediate_quit = 0; immediate_quit = 0;
@ -920,11 +913,7 @@ If the third argument is incorrect, Emacs may crash. */)
else if (NILP (v1)) else if (NILP (v1))
TOP = Qnil; TOP = Qnil;
else else
{ wrong_type_argument (Qlistp, v1);
BEFORE_POTENTIAL_GC ();
Fcar (wrong_type_argument (Qlistp, v1));
AFTER_POTENTIAL_GC ();
}
break; break;
} }
@ -1554,11 +1543,7 @@ If the third argument is incorrect, Emacs may crash. */)
else if (!NILP (v1)) else if (!NILP (v1))
{ {
immediate_quit = 0; immediate_quit = 0;
BEFORE_POTENTIAL_GC (); wrong_type_argument (Qlistp, v1);
v1 = wrong_type_argument (Qlistp, v1);
AFTER_POTENTIAL_GC ();
immediate_quit = 1;
op++;
} }
} }
immediate_quit = 0; immediate_quit = 0;
@ -1567,11 +1552,7 @@ If the third argument is incorrect, Emacs may crash. */)
else if (NILP (v1)) else if (NILP (v1))
TOP = Qnil; TOP = Qnil;
else else
{ wrong_type_argument (Qlistp, v1);
BEFORE_POTENTIAL_GC ();
Fcar (wrong_type_argument (Qlistp, v1));
AFTER_POTENTIAL_GC ();
}
} }
else else
{ {