evp-md-ctx-free ( ctx -- )

Vocabulary

checksums.openssl.private

Inputs

ctx

an object

Outputs

None

Definition

USING: kernel namespaces openssl openssl.libcrypto ;

IN: checksums.openssl.private

: evp-md-ctx-free ( ctx -- )
    ssl-new-api? get-global
    [ EVP_MD_CTX_free ] [ EVP_MD_CTX_destroy ] if ;