mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-23 04:53:12 -08:00
Code Issues Projects Releases Wiki Activity

* bytecode.c (CONSTANTLIM): Remove; unused.

Browse source 
(METER_CODE, Bscan_buffer, Bread_char, Bset_mark):
Define only if needed.
This commit is contained in:
Paul Eggert 2011-03-16 19:18:00 -07:00
parent 7914961cd7
commit 615f2d59a5
2 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/bytecode.c
View file

@ -76,11 +76,7 @@ Lisp_Object Qbyte_code_meter;
} \
}
#else /* no BYTE_CODE_METER */
#define METER_CODE(last_code, this_code)
#endif /* no BYTE_CODE_METER */
#endif /* BYTE_CODE_METER */
Lisp_Object Qbytecode;
@ -146,7 +142,9 @@ Lisp_Object Qbytecode;
#define Bpreceding_char 0150
#define Bcurrent_column 0151
#define Bindent_to 0152
#ifdef BYTE_CODE_SAFE
#define Bscan_buffer 0153 /* No longer generated as of v18 */
#endif
#define Beolp 0154
#define Beobp 0155
#define Bbolp 0156
@ -154,8 +152,12 @@ Lisp_Object Qbytecode;
#define Bcurrent_buffer 0160
#define Bset_buffer 0161
#define Bsave_current_buffer_1 0162 /* Replacing Bsave_current_buffer. */
#if 0
#define Bread_char 0162 /* No longer generated as of v19 */
#endif
#ifdef BYTE_CODE_SAFE
#define Bset_mark 0163 /* this loser is no longer generated as of v18 */
#endif
#define Binteractive_p 0164 /* Needed since interactive-p takes unevalled args */
#define Bforward_char 0165
@ -227,7 +229,6 @@ Lisp_Object Qbytecode;
#define BinsertN 0261
#define Bconstant 0300
#define CONSTANTLIM 0100
/* Whether to maintain a `top' and `bottom' field in the stack frame. */
#define BYTE_MAINTAIN_TOP (BYTE_CODE_SAFE || BYTE_MARK_STACK)