From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 9 Aug 1990 19:52:20 +0000 (+0000)
Subject: Fix casting bug.
X-Git-Tag: 20090517-FFI~11264
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a492aded39a5972b76db1e6874b6bbc2439a9cc3;p=mit-scheme.git

Fix casting bug.
---

diff --git a/v7/src/microcode/uxtrap.c b/v7/src/microcode/uxtrap.c
index a9a10967c..cceca71c8 100644
--- a/v7/src/microcode/uxtrap.c
+++ b/v7/src/microcode/uxtrap.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtrap.c,v 1.3 1990/08/09 19:40:39 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtrap.c,v 1.4 1990/08/09 19:52:20 jinx Exp $
 
 Copyright (c) 1990 Massachusetts Institute of Technology
 
@@ -469,11 +469,11 @@ DEFUN (continue_from_trap, (signo, code, scp),
 
   new_stack_pointer =
     (scheme_sp_valid
-     ? scheme_sp
+     ? ((SCHEME_OBJECT *) scheme_sp)
      : (pc_in_C && (Stack_Pointer < Stack_Top)
 	&& (Stack_Pointer > Absolute_Stack_Base))
-     ? ((long) Stack_Pointer)
-     : ((long) 0));
+     ? Stack_Pointer
+     : ((SCHEME_OBJECT *) 0));
 
   if (pc_in_hyper_space || (pc_in_scheme && ALLOW_ONLY_C))
   {