From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 27 Oct 1993 23:11:43 +0000 (+0000)
Subject: Fix signed problems on Alpha.
X-Git-Tag: 20090517-FFI~7665
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ed6af2c4f63ee830204cbb4d1f4d534827f275f6;p=mit-scheme.git

Fix signed problems on Alpha.
---

diff --git a/v7/src/microcode/cmpauxmd/c.c b/v7/src/microcode/cmpauxmd/c.c
index 6e508d84c..79888c2be 100644
--- a/v7/src/microcode/cmpauxmd/c.c
+++ b/v7/src/microcode/cmpauxmd/c.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: c.c,v 1.4 1993/10/26 03:05:43 jawilson Exp $
+$Id: c.c,v 1.5 1993/10/27 23:11:43 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -236,9 +236,9 @@ DEFUN (C_to_interface, (entry), PTR in_entry)
   SCHEME_OBJECT * entry = ((SCHEME_OBJECT *) in_entry);
   while (1)
   {
-    int proc_index;
-    proc_index = (LABEL_PROCEDURE (entry));
-    if (proc_index >= max_compiled_code_blocks)
+    unsigned int proc_index = ((unsigned int) (LABEL_PROCEDURE (entry)));
+
+    if (proc_index >= ((unsigned int) max_compiled_code_blocks))
     {
       if (entry != &dummy_entry)
 #if 0