From db7e463b8968de69b69f2da025105adc71637d69 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 21 Oct 2014 07:33:11 -0500 Subject: [PATCH] openssl: fix `ssl-load-default-verify-sources!` for Win64 Closes PR 14784 Merge to v6.1.1 (cherry picked from commit 99832efb452ccbd1266b617d64ed3385553984cd) --- racket/collects/openssl/private/win32.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/racket/collects/openssl/private/win32.rkt b/racket/collects/openssl/private/win32.rkt index 02e7cda5d1..ae5d46abd9 100644 --- a/racket/collects/openssl/private/win32.rkt +++ b/racket/collects/openssl/private/win32.rkt @@ -1,10 +1,12 @@ -;; Support for loading root cerficates from Windows certificate store. - #lang racket/base (require ffi/unsafe ffi/unsafe/define ffi/unsafe/alloc - "add-cert.rkt") + "add-cert.rkt" + ffi/winapi) + +;; Support for loading root cerficates from Windows certificate store. + (provide load-win32-store) ;; -- Windows CryptoAPI @@ -26,7 +28,7 @@ [certStore _pointer])) (define-cpointer-type _CERT_CONTEXT _sCERT_CONTEXT-pointer) -(define-syntax-rule (_wfun . parts) (_fun #:abi 'stdcall . parts)) +(define-syntax-rule (_wfun . parts) (_fun #:abi winapi . parts)) (define-crypt CertCloseStore (_wfun _CERTSTORE (_DWORD = 0) -> _int)