From cd9300765e7e3fd43e450777e98a778146f700c2 Mon Sep 17 00:00:00 2001 From: gingold Date: Sat, 30 Aug 2008 13:30:19 +0000 Subject: Switch to gcc 4.3 Don't use tagged types in grt (not supported by recent versions of GNAT) Fix warnings --- iirs_utils.adb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'iirs_utils.adb') diff --git a/iirs_utils.adb b/iirs_utils.adb index a3ca40820..4d64f3478 100644 --- a/iirs_utils.adb +++ b/iirs_utils.adb @@ -15,7 +15,6 @@ -- along with GCC; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Types; use Types; with Scan; use Scan; with Tokens; use Tokens; with Errorout; use Errorout; @@ -653,7 +652,7 @@ package body Iirs_Utils is function Is_Unidim_Array_Type (A_Type : Iir) return Boolean is - Base_Type : Iir := Get_Base_Type (A_Type); + Base_Type : constant Iir := Get_Base_Type (A_Type); begin if Get_Kind (Base_Type) = Iir_Kind_Array_Type_Definition and then Get_Nbr_Elements (Get_Index_Subtype_List (Base_Type)) = 1 -- cgit v1.2.3