wolfSSL/wolfssl
1
0
Fork 1
mirror of https://github.com/wolfSSL/wolfssl.git synced 2025-08-03 12:44:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

Made sure the relative paths for finding the certificates is correct.

Browse Source
This commit is contained in:
Joakim Strandberg
2023-07-31 23:48:44 +02:00
parent 6893123edf
commit 278f395542
2 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
wrapper/Ada/tls_client.adb
View File

@@ -101,9 +101,9 @@ package body Tls_Client with SPARK_Mode is
Any_Inet_Addr : Inet_Addr_Type renames SPARK_Sockets.Any_Inet_Addr; Any_Inet_Addr : Inet_Addr_Type renames SPARK_Sockets.Any_Inet_Addr;
CERT_FILE : constant String := "../certs/client-cert.pem"; CERT_FILE : constant String := "../../../certs/client-cert.pem";
KEY_FILE : constant String := "../certs/client-key.pem"; KEY_FILE : constant String := "../../../certs/client-key.pem";
CA_FILE : constant String := "../certs/ca-cert.pem"; CA_FILE : constant String := "../../../certs/ca-cert.pem";
subtype Byte_Array is WolfSSL.Byte_Array; subtype Byte_Array is WolfSSL.Byte_Array;

10
wrapper/Ada/tls_server.adb
View File

@@ -87,9 +87,9 @@ package body Tls_Server with SPARK_Mode is
Any_Inet_Addr : Inet_Addr_Type renames SPARK_Sockets.Any_Inet_Addr; Any_Inet_Addr : Inet_Addr_Type renames SPARK_Sockets.Any_Inet_Addr;
CERT_FILE : constant String := "../certs/server-cert.pem"; CERT_FILE : constant String := "../../../certs/server-cert.pem";
KEY_FILE : constant String := "../certs/server-key.pem"; KEY_FILE : constant String := "../../../certs/server-key.pem";
CA_FILE : constant String := "../certs/client-cert.pem"; CA_FILE : constant String := "../../../certs/client-cert.pem";
subtype Byte_Array is WolfSSL.Byte_Array; subtype Byte_Array is WolfSSL.Byte_Array;
@@ -305,7 +305,11 @@ package body Tls_Server with SPARK_Mode is
Put_Line ("ERROR: failed to write full response."); Put_Line ("ERROR: failed to write full response.");
end if; end if;
for I in 1 .. 3 loop
Result := WolfSSL.Shutdown (Ssl); Result := WolfSSL.Shutdown (Ssl);
exit when Result = Success;
delay 0.001; -- Delay is expressed in seconds.
end loop;
if Result /= Success then if Result /= Success then
Put_Line ("ERROR: Failed to shutdown WolfSSL context."); Put_Line ("ERROR: Failed to shutdown WolfSSL context.");
end if; end if;