Fixes for compilation with gcc 15

[micropolis] / src / tclx / src / tclxmath.c

diff --git a/src/tclx/src/tclxmath.c b/src/tclx/src/tclxmath.c
index 9f967bf4f2402c7f61f0f2b8f03ef835c7ceb70d..90bd9869adbdee7520f703e0e43ffa1f26b6b63b 100644 (file)
--- a/src/tclx/src/tclxmath.c
+++ b/src/tclx/src/tclxmath.c
@@ -16,6 +16,7 @@
  *-----------------------------------------------------------------------------
  */
 
+#include <time.h>
 #include "tclxint.h"
 
 extern int rand();
@@ -40,11 +41,12 @@ really_random _ANSI_ARGS_((int my_range));
  *-----------------------------------------------------------------------------
  */
 int
-Tcl_MaxCmd (clientData, interp, argc, argv)
-    ClientData  clientData;
-    Tcl_Interp *interp;
-    int         argc;
-    char      **argv;
+Tcl_MaxCmd (
+    ClientData  clientData,
+    Tcl_Interp *interp,
+    int         argc,
+    char      **argv
+)
 {
     double value, maxValue = -MAXDOUBLE;
     int    idx,   maxIdx   =  1;
@@ -81,11 +83,12 @@ Tcl_MaxCmd (clientData, interp, argc, argv)
  *-----------------------------------------------------------------------------
  */
 int
-Tcl_MinCmd (clientData, interp, argc, argv)
-    ClientData  clientData;
-    Tcl_Interp *interp;
-    int     argc;
-    char      **argv;
+Tcl_MinCmd (
+    ClientData  clientData,
+    Tcl_Interp *interp,
+    int     argc,
+    char      **argv
+)
 {
     double value, minValue = MAXDOUBLE;
     int    idx,   minIdx   = 1;
@@ -124,9 +127,7 @@ Tcl_MinCmd (clientData, interp, argc, argv)
 #endif
 
 static int 
-
-ReallyRandom (myRange)
-    int myRange;
+ReallyRandom (int myRange)
 {
     int maxMultiple, rnum;
 
@@ -157,11 +158,12 @@ ReallyRandom (myRange)
  *-----------------------------------------------------------------------------
  */
 int
-Tcl_RandomCmd (clientData, interp, argc, argv)
-    ClientData  clientData;
-    Tcl_Interp *interp;
-    int         argc;
-    char      **argv;
+Tcl_RandomCmd (
+    ClientData  clientData,
+    Tcl_Interp *interp,
+    int         argc,
+    char      **argv
+)
 {
     unsigned range;