Work around what is apparently a bug in the HP-UX 9.01 C compiler for

the S700 machines.

diff --git a/v7/src/microcode/cmpgc.h b/v7/src/microcode/cmpgc.h
index 290a34cf7f184b8abb430cfc39fce03407ef2537..5bd9014a191ff5201ed98670ca6e7953b3f3d2c7 100644 (file)
--- a/v7/src/microcode/cmpgc.h
+++ b/v7/src/microcode/cmpgc.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpgc.h,v 1.22 1992/08/30 14:02:59 jinx Exp $
+$Id: cmpgc.h,v 1.23 1993/03/23 22:34:54 cph Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -109,7 +109,7 @@ else
     offset_word = (COMPILED_ENTRY_OFFSET_WORD(var));                   \
     var = ((SCHEME_OBJECT *)                                           \
           (((char *) (var)) -                                          \
-           (OFFSET_WORD_TO_BYTE_OFFSET(offset_word))));                \
+           ((long) (OFFSET_WORD_TO_BYTE_OFFSET(offset_word)))));       \
   } while (OFFSET_WORD_CONTINUATION_P(offset_word));                   \
 }