Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added additional debugging around asyncronous sockets |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | tls-1-7 |
| Files: | files | file ages | folders |
| SHA1: |
033849bf667fe2544ca21247c31ec51c |
| User & Date: | rkeene 2016-12-07 14:38:43 |
Context
|
2016-12-07
| ||
| 14:43 | More debugging around TLS retries check-in: e84900f887 user: rkeene tags: tls-1-7 | |
| 14:38 | Added additional debugging around asyncronous sockets check-in: 033849bf66 user: rkeene tags: tls-1-7 | |
|
2016-12-06
| ||
| 20:56 | Added a fallback for Tcl 8.4 with minimal support for loading the package check-in: 9c0b46c781 user: rkeene tags: tls-1-7 | |
Changes
Changes to tls.c.
| ︙ | ︙ | |||
637 638 639 640 641 642 643 |
Tcl_AppendResult(interp, "bad channel \"", Tcl_GetChannelName(chan),
"\": not a TLS channel", NULL);
return TCL_ERROR;
}
statePtr = (State *)Tcl_GetChannelInstanceData(chan);
if (!SSL_is_init_finished(statePtr->ssl)) {
| | > | 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 |
Tcl_AppendResult(interp, "bad channel \"", Tcl_GetChannelName(chan),
"\": not a TLS channel", NULL);
return TCL_ERROR;
}
statePtr = (State *)Tcl_GetChannelInstanceData(chan);
if (!SSL_is_init_finished(statePtr->ssl)) {
int err = 0;
ret = Tls_WaitForConnect(statePtr, &err);
if ((statePtr->flags & TLS_TCL_ASYNC) && err == EAGAIN) {
dprintf("Async set and err = EAGAIN");
ret = 0;
}
if (ret < 0) {
CONST char *errStr = statePtr->err;
Tcl_ResetResult(interp);
Tcl_SetErrno(err);
|
| ︙ | ︙ |