diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-09-13 21:13:38 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-09-13 21:13:38 +0000 |
| commit | 892a8eb54c84d0db2be864be3b577054074bf7a9 (patch) | |
| tree | 3ac74027451f78692b4e0ba4cdf18d54ecd81453 /src/bytecode.c | |
| parent | 126f9c02d40e06a1208c0d044c03d4471abde0b5 (diff) | |
| download | emacs-892a8eb54c84d0db2be864be3b577054074bf7a9.tar.gz | |
(BYTE_CODE_QUIT): Add missing AFTER_POTENTIAL_GC.
(Fbyte_code): Remove dead code after `wrong_type_argument'.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 35 |
1 files changed, 8 insertions, 27 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 0d3be49877c..e8d006e67d1 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -1,5 +1,5 @@ /* 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. This file is part of GNU Emacs. @@ -387,6 +387,7 @@ unmark_byte_stack () Vquit_flag = Qnil; \ BEFORE_POTENTIAL_GC (); \ Fsignal (Qquit, Qnil); \ + AFTER_POTENTIAL_GC (); \ } \ } while (0) @@ -539,9 +540,7 @@ If the third argument is incorrect, Emacs may crash. */) TOP = Qnil; else { - BEFORE_POTENTIAL_GC (); - Fcar (wrong_type_argument (Qlistp, v1)); - AFTER_POTENTIAL_GC (); + wrong_type_argument (Qlistp, v1); } break; } @@ -574,9 +573,7 @@ If the third argument is incorrect, Emacs may crash. */) TOP = Qnil; else { - BEFORE_POTENTIAL_GC (); - Fcdr (wrong_type_argument (Qlistp, v1)); - AFTER_POTENTIAL_GC (); + wrong_type_argument (Qlistp, v1); } break; } @@ -907,11 +904,7 @@ If the third argument is incorrect, Emacs may crash. */) else if (!NILP (v1)) { immediate_quit = 0; - BEFORE_POTENTIAL_GC (); - v1 = wrong_type_argument (Qlistp, v1); - AFTER_POTENTIAL_GC (); - immediate_quit = 1; - op++; + wrong_type_argument (Qlistp, v1); } } immediate_quit = 0; @@ -920,11 +913,7 @@ If the third argument is incorrect, Emacs may crash. */) else if (NILP (v1)) TOP = Qnil; else - { - BEFORE_POTENTIAL_GC (); - Fcar (wrong_type_argument (Qlistp, v1)); - AFTER_POTENTIAL_GC (); - } + wrong_type_argument (Qlistp, v1); break; } @@ -1554,11 +1543,7 @@ If the third argument is incorrect, Emacs may crash. */) else if (!NILP (v1)) { immediate_quit = 0; - BEFORE_POTENTIAL_GC (); - v1 = wrong_type_argument (Qlistp, v1); - AFTER_POTENTIAL_GC (); - immediate_quit = 1; - op++; + wrong_type_argument (Qlistp, v1); } } immediate_quit = 0; @@ -1567,11 +1552,7 @@ If the third argument is incorrect, Emacs may crash. */) else if (NILP (v1)) TOP = Qnil; else - { - BEFORE_POTENTIAL_GC (); - Fcar (wrong_type_argument (Qlistp, v1)); - AFTER_POTENTIAL_GC (); - } + wrong_type_argument (Qlistp, v1); } else { |