Made compiling with -Wstrict-prototypes -Wmissing-prototypes much cleaner.

Also added support for [FRQ 951168] but left that switched off by default.

4 files changed, 14 insertions, 7 deletions

diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c
index 484b649..4a2e7b2 100644
--- a/unix/tclUnixChan.c
+++ b/unix/tclUnixChan.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixChan.c,v 1.49 2004/05/04 03:52:28 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclUnixChan.c,v 1.50 2004/05/27 13:18:54 dkf Exp $
  */
 
 #include "tclInt.h"	/* Internal definitions for Tcl. */
@@ -274,10 +274,14 @@ static int		TtyCloseProc _ANSI_ARGS_((ClientData instanceData,
 			    Tcl_Interp *interp));
 static void		TtyGetAttributes _ANSI_ARGS_((int fd,
 			    TtyAttrs *ttyPtr));
+static int		TtyGetBaud _ANSI_ARGS_((unsigned long speed));
 static int		TtyGetOptionProc _ANSI_ARGS_((ClientData instanceData,
 			    Tcl_Interp *interp, CONST char *optionName,
 			    Tcl_DString *dsPtr));
+static unsigned long	TtyGetSpeed _ANSI_ARGS_((int baud));
 static FileState *	TtyInit _ANSI_ARGS_((int fd, int initialize));
+static void		TtyModemStatusStr _ANSI_ARGS_((int status,
+			    Tcl_DString *dsPtr));
 #if BAD_TIP35_FLUSH
 static int		TtyOutputProc _ANSI_ARGS_((ClientData instanceData,
 			    CONST char *buf, int toWrite, int *errorCode));
diff --git a/unix/tclUnixPort.h b/unix/tclUnixPort.h
index 8bb93bf..4000de6 100644
--- a/unix/tclUnixPort.h
+++ b/unix/tclUnixPort.h
@@ -19,7 +19,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixPort.h,v 1.36 2004/05/14 21:43:29 kennykb Exp $
+ * RCS: @(#) $Id: tclUnixPort.h,v 1.37 2004/05/27 13:18:55 dkf Exp $
  */
 
 #ifndef _TCLUNIXPORT
@@ -493,7 +493,9 @@ extern char **environ;
  * up being too many conflicts with slightly-different prototypes.
  */
 
+#ifdef NO_STDLIB_H
 extern double strtod();
+#endif
 
 /*
  * There is no platform-specific panic routine for Unix in the Tcl internals.
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c
index 880e4fd..f3414f5 100644
--- a/unix/tclUnixTest.c
+++ b/unix/tclUnixTest.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixTest.c,v 1.16 2004/04/06 22:25:57 dgp Exp $
+ * RCS: @(#) $Id: tclUnixTest.c,v 1.17 2004/05/27 13:18:55 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -81,7 +81,7 @@ static int		TestalarmCmd _ANSI_ARGS_((ClientData dummy,
 			    Tcl_Interp *interp, int argc, CONST char **argv));
 static int		TestgotsigCmd _ANSI_ARGS_((ClientData dummy,
 			    Tcl_Interp *interp, int argc, CONST char **argv));
-static void 		AlarmHandler _ANSI_ARGS_(());
+static void		AlarmHandler _ANSI_ARGS_((int signum));
 
 /*
  *----------------------------------------------------------------------
@@ -671,7 +671,8 @@ TestalarmCmd(clientData, interp, argc, argv)
  */
 
 static void
-AlarmHandler()
+AlarmHandler(signum)
+    int signum;
 {
     gotsig = "1";
 }
diff --git a/unix/tclUnixThrd.c b/unix/tclUnixThrd.c
index 3de2319..56745b0 100644
--- a/unix/tclUnixThrd.c
+++ b/unix/tclUnixThrd.c
@@ -126,9 +126,9 @@ Tcl_CreateThread(idPtr, proc, clientData, stackSize, flags)
 
 
     if (pthread_create((pthread_t *)idPtr, &attr,
-	    (void * (*)())proc, (void *)clientData) &&
+	    (void * (*)(void *))proc, (void *)clientData) &&
 	    pthread_create((pthread_t *)idPtr, NULL,
-		    (void * (*)())proc, (void *)clientData)) {
+		    (void * (*)(void *))proc, (void *)clientData)) {
 	result = TCL_ERROR;
     } else {
 	result = TCL_OK;