Ada: fix initialization issue in examples

Detected by
```
gnatprove -Pclient.gpr --level=4 -j12
```
This commit is contained in:
mgrojo
2025-03-28 18:38:22 +01:00
parent db4ebfb77e
commit bf5009b544
2 changed files with 3 additions and 3 deletions

View File

@@ -204,8 +204,8 @@ package body Tls_Client with SPARK_Mode is
Output : WolfSSL.Write_Result;
Result : WolfSSL.Subprogram_Result;
DTLS : Boolean;
PSK : Boolean;
DTLS : Boolean := False;
PSK : Boolean := False;
begin
Result := WolfSSL.Initialize;
if Result /= Success then

View File

@@ -162,7 +162,7 @@ package body Tls_Server with SPARK_Mode is
Ch : Character;
Result : WolfSSL.Subprogram_Result;
DTLS, PSK : Boolean;
DTLS, PSK : Boolean := True;
Shall_Continue : Boolean := True;
Input : WolfSSL.Read_Result;