paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix few cases of misplaced cInt (should be cLong)

Browse Source 
git-svn-id: trunk@8649 -
This commit is contained in:
Almindor 2007-09-26 11:49:00 +00:00
parent 650dc4468b
commit 5520a948e5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/extra/openssl/openssl.pas
View File

@ -198,11 +198,11 @@ var
function SslMethodTLSV1:PSSL_METHOD;
function SslMethodV23:PSSL_METHOD;
function SslCtxUsePrivateKey(ctx: PSSL_CTX; pkey: SslPtr):cInt;
function SslCtxUsePrivateKeyASN1(pk: cInt; ctx: PSSL_CTX; d: String; len: cInt):cInt;
function SslCtxUsePrivateKeyASN1(pk: cInt; ctx: PSSL_CTX; d: String; len: cLong):cInt;
// function SslCtxUsePrivateKeyFile(ctx: PSSL_CTX; const _file: PChar; _type: cInt):cInt;
function SslCtxUsePrivateKeyFile(ctx: PSSL_CTX; const _file: String; _type: cInt):cInt;
function SslCtxUseCertificate(ctx: PSSL_CTX; x: SslPtr):cInt;
function SslCtxUseCertificateASN1(ctx: PSSL_CTX; len: cInt; d: String):cInt;
function SslCtxUseCertificateASN1(ctx: PSSL_CTX; len: cLong; d: String):cInt;
function SslCtxUseCertificateFile(ctx: PSSL_CTX; const _file: String; _type: cInt):cInt;
// function SslCtxUseCertificateChainFile(ctx: PSSL_CTX; const _file: PChar):cInt;
function SslCtxUseCertificateChainFile(ctx: PSSL_CTX; const _file: String):cInt;
@ -226,7 +226,7 @@ var
function SSLGetCurrentCipher(s: PSSL):SslPtr;
function SSLCipherGetName(c: SslPtr): String;
function SSLCipherGetBits(c: SslPtr; var alg_bits: cInt):cInt;
function SSLGetVerifyResult(ssl: PSSL):cInt;
function SSLGetVerifyResult(ssl: PSSL):cLong;
// libeay.dll
function X509New: PX509;