mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

* lisp.h (SWITCH_ENUM_CAST): Remove. All uses removed.

Browse Source 
This no-op macro hasn't been needed for many years.
* src/regex.c (SWITCH_ENUM_CAST) [!emacs]: Likewise.
This commit is contained in:
Paul Eggert 2012-07-30 11:56:42 -07:00
parent c32af1e4a0
commit 7393bcbb8b
9 changed files with 22 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
admin/CPP-DEFINES
View File

@ -61,8 +61,6 @@ SYSTEM_TYPE
** Misc macros
USER_FULL_NAME If defined, overrides the default pw->pw_gecos for getting at the full user name. Only MSDOS overrides the default.
** Replace, the definition is trivial: SWITCH_ENUM_CAST
** Defines from src/s/*.h. Some of these might not be used in the code anymore, so they can be removed. The HAVE_* definitions are probably handled by autoconf, so it might be possible to just remove them from src/s/*.h.

4
src/ChangeLog
View File

@ -1,5 +1,9 @@
2012-07-30 Paul Eggert <eggert@cs.ucla.edu>
* lisp.h (SWITCH_ENUM_CAST): Remove. All uses removed.
This no-op macro hasn't been needed for many years.
* src/regex.c (SWITCH_ENUM_CAST) [!emacs]: Likewise.
Export DIRECTORY_SEP, TYPEMASK, VALMASK to GDB.
* alloc.c (gdb_make_enums_visible) [USE_LSB_TAG]: Add lsb_bits.
* lisp.h (enum lsb_bits) [USE_LSB_TAG]: New enum, for

2
src/alloc.c
View File

@ -5926,7 +5926,7 @@ mark_object (Lisp_Object arg)
#endif /* not GC_CHECK_MARKED_OBJECTS */
switch (SWITCH_ENUM_CAST (XTYPE (obj)))
switch (XTYPE (obj))
{
case Lisp_String:
{

6
src/data.c
View File

@ -2522,7 +2522,7 @@ arith_driver (enum arithop code, ptrdiff_t nargs, Lisp_Object *args)
ptrdiff_t ok_args;
EMACS_INT ok_accum;
switch (SWITCH_ENUM_CAST (code))
switch (code)
{
case Alogior:
case Alogxor:
@ -2557,7 +2557,7 @@ arith_driver (enum arithop code, ptrdiff_t nargs, Lisp_Object *args)
nargs, args);
args[argnum] = val;
next = XINT (args[argnum]);
switch (SWITCH_ENUM_CAST (code))
switch (code)
{
case Aadd:
if (INT_ADD_OVERFLOW (accum, next))
@ -2643,7 +2643,7 @@ float_arith_driver (double accum, ptrdiff_t argnum, enum arithop code,
args[argnum] = val; /* runs into a compiler bug. */
next = XINT (args[argnum]);
}
switch (SWITCH_ENUM_CAST (code))
switch (code)
{
case Aadd:
accum += next;

2
src/keyboard.c
View File

@ -5319,7 +5319,7 @@ make_lispy_event (struct input_event *event)
{
int i;
switch (SWITCH_ENUM_CAST (event->kind))
switch (event->kind)
{
/* A simple keystroke. */
case ASCII_KEYSTROKE_EVENT:

2
src/lisp.h
View File

@ -3319,8 +3319,6 @@ static char const DIRECTORY_SEP = '/';
#define IS_ANY_SEP(_c_) (IS_DIRECTORY_SEP (_c_))
#endif
#define SWITCH_ENUM_CAST(x) (x)
/* Use this to suppress gcc's warnings. */
#ifdef lint

18
src/regex.c
View File

@ -255,8 +255,6 @@ xrealloc (void *block, size_t size)
/* Sword must be nonzero for the wordchar pattern commands in re_match_2. */
enum syntaxcode { Swhitespace = 0, Sword = 1, Ssymbol = 2 };
# define SWITCH_ENUM_CAST(x) (x)
/* Dummy macros for non-Emacs environments. */
# define CHAR_CHARSET(c) 0
# define CHARSET_LEADING_CODE_BASE(c) 0
@ -3913,7 +3911,7 @@ analyse_first (const re_char *p, const re_char *pend, char *fastmap, const int m
as used for the *? operator. */
re_char *p1 = p;
switch (SWITCH_ENUM_CAST ((re_opcode_t) *p++))
switch (*p++)
{
case succeed:
return 1;
@ -4088,7 +4086,7 @@ analyse_first (const re_char *p, const re_char *pend, char *fastmap, const int m
visited. `re_compile' should make sure this is true. */
break;
p += j;
switch (SWITCH_ENUM_CAST ((re_opcode_t) *p))
switch (*p)
{
case on_failure_jump:
case on_failure_keep_string_jump:
@ -4621,7 +4619,7 @@ static int bcmp_translate (re_char *s1, re_char *s2,
static re_char *
skip_one_char (const re_char *p)
{
switch (SWITCH_ENUM_CAST (*p++))
switch (*p++)
{
case anychar:
break;
@ -4666,7 +4664,7 @@ skip_noops (const re_char *p, const re_char *pend)
int mcnt;
while (p < pend)
{
switch (SWITCH_ENUM_CAST ((re_opcode_t) *p))
switch (*p)
{
case start_memory:
case stop_memory:
@ -4711,7 +4709,7 @@ mutually_exclusive_p (struct re_pattern_buffer *bufp, const re_char *p1, const r
op2 = p2 == pend ? succeed : *p2;
switch (SWITCH_ENUM_CAST (op2))
switch (op2)
{
case succeed:
case endbuf:
@ -4835,7 +4833,7 @@ mutually_exclusive_p (struct re_pattern_buffer *bufp, const re_char *p1, const r
break;
case charset_not:
switch (SWITCH_ENUM_CAST (*p1))
switch (*p1)
{
case exactn:
case charset:
@ -5313,7 +5311,7 @@ re_match_2_internal (struct re_pattern_buffer *bufp, const re_char *string1,
}
/* Otherwise match next pattern command. */
switch (SWITCH_ENUM_CAST ((re_opcode_t) *p++))
switch (*p++)
{
/* Ignore these. Used to ignore the n of succeed_n's which
currently have n == 0. */
@ -6235,7 +6233,7 @@ re_match_2_internal (struct re_pattern_buffer *bufp, const re_char *string1,
/* A restart point is known. Restore to that state. */
DEBUG_PRINT1 ("\nFAIL:\n");
POP_FAILURE_POINT (str, pat);
switch (SWITCH_ENUM_CAST ((re_opcode_t) *pat++))
switch (*pat++)
{
case on_failure_keep_string_jump:
assert (str == NULL);

8
src/syntax.c
View File

@ -1152,7 +1152,7 @@ DEFUN ("internal-describe-syntax-value", Finternal_describe_syntax_value,
insert_string ("\twhich means: ");
switch (SWITCH_ENUM_CAST (code))
switch (code)
{
case Swhitespace:
insert_string ("whitespace"); break;
@ -2525,7 +2525,7 @@ scan_lists (register EMACS_INT from, EMACS_INT count, EMACS_INT depth, int sexpf
if (prefix)
continue;
switch (SWITCH_ENUM_CAST (code))
switch (code)
{
case Sescape:
case Scharquote:
@ -2702,7 +2702,7 @@ scan_lists (register EMACS_INT from, EMACS_INT count, EMACS_INT depth, int sexpf
else if (SYNTAX_FLAGS_PREFIX (syntax))
continue;
switch (SWITCH_ENUM_CAST (code))
switch (code)
{
case Sword:
case Ssymbol:
@ -3123,7 +3123,7 @@ do { prev_from = from; \
if (SYNTAX_FLAGS_PREFIX (prev_from_syntax))
continue;
switch (SWITCH_ENUM_CAST (code))
switch (code)
{
case Sescape:
case Scharquote:

2
src/xdisp.c
View File

@ -20414,7 +20414,7 @@ display_mode_element (struct it *it, int depth, int field_width, int precision,
depth++;
switch (SWITCH_ENUM_CAST (XTYPE (elt)))
switch (XTYPE (elt))
{
case Lisp_String:
{