Commit 7393bcbb authored by Paul Eggert's avatar Paul Eggert
Browse files

* 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.
parent c32af1e4
......@@ -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.
......
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
......
......@@ -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:
{
......
......@@ -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;
......
......@@ -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:
......
......@@ -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
......
......@@ -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);
......
......@@ -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:
......
......@@ -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:
{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment