Posted to tcl by jima at Fri Sep 06 15:23:04 GMT 2013view raw

  1. objvYR[0] = Tcl_NewStringObj( "::tis::tisCont", -1 );
  2. objvYR[1] = objv[objc-1]; /* trav */
  3. objvYR[2] = tgtNodLisPtr[i1]; /* targetNode */
  4. objvYR[3] = Tcl_NewStringObj( "VAccept", -1 );
  5. objvYR[4] = objv[1]; /* visitor */
  6.  
  7. /* If I don't do these Tcl_EvalObjv will SegFault. */
  8. Tcl_IncrRefCount( objvYR[0] );
  9. Tcl_IncrRefCount( objvYR[3] );
  10.  
  11. result = Tcl_EvalObjv(
  12. interp, 5, objvYR, TCL_GLOBAL_ONLY
  13. );
  14.  
  15. /* I guess these are needed... */
  16. Tcl_DecrRefCount( objvYR[0] );
  17. Tcl_DecrRefCount( objvYR[3] );