From bd18a9bfcccefac9112eb5918712efc9d9b8a16a Mon Sep 17 00:00:00 2001
From: aidan garske <aidangarske03@gmail.com>
Date: Thu, 25 Jun 2026 14:45:31 -0700
Subject: [PATCH] F-4229 - Reject negative Size in Ada AES_Set_Cbc_Encrypt
 wrapper

---
 wrapper/Ada/wolfssl.adb | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/wrapper/Ada/wolfssl.adb b/wrapper/Ada/wolfssl.adb
index 4928a7d99d..e64ffb991e 100644
--- a/wrapper/Ada/wolfssl.adb
+++ b/wrapper/Ada/wolfssl.adb
@@ -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