Posted to tcl by jima at Fri Aug 16 15:06:59 GMT 2013view raw
- Tcl_Obj *entryObjPtr = Tcl_GetHashValue( entryPtr );
- Tcl_DecrRefCount( entryObjPtr );
- Tcl_Obj *listPtr = entryObjPtr;
- Tcl_ListObjAppendElement( interp, listPtr, handler->objPtr );
- Tcl_IncrRefCount( listPtr );
- Tcl_SetHashValue( entryPtr, listPtr );