From ed6af2c4f63ee830204cbb4d1f4d534827f275f6 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 27 Oct 1993 23:11:43 +0000
Subject: [PATCH] Fix signed problems on Alpha.

---
 v7/src/microcode/cmpauxmd/c.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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
-- 
2.25.1