-
/*
* IR toolkit for tcl/tk
- * (c) Index Data 1995
+ * (c) Index Data 1995-1999
* See the file LICENSE for details.
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: queue.c,v $
- * Revision 1.10 1996-06-03 09:04:24 adam
+ * Revision 1.12 1999-04-20 10:01:46 adam
+ * Modified calls to ODR encoders/decoders (name argument).
+ *
+ * Revision 1.11 1996/07/03 13:31:14 adam
+ * The xmalloc/xfree functions from YAZ are used to manage memory.
+ *
+ * Revision 1.10 1996/06/03 09:04:24 adam
* Changed a few logf calls.
*
* Revision 1.9 1996/03/20 13:54:05 adam
{
IrTcl_Request **rp;
- if (!z_APDU (p->odr_out, &apdu, 0))
+ if (!z_APDU (p->odr_out, &apdu, 0, 0))
{
Tcl_AppendResult (interp, odr_errmsg (odr_geterror (p->odr_out)),
NULL);
logf (LOG_DEBUG, "Send %s (%d bytes) fd=%d", msg, rp->len_out,
cs_fileno(p->cs_link));
p->state = IR_TCL_R_Waiting;
- free (rp->buf_out);
+ xfree (rp->buf_out);
rp->buf_out = NULL;
}
return TCL_OK;
p->state = IR_TCL_R_Idle;
for (rp = p->request_queue; rp; rp = rp1)
{
- free (rp->object_name);
- free (rp->callback);
- free (rp->buf_out);
+ xfree (rp->object_name);
+ xfree (rp->callback);
+ xfree (rp->buf_out);
rp1 = rp->next;
- free (rp);
+ xfree (rp);
}
p->request_queue = NULL;
}