Re: [Xotcl] xotcl 1.3.7 problem

From: Gustaf Neumann <neumann_at_wu-wien.ac.at>
Date: Thu, 29 Sep 2005 19:26:48 +0200

Dear Koen,

thanks for the report, this was a fresh error introduced by fixing
another bug.
Below is the fix. seems as a good idea to come out with 1.3.8 soon.

best regards
-gustaf neumann
==========================================================

--- generic/xotcl.c-1.3.7 2005-09-27 00:49:25.000000000 +0200
+++ generic/xotcl.c 2005-09-29 19:23:15.000000000 +0200
_at_@ -7976,7 +7976,6 @@
   XOTclObject *obj = (XOTclObject*)cd;
   Tcl_Obj **ov;
   int i, oc, result = TCL_OK;
- char *varname = 0, *alias = 0;
   callFrameContext ctx = {0};
 
   if (!obj) return XOTclObjErrType(in, objv[0], "Object");
_at_@ -7993,6 +7992,7 @@
  
   for (i=1; i<objc; i++) {
     if ((result = Tcl_ListObjGetElements(in, objv[i], &oc, &ov)) ==
TCL_OK) {
+ char *varname = 0, *alias = 0;
       switch (oc) {
       case 0: {varname = ObjStr(objv[i]); break;}
       case 1: {varname = ObjStr(ov[0]); break;}