Attachment "memcmp-tcl.patch" to
ticket [1786647fff]
added by
mladenk
2007-09-02 21:19:51.
diff -aur tcl8.4.15/compat/memcmp.c tcl.new/compat/memcmp.c
--- tcl8.4.15/compat/memcmp.c 2007-01-23 00:27:53.000000000 +0100
+++ tcl.new/compat/memcmp.c 2007-09-02 09:41:18.000000000 +0200
@@ -52,7 +52,7 @@
CONST unsigned char *ptr2 = (CONST unsigned char *) s2;
for ( ; n-- ; ptr1++, ptr2++) {
- unsigned char u1 = *s1, u2 = *s2;
+ unsigned char u1 = *ptr1, u2 = *ptr2;
if ( u1 != u2) {
return (u1-u2);
Only in tcl.new/compat: memcmp.c~
