Fixes for compilation with gcc 15

[micropolis] / src / tcl / tclckall.c

diff --git a/src/tcl/tclckall.c b/src/tcl/tclckall.c
index 037d42d5f7ed52264254cbe264936bdef54f3420..2afb57df4786fad29edd8cdfd015b39f243e722f 100644 (file)
--- a/src/tcl/tclckall.c
+++ b/src/tcl/tclckall.c
@@ -69,9 +69,8 @@ static int  init_malloced_bodies = FALSE;
  *
  *----------------------------------------------------------------------
  */
-static void
-dump_memory_info(outFile) 
-    FILE *outFile;
+static void 
+dump_memory_info (FILE *outFile)
 {
         fprintf(outFile,"total mallocs             %10d\n", 
                 total_mallocs);
@@ -95,12 +94,8 @@ dump_memory_info(outFile)
  *
  *----------------------------------------------------------------------
  */
-static void
-ValidateMemory (memHeaderP, file, line, nukeGuards)
-    struct mem_header *memHeaderP;
-    char              *file;
-    int                line;
-    int                nukeGuards;
+static void 
+ValidateMemory (struct mem_header *memHeaderP, char *file, int line, int nukeGuards)
 {
     unsigned char *hiPtr;
     int   idx;
@@ -158,10 +153,8 @@ ValidateMemory (memHeaderP, file, line, nukeGuards)
  *
  *----------------------------------------------------------------------
  */
-void
-Tcl_ValidateAllMemory (file, line)
-    char  *file;
-    int    line;
+void 
+Tcl_ValidateAllMemory (char *file, int line)
 {
     struct mem_header *memScanP;
 
@@ -181,9 +174,8 @@ Tcl_ValidateAllMemory (file, line)
  *     will have the file error number left in it.
  *----------------------------------------------------------------------
  */
-int
-Tcl_DumpActiveMemory (fileName)
-    char *fileName;
+int 
+Tcl_DumpActiveMemory (char *fileName)
 {
     FILE              *fileP;
     struct mem_header *memScanP;
@@ -226,10 +218,7 @@ Tcl_DumpActiveMemory (fileName)
  *----------------------------------------------------------------------
  */
 char *
-Tcl_DbCkalloc(size, file, line)
-    unsigned int size;
-    char        *file;
-    int          line;
+Tcl_DbCkalloc (unsigned int size, char *file, int line)
 {
     struct mem_header *result;
 
@@ -315,11 +304,8 @@ Tcl_DbCkalloc(size, file, line)
  *----------------------------------------------------------------------
  */
 
-int
-Tcl_DbCkfree(ptr, file, line)
-    char *  ptr;
-    char     *file;
-    int       line;
+int 
+Tcl_DbCkfree (char *ptr, char *file, int line)
 {
     struct mem_header *memp = 0;  /* Must be zero for size calc */
 
@@ -372,12 +358,8 @@ Tcl_DbCkfree(ptr, file, line)
  *----------------------------------------------------------------------
  */
        /* ARGSUSED */
-static int
-MemoryCmd (clientData, interp, argc, argv)
-    char       *clientData;
-    Tcl_Interp *interp;
-    int         argc;
-    char      **argv;
+static int 
+MemoryCmd (char *clientData, Tcl_Interp *interp, int argc, char **argv)
 {
     char *fileName;
 
@@ -465,9 +447,8 @@ bad_suboption:
  *
  *----------------------------------------------------------------------
  */
-void
-Tcl_InitMemory(interp)
-    Tcl_Interp *interp;
+void 
+Tcl_InitMemory (Tcl_Interp *interp)
 {
 Tcl_CreateCommand (interp, "memory", MemoryCmd, (ClientData)NULL, 
                   (void (*)())NULL);
@@ -486,8 +467,7 @@ Tcl_CreateCommand (interp, "memory", MemoryCmd, (ClientData)NULL,
  *----------------------------------------------------------------------
  */
 VOID *
-Tcl_Ckalloc (size)
-    unsigned int size;
+Tcl_Ckalloc (unsigned int size)
 {
         char *result;
 
@@ -507,9 +487,8 @@ Tcl_Ckalloc (size)
  *
  *----------------------------------------------------------------------
  */
-void
-Tcl_Ckfree (ptr)
-    VOID *ptr;
+void 
+Tcl_Ckfree (VOID *ptr)
 {
         free (ptr);
 }
@@ -524,9 +503,8 @@ Tcl_Ckfree (ptr)
  *----------------------------------------------------------------------
  */
        /* ARGSUSED */
-void
-Tcl_InitMemory(interp)
-    Tcl_Interp *interp;
+void 
+Tcl_InitMemory (Tcl_Interp *interp)
 {
 }