Skip to content

Commit bf5009b

Browse files
committed
Ada: fix initialization issue in examples
Detected by ``` gnatprove -Pclient.gpr --level=4 -j12 ```
1 parent db4ebfb commit bf5009b

2 files changed

Lines changed: 3 additions & 3 deletions

File tree

wrapper/Ada/tls_client.adb

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -204,8 +204,8 @@ package body Tls_Client with SPARK_Mode is
204204
Output : WolfSSL.Write_Result;
205205

206206
Result : WolfSSL.Subprogram_Result;
207-
DTLS : Boolean;
208-
PSK : Boolean;
207+
DTLS : Boolean := False;
208+
PSK : Boolean := False;
209209
begin
210210
Result := WolfSSL.Initialize;
211211
if Result /= Success then

wrapper/Ada/tls_server.adb

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -162,7 +162,7 @@ package body Tls_Server with SPARK_Mode is
162162
Ch : Character;
163163

164164
Result : WolfSSL.Subprogram_Result;
165-
DTLS, PSK : Boolean;
165+
DTLS, PSK : Boolean := True;
166166
Shall_Continue : Boolean := True;
167167

168168
Input : WolfSSL.Read_Result;

0 commit comments

Comments
 (0)