suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

openssl: fix bytes-terminator problem on Racket CS

Browse Source 
Make sure the argument to SSL_ctrl has a nul terminator.
This commit is contained in:
Matthew Flatt 2019-06-26 10:35:39 -06:00
parent 5e59ae0586
commit 8985a409b8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/openssl/mzssl.rkt
View File

@ -308,7 +308,8 @@ TO DO:
(define-ssl SSL_renegotiate (_fun _SSL* -> _int))
(define-ssl SSL_renegotiate_pending (_fun _SSL* -> _int))
(define-ssl SSL_do_handshake (_fun _SSL* -> _int))
(define-ssl SSL_ctrl (_fun _SSL* _int _long _pointer -> _long))
(define-ssl SSL_ctrl/bytes (_fun _SSL* _int _long _bytes/nul-terminated -> _long)
#:c-id SSL_ctrl)
(define-ssl SSL_set_SSL_CTX (_fun _SSL* _SSL_CTX* -> _SSL_CTX*))
(define-crypto X509_free (_fun _X509* -> _void)
@ -1456,7 +1457,7 @@ TO DO:
(ssl-context-verify-hostname? context-or-encrypt-method)]
[else #f])])
(when (string? hostname)
(SSL_ctrl ssl SSL_CTRL_SET_TLSEXT_HOSTNAME
(SSL_ctrl/bytes ssl SSL_CTRL_SET_TLSEXT_HOSTNAME
TLSEXT_NAMETYPE_host_name (string->bytes/latin-1 hostname)))
;; connect/accept: