From 0492557b21a3221c0d3270240d275b6f4df7fc09 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 3 Aug 1993 17:39:38 +0000
Subject: [PATCH] Add casts to remove warnings by HP cc.

---
 v7/src/microcode/primutl.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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,
-- 
2.25.1