From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 May 1995 16:27:01 +0000 (+0000)
Subject: (parse_modifiers, apply_modifiers): Don't assume 32-bit EMACS_INT.
X-Git-Tag: emacs-19.34~4176
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec0faad26604f07fdc117fbc7956f74a4aae492a;p=emacs.git

(parse_modifiers, apply_modifiers): Don't assume 32-bit EMACS_INT.
(parse_modifiers): modifiers is an int, not an EMACS_INT.
(read_key_sequence): Pass modifiers as int, not EMACS_INT.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 3160a380fac..a387edb3e06 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3568,7 +3568,7 @@ parse_modifiers (symbol)
   else
     {
       int end;
-      EMACS_INT modifiers = parse_modifiers_uncached (symbol, &end);
+      int modifiers = parse_modifiers_uncached (symbol, &end);
       Lisp_Object unmodified;
       Lisp_Object mask;
 
@@ -3576,7 +3576,7 @@ parse_modifiers (symbol)
 					 XSYMBOL (symbol)->name->size - end),
 			    Qnil);
 
-      if (modifiers & ~((1<<VALBITS) - 1))
+      if (modifiers & ~(((EMACS_INT)1 << VALBITS) - 1))
 	abort ();
       XSETFASTINT (mask, modifiers);
       elements = Fcons (unmodified, Fcons (mask, Qnil));
@@ -3613,7 +3613,7 @@ apply_modifiers (modifiers, base)
   Lisp_Object cache, index, entry, new_symbol;
 
   /* Mask out upper bits.  We don't know where this value's been.  */
-  modifiers &= (1<<VALBITS) - 1;
+  modifiers &= ((EMACS_INT)1 << VALBITS) - 1;
 
   /* The click modifier never figures into cache indices.  */
   cache = Fget (base, Qmodifier_cache);
@@ -5845,7 +5845,7 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
 	  if (modifiers & shift_modifier)
 	    {
 	      modifiers &= ~shift_modifier;
-	      key = apply_modifiers (make_number (modifiers),
+	      key = apply_modifiers (modifiers,
 				     XCONS (breakdown)->car);
 
 	      keybuf[t - 1] = key;