# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 790462368 0
# Node ID 2ab3bd0288a9cd67947aee7aa171bd9512bea7a0
# Parent  9c6110615166bf65224b00143f94cf6ca7411e12
Change all occurences of SWITCH_ENUM_BUG to use SWITCH_ENUM_CAST instead.

diff -r 9c6110615166 -r 2ab3bd0288a9 src/alloc.c
--- 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:
       {
diff -r 9c6110615166 -r 2ab3bd0288a9 src/data.c
--- 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;
diff -r 9c6110615166 -r 2ab3bd0288a9 src/keyboard.c
--- 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:
diff -r 9c6110615166 -r 2ab3bd0288a9 src/syntax.c
--- 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:
diff -r 9c6110615166 -r 2ab3bd0288a9 src/xdisp.c
--- a/src/xdisp.c	Wed Jan 18 20:47:36 1995 +0000
+++ b/src/xdisp.c	Wed Jan 18 20:52:48 1995 +0000
@@ -2878,11 +2878,7 @@
 
   depth++;
 
-#ifdef SWITCH_ENUM_BUG
-  switch ((int) XTYPE (elt))
-#else
-  switch (XTYPE (elt))
-#endif
+  switch (SWITCH_ENUM_CAST (XTYPE (elt)))
     {
     case Lisp_String:
       {