From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 27 Oct 1993 23:50:09 +0000 (+0000)
Subject: Fix broken declarations.
X-Git-Tag: 20090517-FFI~7663
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6809216da05169ceb7210ea44d2c91973b5823b6;p=mit-scheme.git

Fix broken declarations.
---

diff --git a/v7/src/microcode/cmpauxmd/c.c b/v7/src/microcode/cmpauxmd/c.c
index 79888c2be..1c88497a6 100644
--- a/v7/src/microcode/cmpauxmd/c.c
+++ b/v7/src/microcode/cmpauxmd/c.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: c.c,v 1.5 1993/10/27 23:11:43 gjr Exp $
+$Id: c.c,v 1.6 1993/10/27 23:50:09 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -116,8 +116,8 @@ DEFUN (lrealloc, (ptr, size),
 int
 DEFUN (declare_compiled_code, (name, decl_proc, code_proc),
        char * name
-       AND void EXFUN (decl_proc, (void))
-       AND SCHEME_OBJECT * EXFUN (code_proc, (SCHEME_OBJECT *)))
+       AND void EXFUN ((* decl_proc), (void))
+       AND SCHEME_OBJECT * EXFUN ((* code_proc), (SCHEME_OBJECT *)))
 {  
   int index;
 
@@ -151,7 +151,7 @@ DEFUN (declare_compiled_code, (name, decl_proc, code_proc),
   }
   compiled_code_blocks[index] = (code_proc);
   compiled_block_names[index] = name;
-  decl_proc ();
+  (* decl_proc) ();
   return (index);
 }
 
@@ -231,7 +231,7 @@ DEFUN (initialize_C_compiled_block, (argno, name),
 }
 
 void
-DEFUN (C_to_interface, (entry), PTR in_entry)
+DEFUN (C_to_interface, (in_entry), PTR in_entry)
 {
   SCHEME_OBJECT * entry = ((SCHEME_OBJECT *) in_entry);
   while (1)