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

openssl: fix ssl-load-default-verify-sources! for Win64

Browse Source 
Closes PR 14784

Merge to v6.1.1

(cherry picked from commit 99832efb45)
This commit is contained in:
Matthew Flatt 2014-10-21 07:33:11 -05:00 committed by Ryan Culpepper
parent 91baed4085
commit db7e463b89
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/collects/openssl/private/win32.rkt
View File

@ -1,10 +1,12 @@
;; Support for loading root cerficates from Windows certificate store.
#lang racket/base #lang racket/base
(require ffi/unsafe (require ffi/unsafe
ffi/unsafe/define ffi/unsafe/define
ffi/unsafe/alloc ffi/unsafe/alloc
"add-cert.rkt") "add-cert.rkt"
ffi/winapi)
;; Support for loading root cerficates from Windows certificate store.
(provide load-win32-store) (provide load-win32-store)
;; -- Windows CryptoAPI ;; -- Windows CryptoAPI
@ -26,7 +28,7 @@
[certStore _pointer])) [certStore _pointer]))
(define-cpointer-type _CERT_CONTEXT _sCERT_CONTEXT-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 (define-crypt CertCloseStore
(_wfun _CERTSTORE (_DWORD = 0) -> _int) (_wfun _CERTSTORE (_DWORD = 0) -> _int)