X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=queue.c;h=331fa1f977cd3635fe35f261095e9e70b8e7129e;hb=bbf493d419191bb2650c061f5f00a39f42cc272f;hp=8baebe98f6f7f16fa81022397f44ab289868031b;hpb=df19efe7b78ca6ad9c3bf676bda8d611cc576793;p=ir-tcl-moved-to-github.git

diff --git a/queue.c b/queue.c
index 8baebe9..331fa1f 100644
--- a/queue.c
+++ b/queue.c
@@ -6,7 +6,11 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: queue.c,v $
- * Revision 1.8  1996-03-05 09:21:20  adam
+ * 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.
+ *
+ * Revision 1.8  1996/03/05  09:21:20  adam
  * Bug fix: memory used by GRS records wasn't freed.
  * Rewrote some of the error handling code - the connection is always
  * closed before failback is called.
@@ -109,11 +113,7 @@ int ir_tcl_send_q (IrTcl_Obj *p, IrTcl_Request *rp, const char *msg)
         return TCL_ERROR;
     else if (r == 1)
     {
-#if IRTCL_GENERIC_FILES
-        ir_select_add_write (p->csFile, p);
-#else
         ir_select_add_write (cs_fileno (p->cs_link), p);
-#endif
         logf (LOG_DEBUG, "Send part of %s", msg);
         p->state = IR_TCL_R_Writing;
     }