From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Sep 1990 19:50:29 +0000 (+0000)
Subject: Change `x-window-read-event-flags!' to mask its result so that only
X-Git-Tag: 20090517-FFI~11210
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=31f88a0aeaba6c557c57202a38c298ed3f3fb35d;p=mit-scheme.git

Change `x-window-read-event-flags!' to mask its result so that only
the least significant 3 bits are returned.
---

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 4e4b48ba6..400f2fe9e 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.43 1990/09/08 00:10:48 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.44 1990/09/11 19:50:29 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	43
+#define SUBVERSION	44
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index b4c7a6e19..272316aff 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11base.c,v 1.13 1990/09/11 05:16:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11base.c,v 1.14 1990/09/11 19:49:54 cph Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -830,7 +830,11 @@ DEFINE_PRIMITIVE ("X-WINDOW-READ-EVENT-FLAGS!", Prim_x_window_read_event_flags,
   xw = (WINDOW_ARG (1));
   old = (XW_EVENT_FLAGS (xw));
   (XW_EVENT_FLAGS (xw)) = 0;
-  PRIMITIVE_RETURN (long_to_integer (old));
+  /* Mask the result so that only three bits of information are
+     returned.  This primitive is only used for maintaining the old
+     version of Edwin -- newer versions use a different interface that
+     supplies more event types. */
+  PRIMITIVE_RETURN (long_to_integer (old & 0x7));
 }
 
 DEFINE_PRIMITIVE ("X-DEQUEUE-GLOBAL-EVENT", Prim_x_dequeue_global_event, 0, 0,
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index b3c307cb2..42164b73c 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.43 1990/09/08 00:10:48 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.44 1990/09/11 19:50:29 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	43
+#define SUBVERSION	44
 #endif
 
 #ifndef UCODE_TABLES_FILENAME