From 6cf4c2c34de713e166c5b3b463d02be53f8fb380 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 14 Jun 2017 06:44:31 +0200
Subject: Check bounds for real.

Fix #368
---
 src/vhdl/translate/trans-chap3.adb | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

(limited to 'src')

diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb
index d1ce7464f..4457403ec 100644
--- a/src/vhdl/translate/trans-chap3.adb
+++ b/src/vhdl/translate/trans-chap3.adb
@@ -1939,16 +1939,8 @@ package body Trans.Chap3 is
                end if;
             end;
          when Type_Mode_F64 =>
-            declare
-               V : Iir_Fp64;
-            begin
-               V := Get_Fp_Value (Lit);
-               if Is_Hi then
-                  return V = Iir_Fp64'Last;
-               else
-                  return V = Iir_Fp64'First;
-               end if;
-            end;
+            --  Don't include +/- Inf
+            return False;
          when others =>
             Error_Kind ("is_equal_limit " & Type_Mode_Type'Image (Mode),
                         Lit);
-- 
cgit v1.2.3