Fix masking bug in `compiled_entry_type'.

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index cc0d797a2f81f197ec28b1abd3985d8b58adeda3..52c0d2cc2cda448ba92743b6e9daac8fb83ec4cc 100644 (file)
--- 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)
 \f
   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 296be997543aa427d07fa86be658834505d064db..b9e0a14f330a5ca1d45019c0c9ee310e9b5911d0 100644 (file)
--- 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)
 \f
   else
   {
-    switch (max_arity)
+    switch (((unsigned long) max_arity) & 0xff)
     {
       case FORMAT_BYTE_EXPR:
       {