Posted to tcl by jima at Fri Aug 16 15:06:59 GMT 2013view raw

  1. Tcl_Obj *entryObjPtr = Tcl_GetHashValue( entryPtr );
  2. Tcl_DecrRefCount( entryObjPtr );
  3. Tcl_Obj *listPtr = entryObjPtr;
  4. Tcl_ListObjAppendElement( interp, listPtr, handler->objPtr );
  5. Tcl_IncrRefCount( listPtr );
  6. Tcl_SetHashValue( entryPtr, listPtr );