From c8ccffd84c7e5e9c079aca19750883ed0f2030f4 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-5757 - Reject negative Size in Ada AES_Set_Cbc_Decrypt
 wrapper

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

diff --git a/wrapper/Ada/wolfssl.adb b/wrapper/Ada/wolfssl.adb
index e64ffb991e..617dd245e7 100644
--- a/wrapper/Ada/wolfssl.adb
+++ b/wrapper/Ada/wolfssl.adb
@@ -1522,6 +1522,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