+void ir_tcl_del_q (IrTcl_Obj *p)
+{
+ IrTcl_Request *rp, *rp1;
+
+ for (rp = p->request_queue; rp; rp = rp1)
+ {
+ free (rp->object_name);
+ free (rp->callback);
+ free (rp->buf_out);
+ rp1 = rp->next;
+ free (rp);
+ }
+ p->request_queue = NULL;
+}
+
+
+