Fixes for compilation with gcc 15

[micropolis] / src / tcl / tclget.c

diff --git a/src/tcl/tclget.c b/src/tcl/tclget.c
index 175f4064b25f257196ada65c7107f8ec2472ad4b..480b0728241c23f6feef611f0adffb5643cf6fbc 100644 (file)
--- a/src/tcl/tclget.c
+++ b/src/tcl/tclget.c
@@ -40,12 +40,13 @@ static char rcsid[] = "$Header: /user6/ouster/tcl/RCS/tclGet.c,v 1.11 92/02/29 1
  *----------------------------------------------------------------------
  */
 
  *----------------------------------------------------------------------
  */
 

-int
-Tcl_GetInt(interp, string, intPtr)
-    Tcl_Interp *interp;                /* Interpreter to use for error reporting. */
-    char *string;              /* String containing a (possibly signed)
+int 
+Tcl_GetInt (
+    Tcl_Interp *interp,                /* Interpreter to use for error reporting. */
+    char *string,              /* String containing a (possibly signed)

                                 * integer in a form acceptable to strtol. */
                                 * integer in a form acceptable to strtol. */

-    int *intPtr;               /* Place to store converted result. */
+    int *intPtr                /* Place to store converted result. */
+)

 {
     char *end;
     int i;
 {
     char *end;
     int i;


@@ -83,12 +84,13 @@ Tcl_GetInt(interp, string, intPtr)
  *----------------------------------------------------------------------
  */
 
  *----------------------------------------------------------------------
  */
 

-int
-Tcl_GetDouble(interp, string, doublePtr)
-    Tcl_Interp *interp;                /* Interpreter to use for error reporting. */
-    char *string;              /* String containing a floating-point number
+int 
+Tcl_GetDouble (
+    Tcl_Interp *interp,                /* Interpreter to use for error reporting. */
+    char *string,              /* String containing a floating-point number

                                 * in a form acceptable to strtod. */
                                 * in a form acceptable to strtod. */

-    double *doublePtr;         /* Place to store converted result. */
+    double *doublePtr          /* Place to store converted result. */
+)

 {
     char *end;
     double d;
 {
     char *end;
     double d;


@@ -126,14 +128,15 @@ Tcl_GetDouble(interp, string, doublePtr)
  *----------------------------------------------------------------------
  */
 
  *----------------------------------------------------------------------
  */
 

-int
-Tcl_GetBoolean(interp, string, boolPtr)
-    Tcl_Interp *interp;                /* Interpreter to use for error reporting. */
-    char *string;              /* String containing a boolean number
+int 
+Tcl_GetBoolean (
+    Tcl_Interp *interp,                /* Interpreter to use for error reporting. */
+    char *string,              /* String containing a boolean number

                                 * specified either as 1/0 or true/false or
                                 * yes/no. */
                                 * specified either as 1/0 or true/false or
                                 * yes/no. */

-    int *boolPtr;              /* Place to store converted result, which
+    int *boolPtr               /* Place to store converted result, which

                                 * will be 0 or 1. */
                                 * will be 0 or 1. */

+)

 {
     char c;
     char lowerCase[10];
 {
     char c;
     char lowerCase[10];