paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 15:47:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix example so it compiles on Windows

Browse Source 
git-svn-id: trunk@40885 -
This commit is contained in:
michael 2019-01-17 09:39:38 +00:00
parent e3526ca0e9
commit 080e2bc2bb
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/gnutls/examples/srvcacert.pp
View File

@ -34,7 +34,7 @@ program srvcacert;
uses
sysutils,
classes,
baseunix,
dateutils,
ctypes,
gnutls;
@ -103,7 +103,7 @@ var
Vdata: Tgnutls_datum_t;
Vkeyid: AnsiString = '';
Vkeyidsize: csize_t;
Vactivation: time_t;
Vactivation: ttime_t;
Vca_pem_size: csize_t;
Vret: cint;
begin
@ -118,7 +118,7 @@ begin
0, @Acommon_name[1], Length(Acommon_name)));
TLSCheckRet(gnutls_x509_crt_set_version(Vcrt, 3));
TLSCheckRet(gnutls_x509_crt_set_serial(Vcrt, @Aserial[1], Length(Aserial)));
Vactivation := fptime;
Vactivation := DateTimeToUnix(Now,False);
TLSCheckRet(gnutls_x509_crt_set_activation_time(Vcrt, Vactivation));
TLSCheckRet(gnutls_x509_crt_set_expiration_time(Vcrt,
Vactivation + (Adays * 86400)));
@ -157,7 +157,7 @@ var
Vdata: Tgnutls_datum_t;
Vkeyid: AnsiString = '';
Vkeyidsize: csize_t;
Vactivation: time_t;
Vactivation: ttime_t;
Vsrv_pem_size: csize_t;
Vret: cint;
begin
@ -184,7 +184,7 @@ begin
TLSCheckRet(gnutls_x509_crt_set_version(Vsrv_crt, 3));
TLSCheckRet(gnutls_x509_crt_set_serial(Vsrv_crt, @Aserial[1],
Length(Aserial)));
Vactivation := fptime;
Vactivation := DateTimeToUnix(Now,False);
TLSCheckRet(gnutls_x509_crt_set_activation_time(Vsrv_crt, Vactivation));
TLSCheckRet(gnutls_x509_crt_set_expiration_time(Vsrv_crt,
Vactivation + (Adays * 86400)));
@ -235,7 +235,7 @@ var
Vdata: Tgnutls_datum_t;
Vkeyid: AnsiString = '';
Vkeyidsize: csize_t;
Vactivation: time_t;
Vactivation: ttime_t;
Vcli_pem_size: csize_t;
Vret: cint;
begin
@ -261,7 +261,7 @@ begin
TLSCheckRet(gnutls_x509_crt_set_version(Vcli_crt, 3));
TLSCheckRet(gnutls_x509_crt_set_serial(Vcli_crt, @Aserial[1],
Length(Aserial)));
Vactivation := fptime;
Vactivation := DateTimeToUnix(Now,False);
TLSCheckRet(gnutls_x509_crt_set_activation_time(Vcli_crt, Vactivation));
TLSCheckRet(gnutls_x509_crt_set_expiration_time(Vcli_crt,
Vactivation + (Adays * 86400)));