Tcl Source Code

Artifact [7f3ee173e9]
Login

Artifact 7f3ee173e9f5b376af79e3a97bf6f2934d2a97ba:

Ticket change [7f3ee173e9] - Closed ticket [3494470fff]: called Tcl_FindHashEntry on deleted table plus 6 other changes by dkf 2013-11-12 12:34:08.
D 2013-11-12T12:34:08.882
J closedate 2456609.02371391
J closer dkf
J comment %\sputs\s$tcl_patchLevel\r\n8.5.10\r\n%\sparray\stcl_platform\r\ntcl_platform(byteOrder)\s\s\s=\slittleEndian\r\ntcl_platform(machine)\s\s\s\s\s=\sx86_64\r\ntcl_platform(os)\s\s\s\s\s\s\s\s\s\s=\sLinux\r\ntcl_platform(osVersion)\s\s\s=\s3.0.0-16-generic\r\ntcl_platform(platform)\s\s\s\s=\sunix\r\ntcl_platform(pointerSize)\s=\s8\r\ntcl_platform(threaded)\s\s\s\s=\s1\r\ntcl_platform(user)\s\s\s\s\s\s\s\s=\srtreleaven\r\ntcl_platform(wordSize)\s\s\s\s=\s8\r\n%\s\r\n\r\nProblem\sBehavior\r\nThe\sscript\sbelow\sproduces\sthis\soutput\s>90%\sbut\s\s<100%\sof\sthe\stime.\r\n\r\n$\stclsh\sgetHelp.tcl\r\nDoes\sthread\sexist?\sno\r\nDoes\sthread\sexist?\sno\r\nDoes\sthread\sexist?\sno\r\nDoes\sthread\sexist?\sno\r\nDoes\sthread\sexist?\sno\r\nDoes\sthread\sexist?\sno\r\ncalled\sTcl_FindHashEntry\son\sdeleted\stable\r\n$\secho\s$?\r\n0\r\n\r\nExpected\sBehaviour\r\nThe\smessage\s"called\sTcl_FindHashEntry\son\sdeleted\stable"\sshould\snot\sbe\sgenerated\r\n\r\nConcise\sCode\sSample\r\n\r\nset\struth(1)\syes\r\nset\struth(0)\sno\r\npackage\srequire\sThread\r\nset\sid\s[\sthread::id\s]\r\nfor\s{\sset\si\s0\s}\s{\s$i\s<\s6\s}\s{\sincr\si\s}\s{\r\nthread::create\s-preserved\s{\r\nwhile\s1\s{\r\nfor\s{\sset\si\s0\s}\s{\s$i\s<\s9999999\s}\s{\sincr\si\s}\s{}\r\nupdate\r\n}\r\n}\r\n}\r\nafter\s1000\r\nforeach\sid\s[\sthread::names\s]\s{\r\nif\s{\s$id\seq\s[\sthread::id\s]\s}\s{\scontinue\s}\r\nthread::release\s-wait\s$id\r\nputs\s"Does\sthread\sexist?\s$truth([\sthread::exists\s$id])"\r\n}
J login dkf
J mimetype text/plain
J severity Minor
J status Closed
K 3494470fffffffffffffffffffffffffffffffff
U dkf
Z f33e04584823353b67d375642893a74c