Tcl Source Code

Artifact 1e4e435b776c9a817571c9d007090fe7e34ed1d7d3c802e9cac90b3c2f16561e:

Attachment "9c397da4a9.diff" to ticket [9c397da4a9] added by chrstphrchvz 2023-05-04 12:03:15.

---

diff --git generic/tclStringObj.c generic/tclStringObj.c
index 7fbf77a711..537ae97fbf 100644
--- generic/tclStringObj.c
+++ generic/tclStringObj.c
@@ -3130,12 +3130,16 @@ AppendPrintfToObjVA(
 
 		break;
 	    }
+	    case 'p':
+		if (sizeof(size_t) == sizeof(Tcl_WideInt)) {
+		    size = 2;
+		}
+		/* FALLTHRU */
 	    case 'c':
 	    case 'i':
 	    case 'u':
 	    case 'd':
 	    case 'o':
-	    case 'p':
 	    case 'x':
 	    case 'X':
 		seekingConversion = 0;