From 135fefd79afc8789ddca18eee79c9366f01b5ed9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= Date: Wed, 6 Dec 2023 09:56:51 +0100 Subject: [PATCH] * Fix time argument of X509GmtimeAdj. Fixes issue #40555 (cherry picked from commit a546d4e64d4958bc5b6b120e6f4e9eea02a427cc) --- packages/openssl/src/openssl.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/packages/openssl/src/openssl.pas b/packages/openssl/src/openssl.pas index c4c4f06565..c5d4da46ce 100644 --- a/packages/openssl/src/openssl.pas +++ b/packages/openssl/src/openssl.pas @@ -1155,7 +1155,7 @@ var function X509NameAddEntryByTxt(name: PX509_NAME; field: string; _type: cInt; bytes: string; len, loc, _set: cInt): cInt; function X509Sign(x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): cInt; - function X509GmtimeAdj(s: PASN1_UTCTIME; adj: cInt): PASN1_UTCTIME; + function X509GmtimeAdj(s: PASN1_UTCTIME; adj: cLong): PASN1_UTCTIME; function X509SetNotBefore(x: PX509; tm: PASN1_UTCTIME): cInt; function X509SetNotAfter(x: PX509; tm: PASN1_UTCTIME): cInt; function X509GetSerialNumber(x: PX509): PASN1_cInt; @@ -1653,7 +1653,7 @@ type TX509NameAddEntryByTxt = function(name: PX509_NAME; field: PChar; _type: cInt; bytes: PChar; len, loc, _set: cInt): cInt; cdecl; TX509Sign = function(x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): cInt; cdecl; - TX509GmtimeAdj = function(s: PASN1_UTCTIME; adj: cInt): PASN1_UTCTIME; cdecl; + TX509GmtimeAdj = function(s: PASN1_UTCTIME; adj: cLong): PASN1_UTCTIME; cdecl; TX509SetNotBefore = function(x: PX509; tm: PASN1_UTCTIME): cInt; cdecl; TX509SetNotAfter = function(x: PX509; tm: PASN1_UTCTIME): cInt; cdecl; TX509GetSerialNumber = function(x: PX509): PASN1_cInt; cdecl; @@ -3016,7 +3016,7 @@ begin Result := 0; end; -function X509GmtimeAdj(s: PASN1_UTCTIME; adj: cInt): PASN1_UTCTIME; +function X509GmtimeAdj(s: PASN1_UTCTIME; adj: cLong): PASN1_UTCTIME; begin if InitSSLInterface and Assigned(_X509GmtimeAdj) then Result := _X509GmtimeAdj(s, adj)