Artifact
48e626e24e27081dfcef051709fb041ccdf0921f:
Attachment "arrayunset3.patch" to
ticket [2939073fff]
added by
ferrieux
2010-02-03 00:32:01.
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 39 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 189.diff -u -p -
00b0: 72 31 2e 31 38 39 20 74 63 6c 56 61 72 2e 63 0a r1.189 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: 31 36 3a 31 32 3a 30 30 20 2d 30 30 30 30 09 31 16:12:00 -0000.1
00f0: 2e 31 38 39 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 .189.+++ 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 37 3a 33 31 3a 30 35 20 2d 30 2010 17:31:05 -0
0120: 30 30 30 0a 40 40 20 2d 34 30 36 34 2c 39 20 2b 000.@@ -4064,9 +
0130: 34 30 36 34 2c 37 20 40 40 20 41 72 72 61 79 55 4064,7 @@ ArrayU
0140: 6e 73 65 74 43 6d 64 28 0a 20 09 20 2a 2f 0a 20 nsetCmd(. . */.
0150: 0a 20 09 69 66 20 28 76 61 72 50 74 72 32 20 3d . .if (varPtr2 =
0160: 3d 20 70 72 6f 74 65 63 74 65 64 56 61 72 50 74 = protectedVarPt
0170: 72 29 20 7b 0a 2d 09 20 20 20 20 69 66 20 28 56 r) {.-. if (V
0180: 61 72 48 61 73 68 52 65 66 43 6f 75 6e 74 28 76 arHashRefCount(v
0190: 61 72 50 74 72 32 29 2d 2d 20 3d 3d 20 31 29 20 arPtr2)-- == 1)
01a0: 7b 0a 2d 09 09 43 6c 65 61 6e 75 70 56 61 72 28 {.-..CleanupVar(
01b0: 76 61 72 50 74 72 32 2c 20 76 61 72 50 74 72 29 varPtr2, varPtr)
01c0: 3b 0a 2d 09 20 20 20 20 7d 0a 2b 09 20 20 20 20 ;.-. }.+.
01d0: 56 61 72 48 61 73 68 52 65 66 43 6f 75 6e 74 28 VarHashRefCount(
01e0: 70 72 6f 74 65 63 74 65 64 56 61 72 50 74 72 29 protectedVarPtr)
01f0: 2d 2d 3b 0a 20 09 7d 0a 20 0a 20 09 2f 2a 0a 40 --;. .}. . ./*.@
0200: 40 20 2d 34 30 39 34 2c 31 32 20 2b 34 30 39 32 @ -4094,12 +4092
0210: 2c 31 33 20 40 40 20 41 72 72 61 79 55 6e 73 65 ,13 @@ ArrayUnse
0220: 74 43 6d 64 28 0a 20 09 09 20 2a 2f 0a 20 0a 20 tCmd(. .. */. .
0230: 09 09 69 66 20 28 70 72 6f 74 65 63 74 65 64 56 ..if (protectedV
0240: 61 72 50 74 72 29 20 7b 0a 2d 09 09 20 20 20 20 arPtr) {.-..
0250: 69 66 20 28 56 61 72 48 61 73 68 52 65 66 43 6f if (VarHashRefCo
0260: 75 6e 74 28 70 72 6f 74 65 63 74 65 64 56 61 72 unt(protectedVar
0270: 50 74 72 29 2d 2d 20 3d 3d 20 31 29 20 7b 0a 2d Ptr)-- == 1) {.-
0280: 09 09 09 43 6c 65 61 6e 75 70 56 61 72 28 70 72 ...CleanupVar(pr
0290: 6f 74 65 63 74 65 64 56 61 72 50 74 72 2c 20 76 otectedVarPtr, v
02a0: 61 72 50 74 72 29 3b 0a 2d 09 09 20 20 20 20 7d arPtr);.-.. }
02b0: 0a 2b 09 09 20 20 20 20 56 61 72 48 61 73 68 52 .+.. VarHashR
02c0: 65 66 43 6f 75 6e 74 28 70 72 6f 74 65 63 74 65 efCount(protecte
02d0: 64 56 61 72 50 74 72 29 3b 0a 2b 09 09 20 20 20 dVarPtr);.+..
02e0: 20 43 6c 65 61 6e 75 70 56 61 72 28 70 72 6f 74 CleanupVar(prot
02f0: 65 63 74 65 64 56 61 72 50 74 72 2c 20 76 61 72 ectedVarPtr, var
0300: 50 74 72 29 3b 0a 20 09 09 7d 0a 20 09 09 72 65 Ptr);. ..}. ..re
0310: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
0320: 20 09 20 20 20 20 7d 0a 2b 09 7d 20 65 6c 73 65 . }.+.} else
0330: 20 7b 0a 2b 09 20 20 20 20 43 6c 65 61 6e 75 70 {.+. Cleanup
0340: 56 61 72 28 76 61 72 50 74 72 32 2c 20 76 61 72 Var(varPtr2, var
0350: 50 74 72 29 3b 0a 20 09 7d 0a 20 20 20 20 20 7d Ptr);. .}. }
0360: 0a 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c . return TCL
0370: 5f 4f 4b 3b 0a _OK;.
