handle universal real div integer evaluation,

more optimizations added,
multi-thread ready grt,
bug fixes

1 files changed, 29 insertions, 0 deletions

diff --git a/iirs.adb b/iirs.adb
index 588cda1c3..a3893fd7b 100644
--- a/iirs.adb
+++ b/iirs.adb
@@ -5717,6 +5717,35 @@ package body Iirs is
       Set_Field2 (Target, Suffix);
    end Set_Suffix;
 
+   procedure Check_Kind_For_Index_Subtype (Target : Iir) is
+   begin
+      case Get_Kind (Target) is
+         when Iir_Kind_Left_Array_Attribute
+           | Iir_Kind_Right_Array_Attribute
+           | Iir_Kind_High_Array_Attribute
+           | Iir_Kind_Low_Array_Attribute
+           | Iir_Kind_Range_Array_Attribute
+           | Iir_Kind_Reverse_Range_Array_Attribute
+           | Iir_Kind_Length_Array_Attribute
+           | Iir_Kind_Ascending_Array_Attribute =>
+            null;
+         when others =>
+            Failed ("Index_Subtype", Target);
+      end case;
+   end Check_Kind_For_Index_Subtype;
+
+   function Get_Index_Subtype (Attr : Iir) return Iir is
+   begin
+      Check_Kind_For_Index_Subtype (Attr);
+      return Get_Field2 (Attr);
+   end Get_Index_Subtype;
+
+   procedure Set_Index_Subtype (Attr : Iir; St : Iir) is
+   begin
+      Check_Kind_For_Index_Subtype (Attr);
+      Set_Field2 (Attr, St);
+   end Set_Index_Subtype;
+
    procedure Check_Kind_For_Parameter (Target : Iir) is
    begin
       case Get_Kind (Target) is