From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 7 Apr 1987 16:58:25 +0000 (+0000)
Subject: The 500's compiler complains if a (bigdigit *) is not cast to
X-Git-Tag: 20090517-FFI~13647
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=99a84d5462f512b3250cd61aba307fb003274ee6;p=mit-scheme.git

The 500's compiler complains if a (bigdigit *) is not cast to
(Pointer *) before using Make_Pointer on it.
---

diff --git a/v7/src/microcode/bitstr.c b/v7/src/microcode/bitstr.c
index cfa7e21a0..fb28431b5 100644
--- a/v7/src/microcode/bitstr.c
+++ b/v7/src/microcode/bitstr.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/bitstr.c,v 9.22 1987/02/04 17:47:44 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bitstr.c,v 9.23 1987/04/07 16:58:25 jinx Exp $
 
    Bit string primitives. 
 
@@ -816,7 +816,7 @@ Built_In_Primitive( Prim_bit_string_to_unsigned_integer, 1,
   if (nbits != 0)
     *scan2 = (*--scan2 & low_mask( nbits));
 
-  return Make_Pointer( TC_BIG_FIXNUM, bignum);
+  return Make_Pointer( TC_BIG_FIXNUM, ((Pointer *) bignum));
 }
 
 /* These primitives should test the type of their first argument to