Check-in [033849bf66]
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: 033849bf667fe2544ca21247c31ec51ccba27567
User & Date: rkeene on 2016-12-07 14:38:43
Other Links: branch diff | manifest | tags
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
Modified tls.c from [829214fd98] to [9a523164da].
637
638
639
640
641
642
643
644

645
646

647
648
649
650
651
652
653
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;
	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);