Two more unused arguments.

Merge 8.7

2 files changed, 6 insertions, 15 deletions

diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index 6130b1f..5d43029 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -3615,10 +3615,10 @@ TclFormatInt(
 				 * formatted characters are written. */
     Tcl_WideInt n)			/* The integer to format. */
 {
-	Tcl_WideInt intVal;
+	Tcl_WideUInt intVal;
     int i;
     int numFormatted, j;
-    const char *digits = "0123456789";
+    static const char digits[] = "0123456789";
 
     /*
      * Check first whether "n" is zero.
@@ -3631,27 +3631,16 @@ TclFormatInt(
     }
 
     /*
-     * Check whether "n" is the maximum negative value. This is -2^(m-1) for
-     * an m-bit word, and has no positive equivalent; negating it produces the
-     * same value.
-     */
-
-    intVal = -n;			/* [Bug 3390638] Workaround for*/
-    if (n == -n || intVal == n) {	/* broken compiler optimizers. */
-	return sprintf(buffer, "%" TCL_LL_MODIFIER "d", n);
-    }
-
-    /*
      * Generate the characters of the result backwards in the buffer.
      */
 
-    intVal = (n < 0? -n : n);
+    intVal = (n < 0 ? -(Tcl_WideUInt)n : (Tcl_WideUInt)n);
     i = 0;
     buffer[0] = '\0';
     do {
 	i++;
 	buffer[i] = digits[intVal % 10];
-	intVal = intVal/10;
+	intVal = intVal / 10;
     } while (intVal > 0);
     if (n < 0) {
 	i++;
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c
index 3ee116e..9018bd1 100644
--- a/unix/tclUnixFCmd.c
+++ b/unix/tclUnixFCmd.c
@@ -2507,6 +2507,7 @@ GetUnixFileAttributes(
 {
     Tcl_StatBuf statBuf;
     int result;
+    (void)objIndex;
 
     result = TclpObjStat(fileName, &statBuf);
 
@@ -2549,6 +2550,7 @@ SetUnixFileAttributes(
     Tcl_StatBuf statBuf;
     int result, readonly;
     const char *native;
+    (void)objIndex;
 
     if (Tcl_GetBooleanFromObj(interp, attributePtr, &readonly) != TCL_OK) {
 	return TCL_ERROR;