diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-01-01 07:17:52 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-01-01 07:17:52 +0100 |
| commit | 8f92f5f35a740182637d137b934b539a7a469014 (patch) | |
| tree | af64907537e194d10625fb7fe8b22b2b38b76c13 | |
| parent | 946035114e0207a18664f1601b65e7e926f53033 (diff) | |
| download | ghdl-8f92f5f35a740182637d137b934b539a7a469014.tar.gz ghdl-8f92f5f35a740182637d137b934b539a7a469014.tar.bz2 ghdl-8f92f5f35a740182637d137b934b539a7a469014.zip | |
translation: remove protected in Is_Equal_Limit (missing check added).
| -rw-r--r-- | translate/translation.adb | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/translate/translation.adb b/translate/translation.adb index 6f16183ce..cccecef06 100644 --- a/translate/translation.adb +++ b/translate/translation.adb @@ -7314,16 +7314,6 @@ package body Translation is Def : Iir; Mode : Type_Mode_Type) return Boolean is - - function Get_Value_I32 (Lit : Iir) return Iir_Int32 is - begin - return Iir_Int32(Get_Value(Lit)); - exception - when Constraint_Error => - Error_Msg_Sem ("Value exceeds range of 32-bit Integer" , Lit); - return Iir_Int32(0); - end Get_Value_I32; - begin case Mode is when Type_Mode_B2 => @@ -7356,7 +7346,7 @@ package body Translation is declare V : Iir_Int32; begin - V := Get_Value_I32 (Lit); + V := Iir_Int32 (Get_Value (Lit)); if Is_Hi then return V = Iir_Int32'Last; else |