From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 1 Nov 1993 16:16:15 +0000 (+0000)
Subject: Fix cast and typo.
X-Git-Tag: 20090517-FFI~7631
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=912b133daef54fc6511b7e2c172aa3ae64d8809b;p=mit-scheme.git

Fix cast and typo.
---

diff --git a/v7/src/microcode/pruxdld.c b/v7/src/microcode/pruxdld.c
index 2451ac276..e7606c9a1 100644
--- a/v7/src/microcode/pruxdld.c
+++ b/v7/src/microcode/pruxdld.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pruxdld.c,v 1.4 1993/11/01 15:36:43 gjr Exp $
+$Id: pruxdld.c,v 1.5 1993/11/01 16:16:15 gjr Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -176,7 +176,7 @@ the corresponding Scheme integer.")
   PRIMITIVE_HEADER (1);
   
   address = ((unsigned long) (arg_integer (1)));
-  thunk = ((unsinged long (*) ()) address);
+  thunk = ((unsigned long EXFUN ((*), (void))) address);
   result = ((* thunk) ());
   PRIMITIVE_RETURN (ulong_to_integer (result));
 }
@@ -190,5 +190,5 @@ Construct the corresponding Scheme string.")
   PRIMITIVE_HEADER (1);
 
   address = ((unsigned long) (arg_integer (1)));
-  PRIMITIVE_RETURN (char_pointer_to_string ((char *) address));
+  PRIMITIVE_RETURN (char_pointer_to_string ((unsigned char *) address));
 }