Check-in [7c044da68e]
Bounty program for improvements to Tcl and certain Tcl packages.
Overview
Comment:Updated wording of debug messages to be correct
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tls-1-7
Files: files | file ages | folders
SHA1: 7c044da68e24b7520209eed62cf39dbaa7d93141
User & Date: rkeene on 2016-12-07 15:02:00
Other Links: branch diff | manifest | tags
Context
2016-12-07
15:10
More work towards getting the state engine for waiting for a connection to come back together check-in: 5aea4802ca user: rkeene tags: tls-1-7
15:02
Updated wording of debug messages to be correct check-in: 7c044da68e user: rkeene tags: tls-1-7
15:00
Added more debugging check-in: 82acecb1a4 user: rkeene tags: tls-1-7
Changes

Modified tlsBIO.c from [c29c7843c7] to [540c0ab883].

102
103
104
105
106
107
108
109

110
111
112
113

114
115
116
117
118
119
120
102
103
104
105
106
107
108

109
110
111
112

113
114
115
116
117
118
119
120






-
+



-
+







    dprintf("[%p] BioRead(%d) -> %d [tclEof=%d; tclErrno=%d]",
	    (void *) chan, bufLen, ret, tclEofChan, Tcl_GetErrno());

    BIO_clear_flags(bio, BIO_FLAGS_READ|BIO_FLAGS_SHOULD_RETRY);

    if (ret == 0) {
	if (!tclEofChan) {
            dprintf("Got 0 from Tcl_Read or Tcl_ReadRaw, and EOF is set -- ret == -1 now");
            dprintf("Got 0 from Tcl_Read or Tcl_ReadRaw, and EOF is not set -- ret == -1 now");
	    BIO_set_retry_read(bio);
	    ret = -1;
	} else {
            dprintf("Got 0 from Tcl_Read or Tcl_ReadRaw, and EOF is not set");
            dprintf("Got 0 from Tcl_Read or Tcl_ReadRaw, and EOF is set");
        }
    } else {
        dprintf("Got non-zero from Tcl_Read or Tcl_ReadRaw == ret == %i", ret);
    }
    if (BIO_should_write(bio)) {
	BIO_set_retry_write(bio);
    }