From 7cdf0ab35669516ea520b0d5ac783384f641e551 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 23 May 2019 18:33:44 +0200 Subject: trans-chap3: improve style. --- src/vhdl/translate/trans-chap3.adb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 8c3021d43..c09203252 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -341,13 +341,12 @@ package body Trans.Chap3 is Get_Subtype_Definition (Get_Type_Declarator (Def)); L, H : Iir; Lv, Hv : Int64; + subtype Int64_32 is Int64 range -(2 ** 31) .. 2 ** 31 - 1; begin Get_Low_High_Limit (Get_Range_Constraint (St), L, H); Lv := Get_Value (L); Hv := Get_Value (H); - if Lv in -(2 ** 31) .. 2 ** 31 - 1 - and then Hv in -(2 ** 31) .. 2 ** 31 - 1 - then + if Lv in Int64_32 and then Hv in Int64_32 then return Precision_32; else if Translation.Flag_Only_32b then -- cgit v1.2.3