Mercurial > emacs
changeset 10457:2ab3bd0288a9
Change all occurences of SWITCH_ENUM_BUG to use SWITCH_ENUM_CAST instead.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 18 Jan 1995 20:52:48 +0000 |
| parents | 9c6110615166 |
| children | b58df8437ea1 |
| files | src/alloc.c src/data.c src/keyboard.c src/syntax.c src/xdisp.c |
| diffstat | 5 files changed, 18 insertions(+), 78 deletions(-) [+] |
line wrap: on
line diff
--- a/src/alloc.c Wed Jan 18 20:47:36 1995 +0000 +++ b/src/alloc.c Wed Jan 18 20:52:48 1995 +0000 @@ -1,5 +1,5 @@ /* Storage allocation and gc for GNU Emacs Lisp interpreter. - Copyright (C) 1985, 1986, 1988, 1993, 1994 Free Software Foundation, Inc. + Copyright (C) 1985, 86, 88, 93, 94, 95 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -1502,11 +1502,7 @@ if (last_marked_index == LAST_MARKED_SIZE) last_marked_index = 0; -#ifdef SWITCH_ENUM_BUG - switch ((int) XGCTYPE (obj)) -#else - switch (XGCTYPE (obj)) -#endif + switch (SWITCH_ENUM_CAST (XGCTYPE (obj))) { case Lisp_String: {
--- a/src/data.c Wed Jan 18 20:47:36 1995 +0000 +++ b/src/data.c Wed Jan 18 20:52:48 1995 +0000 @@ -1,5 +1,5 @@ /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter. - Copyright (C) 1985, 1986, 1988, 1993, 1994 Free Software Foundation, Inc. + Copyright (C) 1985, 86, 88, 93, 94, 95 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -656,11 +656,7 @@ Lisp_Object sym; register Lisp_Object valcontents, newval; { -#ifdef SWITCH_ENUM_BUG - switch ((int) XTYPE (valcontents)) -#else - switch (XTYPE (valcontents)) -#endif + switch (SWITCH_ENUM_CAST (XTYPE (valcontents))) { case Lisp_Misc: switch (XMISC (valcontents)->type) @@ -1630,11 +1626,7 @@ register int accum; register int next; -#ifdef SWITCH_ENUM_BUG - switch ((int) code) -#else - switch (code) -#endif + switch (SWITCH_ENUM_CAST (code)) { case Alogior: case Alogxor: @@ -1661,11 +1653,7 @@ #endif /* LISP_FLOAT_TYPE */ args[argnum] = val; /* runs into a compiler bug. */ next = XINT (args[argnum]); -#ifdef SWITCH_ENUM_BUG - switch ((int) code) -#else - switch (code) -#endif + switch (SWITCH_ENUM_CAST (code)) { case Aadd: accum += next; break; case Asub: @@ -1725,11 +1713,7 @@ args[argnum] = val; /* runs into a compiler bug. */ next = XINT (args[argnum]); } -#ifdef SWITCH_ENUM_BUG - switch ((int) code) -#else - switch (code) -#endif + switch (SWITCH_ENUM_CAST (code)) { case Aadd: accum += next;
--- a/src/keyboard.c Wed Jan 18 20:47:36 1995 +0000 +++ b/src/keyboard.c Wed Jan 18 20:52:48 1995 +0000 @@ -2637,11 +2637,7 @@ { int i; -#ifdef SWITCH_ENUM_BUG - switch ((int) event->kind) -#else - switch (event->kind) -#endif + switch (SWITCH_ENUM_CAST (event->kind)) { /* A simple keystroke. */ case ascii_keystroke:
--- a/src/syntax.c Wed Jan 18 20:47:36 1995 +0000 +++ b/src/syntax.c Wed Jan 18 20:52:48 1995 +0000 @@ -1,5 +1,5 @@ /* GNU Emacs routines to deal with syntax tables; also word and list parsing. - Copyright (C) 1985, 1987, 1993, 1994 Free Software Foundation, Inc. + Copyright (C) 1985, 1987, 1993, 1994, 1995 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -401,11 +401,7 @@ insert_string ("\twhich means: "); -#ifdef SWITCH_ENUM_BUG - switch ((int) code) -#else - switch (code) -#endif + switch (SWITCH_ENUM_CAST (code)) { case Swhitespace: insert_string ("whitespace"); break; @@ -905,11 +901,7 @@ if (SYNTAX_PREFIX (c)) continue; -#ifdef SWITCH_ENUM_BUG - switch ((int) code) -#else - switch (code) -#endif + switch (SWITCH_ENUM_CAST (code)) { case Sescape: case Scharquote: @@ -922,11 +914,7 @@ /* This word counts as a sexp; return at end of it. */ while (from < stop) { -#ifdef SWITCH_ENUM_BUG - switch ((int) SYNTAX (FETCH_CHAR (from))) -#else - switch (SYNTAX (FETCH_CHAR (from))) -#endif + switch (SWITCH_ENUM_CAST (SYNTAX (FETCH_CHAR (from)))) { case Scharquote: case Sescape: @@ -1001,11 +989,7 @@ { if (from >= stop) goto lose; if (FETCH_CHAR (from) == stringterm) break; -#ifdef SWITCH_ENUM_BUG - switch ((int) SYNTAX (FETCH_CHAR (from))) -#else - switch (SYNTAX (FETCH_CHAR (from))) -#endif + switch (SWITCH_ENUM_CAST (SYNTAX (FETCH_CHAR (from)))) { case Scharquote: case Sescape: @@ -1059,11 +1043,7 @@ if (SYNTAX_PREFIX (c)) continue; -#ifdef SWITCH_ENUM_BUG - switch ((int) (quoted ? Sword : code)) -#else - switch (quoted ? Sword : code) -#endif + switch (SWITCH_ENUM_CAST (quoted ? Sword : code)) { case Sword: case Ssymbol: @@ -1466,11 +1446,7 @@ if (SYNTAX_PREFIX (FETCH_CHAR (from - 1))) continue; -#ifdef SWITCH_ENUM_BUG - switch ((int) code) -#else - switch (code) -#endif + switch (SWITCH_ENUM_CAST (code)) { case Sescape: case Scharquote: @@ -1488,11 +1464,7 @@ symstarted: while (from < end) { -#ifdef SWITCH_ENUM_BUG - switch ((int) SYNTAX (FETCH_CHAR (from))) -#else - switch (SYNTAX (FETCH_CHAR (from))) -#endif + switch (SWITCH_ENUM_CAST (SYNTAX (FETCH_CHAR (from)))) { case Scharquote: case Sescape: @@ -1583,11 +1555,7 @@ { if (from >= end) goto done; if (FETCH_CHAR (from) == state.instring) break; -#ifdef SWITCH_ENUM_BUG - switch ((int) SYNTAX (FETCH_CHAR (from))) -#else - switch (SYNTAX (FETCH_CHAR (from))) -#endif + switch (SWITCH_ENUM_CAST (SYNTAX (FETCH_CHAR (from)))) { case Scharquote: case Sescape: