Tcl_IncrRefCount(invoke);
rc= Tcl_ListObjReplace(ip,invoke,sock->script_llength,0,3,args);
+ for (i=0; i<3; i++) { Tcl_DecrRefCount(args[i]); args[i]= 0; }
if (rc) goto x_rc;
rc= Tcl_EvalObjEx(ip,invoke,TCL_EVAL_GLOBAL|TCL_EVAL_DIRECT);
- for (i=0; i<3; i++) Tcl_DecrRefCount(args[i]);
- Tcl_DecrRefCount(invoke);
-
- hbytes_free(&message_val);
- sockaddr_free(&peer_val);
-
x_rc:
+ if (invoke) Tcl_DecrRefCount(invoke);
+
if (rc)
Tcl_BackgroundError(ip);
}
static void sockid_t_dup(Tcl_Obj *src, Tcl_Obj *dup) {
dup->internalRep= src->internalRep;
+ dup->typePtr= &dgramsockid_type;
}
static void sockid_t_ustr(Tcl_Obj *o) {