Fixes for compilation with gcc 15

[micropolis] / src / tcl / tclassem.c

diff --git a/src/tcl/tclassem.c b/src/tcl/tclassem.c
index ed70991f628e14e2c6db05828192d86175ebc5e5..d444abf8ad45b8808e54b4d1bbe161f3621ffb58 100644 (file)
--- a/src/tcl/tclassem.c
+++ b/src/tcl/tclassem.c
@@ -62,8 +62,8 @@ typedef struct {
  *----------------------------------------------------------------------
  */
 
-Tcl_CmdBuf
-Tcl_CreateCmdBuf()
+Tcl_CmdBuf 
+Tcl_CreateCmdBuf (void)
 {
     register CmdBuf *cbPtr;
 
@@ -92,10 +92,11 @@ Tcl_CreateCmdBuf()
  *----------------------------------------------------------------------
  */
 
-void
-Tcl_DeleteCmdBuf(buffer)
-    Tcl_CmdBuf buffer;         /* Token for command buffer (return value
+void 
+Tcl_DeleteCmdBuf (
+    Tcl_CmdBuf buffer          /* Token for command buffer (return value
                                 * from previous call to Tcl_CreateCmdBuf). */
+)
 {
     register CmdBuf *cbPtr = (CmdBuf *) buffer;
 
@@ -131,15 +132,16 @@ Tcl_DeleteCmdBuf(buffer)
  */
 
 char *
-Tcl_AssembleCmd(buffer, string)
-    Tcl_CmdBuf buffer;         /* Token for a command buffer previously
+Tcl_AssembleCmd (
+    Tcl_CmdBuf buffer,         /* Token for a command buffer previously
                                 * created by Tcl_CreateCmdBuf.  */
-    char *string;              /* Bytes to be appended to command stream.
+    char *string               /* Bytes to be appended to command stream.
                                 * Note:  if the string is zero length,
                                 * then whatever is buffered will be
                                 * considered to be a complete command
                                 * regardless of whether parentheses are
                                 * matched or not. */
+)
 {
     register CmdBuf *cbPtr = (CmdBuf *) buffer;
     int length, totalLength;