From 663fe4d4bcb0e50f13a970c554b828df45713a0f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 26 Jul 2005 15:21:42 +0000 Subject: [PATCH] fixed ssl-accept svn: r445 --- collects/openssl/mzssl.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/openssl/mzssl.c b/collects/openssl/mzssl.c index c42b568746..d5519e55a1 100644 --- a/collects/openssl/mzssl.c +++ b/collects/openssl/mzssl.c @@ -557,7 +557,7 @@ static void sslin_need_wakeup(Scheme_Input_Port *port, void *fds) Scheme_Input_Port *make_sslin_port(SSL *ssl, struct sslplt *wrapper, const char *name) { return scheme_make_input_port(ssl_input_port_type, wrapper, - scheme_make_immutable_sized_utf8_string((char *)name, -1), + scheme_make_immutable_sized_utf8_string(name ? (char *)name : "ssl", -1), ssl_get_string, NULL, scheme_progress_evt_via_get, @@ -787,7 +787,7 @@ static void sslout_need_wakeup(Scheme_Output_Port *port, void *fds) static Scheme_Output_Port *make_sslout_port(SSL *ssl, struct sslplt *data, const char *name) { return scheme_make_output_port(ssl_output_port_type, data, - scheme_make_immutable_sized_utf8_string((char *)name, -1), + scheme_make_immutable_sized_utf8_string(name ? (char *)name : "ssl-output", -1), scheme_write_evt_via_write, write_string, sslout_char_ready, sslout_close,