[Tcl-bugs] [ tcl-Bugs-760947 ] trace on command leave changes errorInfo/errorCode

[SourceForge.net <no...@so...>]

Bugs item #760947, was opened at 2003-06-26 00:02
Message generated for change (Comment added) made by dgp
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=760947&group_id=10894

Category: 45. Traces
Group: = 8.4.3
Status: Open
Resolution: None
Priority: 9
Submitted By: yahalom emet (yahalom)
>Assigned to: Vince Darley (vincentdarley)
Summary: trace on command leave changes errorInfo/errorCode

Initial Comment:
Tcl Version 8.4.3
OS Platform and Version: windows 2000,linux redhat 7.3

when putting a trace on command execution leave the 
errorInfo and errorCode are not being set properly when 
an error happens in the command being called

proc traceLog {cmd info {result ""} {op ""}} {
	puts "----- trace -----"
	puts "command: $cmd"
	puts "info: $info"
	puts "result: $result"
	puts "op: $op"
	puts "----- leave trace -----"
}
proc test {} {
	error "testMsg" "testInfo" "testCode"
}
for {set i 0} {$i<2} {incr i} {
catch {test} msg
puts "message: $msg"
puts "errorInfo: $errorInfo"
puts "errorCode: $errorCode"
unset msg
unset errorCode
unset errorInfo
trace add execution test leave {traceLog}
}

result:

message: testMsg
errorInfo: testInfo
    (procedure "test"
    invoked from with
"test"
errorCode: testCode
----- trace -----
command: test
info: 1
result: testMsg
op: leave
----- leave trace ---
message: testMsg
errorInfo: testMsg
    while executing
"test"
errorCode: NONE

----------------------------------------------------------------------

>Comment By: Don Porter (dgp)
Date: 2003-07-17 15:53

Message:
Logged In: YES 
user_id=80530


Can I get another TIP 62 ruling?

Is this intended behavior?

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=760947&group_id=10894