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

            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 );