Tcl Source Code

Artifact 30af80df9eca10119acd0b60e4b7b9a93f54dc02:

Attachment "545325.patch" to ticket [545325ffff] added by msofer 2002-04-19 01:07:53.

---

Index: generic/tclNamesp.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclNamesp.c,v
retrieving revision 1.29
diff -u -r1.29 tclNamesp.c
--- generic/tclNamesp.c	28 Feb 2002 20:11:09 -0000	1.29
+++ generic/tclNamesp.c	18 Apr 2002 18:04:09 -0000
@@ -2928,7 +2928,7 @@
     Tcl_Obj *CONST objv[];	/* Argument objects. */
 {
     Tcl_Namespace *namespacePtr;
-    Tcl_CallFrame frame;
+    CallFrame frame;
     Tcl_Obj *objPtr;
     char *name;
     int length, result;
@@ -2966,11 +2966,13 @@
      * the command(s).
      */
 
-    result = Tcl_PushCallFrame(interp, &frame, namespacePtr,
-	    /*isProcCallFrame*/ 0);
+    result = Tcl_PushCallFrame(interp, (Tcl_CallFrame *) &frame, 
+            namespacePtr, /*isProcCallFrame*/ 0);
     if (result != TCL_OK) {
         return TCL_ERROR;
     }
+    frame.objc = objc;
+    frame.objv = objv;  /* ref counts do not need to be incremented here */
 
     if (objc == 4) {
         result = Tcl_EvalObjEx(interp, objv[3], 0);
Index: tests/info.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/info.test,v
retrieving revision 1.19
diff -u -r1.19 info.test
--- tests/info.test	18 Apr 2002 14:12:07 -0000	1.19
+++ tests/info.test	18 Apr 2002 18:04:13 -0000
@@ -338,6 +338,11 @@
     proc t1 {x} {info level $x}
     list [catch {t1 -3} msg] $msg
 } {1 {bad level "-3"}}
+test info-9.10 {info level option, namespaces} {
+    set msg [namespace eval t {info level 0}]
+    namespace delete t
+    set msg
+} {namespace eval t {info level 0}}
 
 set savedLibrary $tcl_library
 test info-10.1 {info library option} {