Mercurial > emacs
comparison src/bytecode.c @ 47035:58d2828adc19
(Fbyte_code): Fsub1 can GC, so protect it.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 26 Aug 2002 07:37:19 +0000 |
| parents | 99d1224dfe6c |
| children | a32b154ea162 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 47034:820cb95c5776 | 47035:58d2828adc19 |
|---|---|
| 1 /* Execution of byte code produced by bytecomp.el. | 1 /* Execution of byte code produced by bytecomp.el. |
| 2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001 | 2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002 |
| 3 Free Software Foundation, Inc. | 3 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 This file is part of GNU Emacs. | 5 This file is part of GNU Emacs. |
| 6 | 6 |
| 7 GNU Emacs is free software; you can redistribute it and/or modify | 7 GNU Emacs is free software; you can redistribute it and/or modify |
| 1123 { | 1123 { |
| 1124 XSETINT (v1, XINT (v1) - 1); | 1124 XSETINT (v1, XINT (v1) - 1); |
| 1125 TOP = v1; | 1125 TOP = v1; |
| 1126 } | 1126 } |
| 1127 else | 1127 else |
| 1128 TOP = Fsub1 (v1); | 1128 { |
| 1129 BEFORE_POTENTIAL_GC (); | |
| 1130 TOP = Fsub1 (v1); | |
| 1131 AFTER_POTENTIAL_GC (); | |
| 1132 } | |
| 1129 break; | 1133 break; |
| 1130 } | 1134 } |
| 1131 | 1135 |
| 1132 case Badd1: | 1136 case Badd1: |
| 1133 { | 1137 { |
