From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 3 Aug 1993 17:39:38 +0000 (+0000)
Subject: Add casts to remove warnings by HP cc.
X-Git-Tag: 20090517-FFI~8135
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0492557b21a3221c0d3270240d275b6f4df7fc09;p=mit-scheme.git

Add casts to remove warnings by HP cc.
---

diff --git a/v7/src/microcode/primutl.c b/v7/src/microcode/primutl.c
index a93a0ac92..6c2b8d77a 100644
--- a/v7/src/microcode/primutl.c
+++ b/v7/src/microcode/primutl.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: primutl.c,v 9.61 1993/08/03 08:30:00 gjr Exp $
+$Id: primutl.c,v 9.62 1993/08/03 17:39:38 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -537,7 +537,8 @@ DEFUN (find_primitive, (sname, intern_p, allow_p, arity),
        SCHEME_OBJECT sname AND Boolean intern_p
        AND Boolean allow_p AND int arity)
 {
-  node prim = (tree_lookup (prim_procedure_tree, (STRING_LOC (sname, 0))));
+  node prim = (tree_lookup (prim_procedure_tree,
+			    ((char *) (STRING_LOC (sname, 0)))));
 
   if (prim != ((node) NULL))
   {
@@ -568,7 +569,7 @@ DEFUN (find_primitive, (sname, intern_p, allow_p, arity),
 
     if (cname == ((char *) NULL))
       error_in_system_call (syserr_not_enough_space, syscall_malloc);
-    strcpy (cname, (STRING_LOC (sname, 0)));
+    strcpy (cname, ((char *) (STRING_LOC (sname, 0))));
     primitive =
       (declare_primitive (cname,
 			  Prim_unimplemented,