Posted to tcl by jima at Fri Sep 06 15:23:04 GMT 2013view raw
- 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] );