From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 18 Feb 1993 05:14:43 +0000 (+0000)
Subject: Fix prototypes.
X-Git-Tag: 20090517-FFI~8502
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f7b844be882a13d215065d58cbad8fbde88efed3;p=mit-scheme.git

Fix prototypes.
---

diff --git a/v7/src/microcode/bchdmp.c b/v7/src/microcode/bchdmp.c
index 9f3cf1fc0..37d952bec 100644
--- a/v7/src/microcode/bchdmp.c
+++ b/v7/src/microcode/bchdmp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bchdmp.c,v 9.68 1993/02/06 05:27:26 gjr Exp $
+$Id: bchdmp.c,v 9.69 1993/02/18 05:14:43 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -265,7 +265,13 @@ DEFUN (fasdump_exit, (length), long length)
 
 #ifdef HAVE_FTRUNCATE
   {
-    extern int EXFUN (ftruncate, (int, size_t));
+#ifndef _HPUX
+    /* HP-UX version < 9.0 has the wrong type in the prototype
+       in <unistd.h>
+     */
+
+    extern int EXFUN (ftruncate, (int, off_t));
+#endif
 
     ftruncate (dump_file, length);
     result = ((close (dump_file)) == 0);
@@ -277,7 +283,13 @@ DEFUN (fasdump_exit, (length), long length)
 #endif /* HAVE_FTRUNCATE */
 #if defined(HAVE_TRUNCATE) && !defined(HAVE_FTRUNCATE)
   {
-    extern int EXFUN (truncate, (CONST char *, size_t));
+#ifndef _HPUX
+    /* HP-UX version < 9.0 has the wrong type in the prototype
+       in <unistd.h>
+     */
+
+    extern int EXFUN (truncate, (CONST char *, off_t));
+#endif
 
     truncate (dump_file_name, length);
   }
diff --git a/v7/src/microcode/tparam.c b/v7/src/microcode/tparam.c
index be133bda9..c3b8d73ea 100644
--- a/v7/src/microcode/tparam.c
+++ b/v7/src/microcode/tparam.c
@@ -111,9 +111,7 @@ what you give them.   Help stamp out software-hoarding!  */
 
 #include "ansidecl.h"
 
-#ifndef _BSD4_3
-extern char * EXFUN (tparam, (char *, char *, int, int, ...));
-#endif
+extern char * EXFUN (tparam, (char *, char *, int, int, int, int, int));
 extern char * EXFUN (tgoto, (char *, int, int));
 
 /* Assuming STRING is the value of a termcap string entry
@@ -168,7 +166,7 @@ tgoto (cm, hpos, vpos)
   return tparam1 (cm, tgoto_buf, 50, UP, BC, args);
 }
 
-static char *
+char *
 tparam1 (string, outstring, len, up, left, argp)
      char *string;
      char *outstring;