projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Minor changes.
[ir-tcl-moved-to-github.git]
/
ir-tcl.c
diff --git
a/ir-tcl.c
b/ir-tcl.c
index
3d6eea9
..
edfd4c3
100644
(file)
--- a/
ir-tcl.c
+++ b/
ir-tcl.c
@@
-4,7
+4,10
@@
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: ir-tcl.c,v $
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: ir-tcl.c,v $
- * Revision 1.17 1995-03-21 13:41:03 adam
+ * Revision 1.18 1995-03-21 15:50:12 adam
+ * Minor changes.
+ *
+ * Revision 1.17 1995/03/21 13:41:03 adam
* Comstack cs_create not used too often. Non-blocking connect.
*
* Revision 1.16 1995/03/21 08:26:06 adam
* Comstack cs_create not used too often. Non-blocking connect.
*
* Revision 1.16 1995/03/21 08:26:06 adam
@@
-1491,13
+1494,12
@@
void ir_select_read (ClientData clientData)
if (r == 1)
return;
p->connectFlag = 0;
if (r == 1)
return;
p->connectFlag = 0;
+ ir_select_remove_write (cs_fileno (p->cs_link), p);
if (r < 0)
{
printf ("cs_rcvconnect error\n");
if (r < 0)
{
printf ("cs_rcvconnect error\n");
- ir_select_remove_write (cs_fileno (p->cs_link), p);
return;
}
return;
}
- ir_select_remove_write (cs_fileno (p->cs_link), p);
if (p->callback)
Tcl_Eval (p->interp, p->callback);
return;
if (p->callback)
Tcl_Eval (p->interp, p->callback);
return;