From 981ccfb0e80e8fffffeed480d311b8c156b640c1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 3 May 2019 19:27:18 +0200
Subject: vhdl: do not crash on 64 bit null range.

Fix #810
---
 src/vhdl/translate/trans-chap3.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb
index 7556f2b23..66e897660 100644
--- a/src/vhdl/translate/trans-chap3.adb
+++ b/src/vhdl/translate/trans-chap3.adb
@@ -345,7 +345,9 @@ package body Trans.Chap3 is
       Get_Low_High_Limit (Get_Range_Constraint (St), L, H);
       Lv := Get_Value (L);
       Hv := Get_Value (H);
-      if Lv >= -(2 ** 31) and then Hv <= (2 ** 31 - 1) then
+      if Lv in -(2 ** 31) .. 2 ** 31 - 1
+        and then Hv in -(2 ** 31) .. 2 ** 31 - 1
+      then
          return Precision_32;
       else
          if Translation.Flag_Only_32b then
-- 
cgit v1.2.3