[Tcl-bugs] [ tcl-Bugs-1246399 ] error command faile to set errorCode

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

Bugs item #1246399, was opened at 2005-07-27 16:01
Message generated for change (Comment added) made by alvinpleung
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1246399&group_id=10894

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: 16. Commands A-H
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Alvin Leung (alvinpleung)
Assigned to: Don Porter (dgp)
Summary: error command faile to set errorCode

Initial Comment:
I am currrently using tcl 8.4.9 with Itcl 3.2.  My
program throws an error with error code inside one of
the itcl object method.  However, the errorcode in the
global scope did not get updated.


#Error code in tcl 
saveErrorCode - NONE

#tclCmdAH.c:563 for tcl8.4.9 with Itcl 3.2
errorCode = TOOMANYWIRETYPE

#Error code in tcl 
saveErrorCode - NONE

proc saveErrorCode {name index op} {
puts "saveErrorCode - [set $name]"
}

trace variable errorCode rwu saveErrorCode

# trace is generated
if {[catch {$a run $xmlf} msg]} {
...
}

I changed tclCmdAH.c:563 from
Tcl_SetVar2Ex(interp, "errorCode", NULL, objv[3],
TCL_GLOBAL_ONLY);

to

Tcl_ObjSetVar2(interp, iPtr->execEnvPtr->errorCode,
NULL, objv[3], TCL_GLOBAL_ONLY);


The trace changed to
#Error code in tcl
saveErrorCode - NONE

#tclCmdAH.c:563 for tcl8.4.9 with Itcl 3.2
errorCode = TOOMANYWIRETYPE

#Error code in tcl
saveErrorCode - TOOMANYWIRETYPE


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

>Comment By: Alvin Leung (alvinpleung)
Date: 2005-07-28 12:23

Message:
Logged In: YES 
user_id=958624

My test case was not clean, so the fix does not work. 
However, the bug is real.  As far as I know, the bug only
appears if I use Itcl 3.2.1 and tclXML 3.0 packages
togather.  I will update this bug, when I know more.

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

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