From 8c9a084b4ca1dbea52e2443bfda7f09510bdba13 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 7 Dec 1989 04:49:20 +0000
Subject: [PATCH] Fix masking bug in `compiled_entry_type'.

---
 v7/src/microcode/cmpint.c | 4 ++--
 v8/src/microcode/cmpint.c | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index cc0d797a2..52c0d2cc2 100644
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.23 1989/11/30 05:42:46 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.24 1989/12/07 04:49:20 cph Exp $
  *
  * Compiled code interface.  Portable version.
  * This file requires a bit of assembly language from cmpaux-md.m4
@@ -2087,7 +2087,7 @@ compiled_entry_type (entry, buffer)
 
   else
   {
-    switch (max_arity)
+    switch (((unsigned long) max_arity) & 0xff)
     {
       case FORMAT_BYTE_EXPR:
       {
diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index 296be9975..b9e0a14f3 100644
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.23 1989/11/30 05:42:46 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.24 1989/12/07 04:49:20 cph Exp $
  *
  * Compiled code interface.  Portable version.
  * This file requires a bit of assembly language from cmpaux-md.m4
@@ -2087,7 +2087,7 @@ compiled_entry_type (entry, buffer)
 
   else
   {
-    switch (max_arity)
+    switch (((unsigned long) max_arity) & 0xff)
     {
       case FORMAT_BYTE_EXPR:
       {
-- 
2.25.1