X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=queue.c;h=2ec36f09eb8f63a0cca876188402e2a0f667c636;hb=a710ad4e294c229cd66ee162c4ee972a2240aecd;hp=331fa1f977cd3635fe35f261095e9e70b8e7129e;hpb=bbf493d419191bb2650c061f5f00a39f42cc272f;p=ir-tcl-moved-to-github.git

diff --git a/queue.c b/queue.c
index 331fa1f..2ec36f0 100644
--- a/queue.c
+++ b/queue.c
@@ -6,7 +6,13 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: queue.c,v $
- * Revision 1.9  1996-03-20 13:54:05  adam
+ * 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
  * The Tcl_File structure is only manipulated in the Tk-event interface
  * in tkinit.c.
  *
@@ -81,7 +87,7 @@ int ir_tcl_send_APDU (Tcl_Interp *interp, IrTcl_Obj *p, Z_APDU *apdu,
     odr_reset (p->odr_out);
     if (p->state == IR_TCL_R_Idle)
     {
-        logf (LOG_DEBUG, "send_apdu. Sending %s", msg);
+        logf (LOG_DEBUG, "APDU send %s", msg);
         if (ir_tcl_send_q (p, p->request_queue, msg) == TCL_ERROR)
         {
             if (p->failback)
@@ -99,7 +105,7 @@ int ir_tcl_send_APDU (Tcl_Interp *interp, IrTcl_Obj *p, Z_APDU *apdu,
         } 
     }
     else
-        logf (LOG_DEBUG, "send_apdu. Not idle (%s)", msg);
+        logf (LOG_DEBUG, "APDU pending %s", msg);
     return TCL_OK;
 }
 
@@ -122,7 +128,7 @@ int ir_tcl_send_q (IrTcl_Obj *p, IrTcl_Request *rp, const char *msg)
         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;
@@ -135,11 +141,11 @@ void ir_tcl_del_q (IrTcl_Obj *p)
     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;
 }