From fdaa2e090f2e9896485327731389b3f8098e8d8d Mon Sep 17 00:00:00 2001
From: Brian Drummond <brian@shapes.demon.co.uk>
Date: Fri, 13 Dec 2013 21:06:23 +0000
Subject: Patch for stack size limit test, https://gna.org/bugs/index.php?16463

---
 translate/grt/grt-options.adb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/translate/grt/grt-options.adb b/translate/grt/grt-options.adb
index 6d7384342..138c31dd9 100644
--- a/translate/grt/grt-options.adb
+++ b/translate/grt/grt-options.adb
@@ -217,7 +217,12 @@ package body Grt.Options is
       end if;
       if Pos > Str'Last then
          --  No suffix.
-         return Natural (Val);
+         if Val > Integer_64(Natural'Last) then
+            Error_C ("Size exceeds limit for option ");
+            Error_E (Option_Name);
+         else
+            return Natural (Val);
+         end if;
       end if;
       if Pos = Str'Last
         or else (Pos + 1 = Str'Last
-- 
cgit v1.2.3