Artifact
c8a91f2055fef54a72756fd6fbfe9b81ab8c36de:
Attachment "tcl-8.4.13-upvar-msg.patch" to
ticket [1639858fff]
added by
nobody
2007-01-20 04:02:21.
0000: 2d 2d 2d 20 74 63 6c 38 2e 34 2e 31 33 2f 67 65 --- tcl8.4.13/ge
0010: 6e 65 72 69 63 2f 74 63 6c 50 72 6f 63 2e 63 2e neric/tclProc.c.
0020: 6f 72 69 67 09 4d 6f 6e 20 4f 63 74 20 32 34 20 orig.Mon Oct 24
0030: 30 31 3a 30 31 3a 33 30 20 32 30 30 35 0a 2b 2b 01:01:30 2005.++
0040: 2b 20 74 63 6c 38 2e 34 2e 31 33 2f 67 65 6e 65 + tcl8.4.13/gene
0050: 72 69 63 2f 74 63 6c 50 72 6f 63 2e 63 09 54 68 ric/tclProc.c.Th
0060: 75 20 4a 61 6e 20 31 38 20 32 32 3a 31 37 3a 35 u Jan 18 22:17:5
0070: 36 20 32 30 30 37 0a 40 40 20 2d 35 38 34 2c 36 6 2007.@@ -584,6
0080: 20 2b 35 38 34 2c 37 20 40 40 0a 20 20 20 20 20 +584,7 @@.
0090: 7d 20 65 6c 73 65 20 7b 0a 20 09 6c 65 76 65 6c } else {. .level
00a0: 20 3d 20 63 75 72 4c 65 76 65 6c 20 2d 20 31 3b = curLevel - 1;
00b0: 0a 20 09 72 65 73 75 6c 74 20 3d 20 30 3b 0a 2b . .result = 0;.+
00c0: 09 73 74 72 69 6e 67 20 3d 20 22 31 22 3b 20 2f .string = "1"; /
00d0: 2a 20 61 20 68 61 63 6b 20 74 6f 20 66 69 78 20 * a hack to fix
00e0: 74 68 65 20 65 72 72 6f 72 20 6d 65 73 73 61 67 the error messag
00f0: 65 20 69 66 20 6c 65 76 65 6c 20 69 73 20 6e 6f e if level is no
0100: 74 20 66 6f 75 6e 64 20 2a 2f 0a 20 20 20 20 20 t found */.
0110: 7d 0a 20 0a 20 20 20 20 20 2f 2a 0a }. . /*.
