From 5c175f5d768842dd08df7409db7154452e18133e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 27 Jul 2006 03:28:11 +0000 Subject: [PATCH] ssl bug fix that I thought was already committed svn: r3832 --- collects/openssl/mzssl.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/openssl/mzssl.ss b/collects/openssl/mzssl.ss index f979bcc454..9f1e8f314a 100644 --- a/collects/openssl/mzssl.ss +++ b/collects/openssl/mzssl.ss @@ -134,7 +134,7 @@ (define-ssl SSL_CTX_set_verify (_SSL_CTX* _int _pointer -> _void)) (define-ssl SSL_CTX_use_certificate_chain_file (_SSL_CTX* _bytes -> _int)) - (define-ssl SSL_CTX_load_verify_locations (_SSL_CTX* _bytes -> _int)) + (define-ssl SSL_CTX_load_verify_locations (_SSL_CTX* _bytes _pointer -> _int)) (define-ssl SSL_CTX_set_client_CA_list (_SSL_CTX* _X509_NAME* -> _int)) (define-ssl SSL_CTX_use_RSAPrivateKey_file (_SSL_CTX* _bytes _int -> _int)) (define-ssl SSL_CTX_use_PrivateKey_file (_SSL_CTX* _bytes _int -> _int)) @@ -358,7 +358,7 @@ (define (ssl-load-verify-root-certificates! ssl-context-or-listener pathname) (ssl-load-... 'ssl-load-verify-root-certificates! - SSL_CTX_load_verify_locations + (lambda (a b) (SSL_CTX_load_verify_locations a b 0)) ssl-context-or-listener pathname)) (define (ssl-load-suggested-certificate-authorities! ssl-listener pathname)