Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Minor spacing |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | main | tls-2.0 |
| Files: | files | file ages | folders |
| SHA3-256: |
e831e54d8bb87cba31d430e0e5401bec |
| User & Date: | jan.nijtmans 2025-10-17 07:16:56 |
Context
|
2025-10-17
| ||
| 07:18 | close fork Leaf check-in: 4dfbd811b4 user: jan.nijtmans tags: trunk, main, tls-2.0 | |
| 07:16 | Minor spacing check-in: e831e54d8b user: jan.nijtmans tags: trunk, main, tls-2.0 | |
|
2025-10-16
| ||
| 09:33 | Fix various compiler warnings (like -Wconversion and -Wc++-compat) check-in: 9a7e09fcca user: jan.nijtmans tags: trunk, main, tls-2.0 | |
Changes
Changes to Makefile.in.
| ︙ | ︙ | |||
369 370 371 372 373 374 375 | # We need to enumerate the list of .c to .o lines here. # # In the following lines, $(srcdir) refers to the toplevel directory # containing your extension. If your sources are in a subdirectory, # you will have to modify the paths to reflect this: # # sample.$(OBJEXT): $(srcdir)/generic/sample.c | | | 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 | # We need to enumerate the list of .c to .o lines here. # # In the following lines, $(srcdir) refers to the toplevel directory # containing your extension. If your sources are in a subdirectory, # you will have to modify the paths to reflect this: # # sample.$(OBJEXT): $(srcdir)/generic/sample.c # $(COMPILE) -c `@CYGPATH@ $(srcdir)/generic/sample.c` -o $@ # # Setting the VPATH variable to a list of paths will cause the makefile # to look into these paths when resolving .c to .obj dependencies. # As necessary, add $(srcdir):$(srcdir)/compat:.... #======================================================================== VPATH = $(srcdir):$(srcdir)/generic:$(srcdir)/unix:$(srcdir)/win:$(srcdir)/macosx |
| ︙ | ︙ |
Changes to generic/tls.c.
| ︙ | ︙ | |||
3041 3042 3043 3044 3045 3046 3047 |
BIO_free(out);
} else {
out=BIO_new(BIO_s_file());
BIO_write_filename(out,keyout);
PEM_write_bio_PrivateKey(out,pkey,NULL,NULL,0,NULL,NULL);
/* PEM_write_bio_RSAPrivateKey(out, rsa, NULL, NULL, 0, NULL, NULL); */
BIO_free_all(out);
| | | 3041 3042 3043 3044 3045 3046 3047 3048 3049 3050 3051 3052 3053 3054 3055 |
BIO_free(out);
} else {
out=BIO_new(BIO_s_file());
BIO_write_filename(out,keyout);
PEM_write_bio_PrivateKey(out,pkey,NULL,NULL,0,NULL,NULL);
/* PEM_write_bio_RSAPrivateKey(out, rsa, NULL, NULL, 0, NULL, NULL); */
BIO_free_all(out);
}
if ((cert=X509_new())==NULL) {
Tcl_SetResult(interp,"Error generating certificate request",NULL);
EVP_PKEY_free(pkey);
#if OPENSSL_VERSION_NUMBER < 0x30000000L
BN_free(bne);
#endif
|
| ︙ | ︙ |
Changes to generic/tlsInt.h.
| ︙ | ︙ | |||
173 174 175 176 177 178 179 | #define TLS_TCL_SERVER (1<<1) /* Server-Side */ #define TLS_TCL_INIT (1<<2) /* Initializing connection */ #define TLS_TCL_DEBUG (1<<3) /* Show debug tracing */ #define TLS_TCL_CALLBACK (1<<4) /* In a callback, prevent update * looping problem. [Bug 1652380] */ #define TLS_TCL_FATAL_ERROR (1<<5) /* Set on handshake failure or other fatal error. All * further I/O will result in ECONNABORTED errors. */ | | | | 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 | #define TLS_TCL_SERVER (1<<1) /* Server-Side */ #define TLS_TCL_INIT (1<<2) /* Initializing connection */ #define TLS_TCL_DEBUG (1<<3) /* Show debug tracing */ #define TLS_TCL_CALLBACK (1<<4) /* In a callback, prevent update * looping problem. [Bug 1652380] */ #define TLS_TCL_FATAL_ERROR (1<<5) /* Set on handshake failure or other fatal error. All * further I/O will result in ECONNABORTED errors. */ #define TLS_TCL_FASTPATH (1<<6) /* The parent channel is being used * directly by the SSL library. */ #define TLS_TCL_EOF (1<<7) /* At EOF. Can't read, but can write. */ /* Set timer delay */ #define TLS_TCL_DELAY (5) /* * This structure describes the per-instance state of an SSL channel. * |
| ︙ | ︙ |
Changes to tests/remote.tcl.
| ︙ | ︙ | |||
44 45 46 47 48 49 50 |
puts $fd $l
puts $fd "---"
close $fd
}
set callerSocket $s
set ::errorInfo ""
if {[catch {uplevel "#0" $l} msg]} {
| | | 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
puts $fd $l
puts $fd "---"
close $fd
}
set callerSocket $s
set ::errorInfo ""
if {[catch {uplevel "#0" $l} msg]} {
if {0} {
set fd [open remoteServer.log a]
puts $fd "error: $msg"
close $fd
}
set code error
} else {
set code success
|
| ︙ | ︙ |