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 {