Tcl Source Code

Artifact [fa019d6ce4]
Login

Artifact fa019d6ce40db583426bc7c42cadaa0c264928bb:

Ticket change [fa019d6ce4] - Closed ticket [8f559999fa]: background error swallowed with command delete trace on a coroutine plus 6 other changes by sebres 2017-06-23 08:12:13.
D 2017-06-23T08:12:13.491
J closedate 2457927.84182281
J closer sebres
J icomment I\srealized\sthat\syour\stracing\sinitialization\sis\swrong\shere\s-\scommand\sexecuted\sfrom\strace\sexpects\sspecified\sarguments.\r\n\r\nIf\syou\srewrite\syour\scode\slike:\r\n<code><verbatim>\r\nproc\sbgerror\s{error\soptions}\s{\r\n\s\s\s\sputs\sstderr\s[dict\sget\s$options\s-errorinfo]\r\n\s\s\s\sputs\sstderr\s*************exit-1\r\n\s\s\s\sexit\s1\r\n}\r\n\r\nproc\sp1\s{}\s{\r\n\s\s\s\syield\s[info\scoroutine]\r\n\s\s\s\sputs\s*************produce-error\r\n\s\s\s\serror\s{never\sgonna\sgive\syou\sup}\r\n}\r\n\r\nproc\strace-c1\s{args}\s{\r\n\s\s\s\sputs\s*************in-trace--$args\r\n}\r\n\r\ncoroutine\smain\s::apply\s[list\s{}\s{\r\n\s\s\s\syield\s[info\scoroutine]\r\n\s\s\s\scoroutine\sc1\sp1\r\n\s\s\s\s#\swrong\strace:\r\n\s\s\s\s#\strace\sadd\scommand\sc1\sdelete\s[info\scoroutine]\r\n\s\s\s\strace\sadd\scommand\sc1\sdelete\s[list\strace-c1\s[info\scoroutine]]\r\n\s\s\s\syieldto\sc1\r\n\s\s\s\sputs\sstderr\s*************exit-0\r\n\s\s\s\sexit\s0\r\n}\s[namespace\scurrent]]\r\n\r\nafter\sidle\smain\r\ninterp\sbgerror\s{}\s[namespace\swhich\sbgerror]\r\nvwait\sforever\r\n</verbatim></code>\r\n\r\nYou'll\sthen\ssee:\r\n<code><verbatim>\r\n*************produce-error\r\n*************in-trace--::main\s::c1\s{}\sdelete\r\nnever\sgonna\sgive\syou\sup\r\n\s\s\s\swhile\sexecuting\r\n"error\s{never\sgonna\sgive\syou\sup}"\r\n\s\s\s\s(procedure\s"p1"\sline\s4)\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"p1"\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"c1"\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"main"\r\n\s\s\s\s("after"\sscript)\r\n*************exit-1\r\n</verbatim></code>\r\n\r\nThus\sI\sclose\sthis\sas\sinvalid.\sPlease\sreopen\sif\sI'm\swrong.
J login sebres
J mimetype text/x-fossil-wiki
J resolution Invalid
J status Closed
K 8f559999fa000614504de7a7eefbc99dc7beea2b
U sebres
Z 6676a18fcbf652b0261f01475d1dc3c2