+ if (Tcl_IsShared(val)) {
+ val= Tcl_DuplicateObj(val);
+ sth->copied= 1;
+ }
+ Tcl_InvalidateStringRep(val);
+ sth->obj= val;
+
+ return TCL_OK;
+}
+
+int pat_hbv(Tcl_Interp *ip, Tcl_Obj *var, HBytes_Var *agg) {
+ int rc;
+ rc= pat_somethingv(ip,var,&agg->sth,&hbytes_type); if (rc) return rc;
+ agg->hb= OBJ_HBYTES(agg->sth.obj);