F-4229 - Reject negative Size in Ada AES_Set_Cbc_Encrypt wrapper

2026-07-10 05:40:50 +02:00 · 2026-06-25 14:45:31 -07:00
parent 869e732b5f
commit bd18a9bfcc
1 changed files with 4 additions and 0 deletions
@@ -1493,6 +1493,10 @@ package body WolfSSL is
                                  Size : Integer;
                                  Result : out Integer) is
   begin
+      if Size < 0 then
+         Result := Exception_Error;
+         return;
+      end if;
      declare
         R : int;
      begin