diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-06-14 06:44:31 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-06-14 06:44:31 +0200 |
| commit | 6cf4c2c34de713e166c5b3b463d02be53f8fb380 (patch) | |
| tree | 8c6574c30bc12dc28f60b64eb1e6bd969437259a /src | |
| parent | fc7e0b5368bea390fe4f10642dc7ea3e1fc0cda5 (diff) | |
| download | ghdl-6cf4c2c34de713e166c5b3b463d02be53f8fb380.tar.gz ghdl-6cf4c2c34de713e166c5b3b463d02be53f8fb380.tar.bz2 ghdl-6cf4c2c34de713e166c5b3b463d02be53f8fb380.zip | |
Check bounds for real.
Fix #368
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 12 |
1 files changed, 2 insertions, 10 deletions
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); |