Posted to tcl by jima at Fri Sep 06 15:23:04 GMT 2013view pretty
objvYR[0] = Tcl_NewStringObj( "::tis::tisCont", -1 ); objvYR[1] = objv[objc-1]; /* trav */ objvYR[2] = tgtNodLisPtr[i1]; /* targetNode */ objvYR[3] = Tcl_NewStringObj( "VAccept", -1 ); objvYR[4] = objv[1]; /* visitor */ /* If I don't do these Tcl_EvalObjv will SegFault. */ Tcl_IncrRefCount( objvYR[0] ); Tcl_IncrRefCount( objvYR[3] ); result = Tcl_EvalObjv( interp, 5, objvYR, TCL_GLOBAL_ONLY ); /* I guess these are needed... */ Tcl_DecrRefCount( objvYR[0] ); Tcl_DecrRefCount( objvYR[3] );