Tcl Source Code

Artifact [317ade47df]
Login

Artifact 317ade47df720441d9b97e53c79a8b89a1e30fd0627c2727d6fd1639039caa63:

Attachment "char-comment.diff" to ticket [597c31a387] added by chrstphrchvz 2022-02-17 09:29:42. (unpublished)
diff --git generic/tclBinary.c generic/tclBinary.c
index 5d317faa..77252be2 100644
--- generic/tclBinary.c
+++ generic/tclBinary.c
@@ -2056,13 +2056,6 @@ ScanNumber(
 
     switch (type) {
     case 'c':
-	/*
-	 * Characters need special handling. We want to produce a signed
-	 * result, but on some platforms (such as AIX) chars are unsigned. To
-	 * deal with this, check for a value that should be negative but
-	 * isn't.
-	 */
-
 	value = buffer[0];
 	if (!(flags & BINARY_UNSIGNED)) {
 	    if (value & 0x80) {