Artifact
232e22635d09f538bfdf02971408bf941c88649c:
Attachment "arrayunset2.patch" to
ticket [2939073fff]
added by
ferrieux
2010-02-02 23:09:49.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 56 61 72 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d clVar.c.========
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 ===========.RCS
0060: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
0070: 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 cl/tcl/generic/t
0080: 63 6c 56 61 72 2e 63 2c 76 0a 72 65 74 72 69 65 clVar.c,v.retrie
0090: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
00a0: 31 38 38 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 188.diff -u -p -
00b0: 72 31 2e 31 38 38 20 74 63 6c 56 61 72 2e 63 0a r1.188 tclVar.c.
00c0: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 56 --- generic/tclV
00d0: 61 72 2e 63 09 32 20 46 65 62 20 32 30 31 30 20 ar.c.2 Feb 2010
00e0: 30 30 3a 32 39 3a 33 32 20 2d 30 30 30 30 09 31 00:29:32 -0000.1
00f0: 2e 31 38 38 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 .188.+++ generic
0100: 2f 74 63 6c 56 61 72 2e 63 09 32 20 46 65 62 20 /tclVar.c.2 Feb
0110: 32 30 31 30 20 31 36 3a 30 38 3a 31 39 20 2d 30 2010 16:08:19 -0
0120: 30 30 30 0a 40 40 20 2d 33 32 39 30 2c 39 20 2b 000.@@ -3290,9 +
0130: 33 32 39 30 2c 31 32 20 40 40 20 54 63 6c 5f 41 3290,12 @@ Tcl_A
0140: 72 72 61 79 4f 62 6a 43 6d 64 28 0a 20 0a 20 09 rrayObjCmd(. . .
0150: 09 09 69 66 20 28 70 72 6f 74 65 63 74 65 64 56 ..if (protectedV
0160: 61 72 50 74 72 29 20 7b 0a 20 09 09 09 20 20 20 arPtr) {. ...
0170: 20 56 61 72 48 61 73 68 52 65 66 43 6f 75 6e 74 VarHashRefCount
0180: 28 70 72 6f 74 65 63 74 65 64 56 61 72 50 74 72 (protectedVarPtr
0190: 29 2d 2d 3b 0a 2b 09 09 09 20 20 20 20 43 6c 65 )--;.+... Cle
01a0: 61 6e 75 70 56 61 72 28 70 72 6f 74 65 63 74 65 anupVar(protecte
01b0: 64 56 61 72 50 74 72 2c 20 61 72 72 61 79 50 74 dVarPtr, arrayPt
01c0: 72 29 3b 0a 20 09 09 09 7d 0a 20 09 09 09 72 65 r);. ...}. ...re
01d0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
01e0: 20 09 09 20 20 20 20 7d 0a 2b 09 09 7d 20 65 6c .. }.+..} el
01f0: 73 65 20 7b 0a 2b 09 09 20 20 20 20 43 6c 65 61 se {.+.. Clea
0200: 6e 75 70 56 61 72 28 76 61 72 50 74 72 32 2c 20 nupVar(varPtr2,
0210: 61 72 72 61 79 50 74 72 29 3b 0a 20 09 09 7d 0a arrayPtr);. ..}.
0220: 20 09 20 20 20 20 7d 0a 20 09 20 20 20 20 62 72 . }. . br
0230: 65 61 6b 3b 0a eak;.
