From 70cc586c068c297bdd1fbb0285473246f8812655 Mon Sep 17 00:00:00 2001 From: gingold Date: Sun, 9 Oct 2005 17:27:11 +0000 Subject: --vcdz option added, switched to gcc-4.0.2, can be compiled with GNAT GPL 2005 ready for ada05 (interface identifier not used anymore) bug fixes --- sem_decls.adb | 178 +++++++++++++++++++++++++++++----------------------------- 1 file changed, 89 insertions(+), 89 deletions(-) (limited to 'sem_decls.adb') diff --git a/sem_decls.adb b/sem_decls.adb index 3fe32aa86..ac34389f6 100644 --- a/sem_decls.adb +++ b/sem_decls.adb @@ -338,7 +338,7 @@ package body Sem_Decls is Type_Mark: Iir; Proc: Iir_Implicit_Procedure_Declaration; Func: Iir_Implicit_Function_Declaration; - Interface: Iir; + Inter: Iir; Loc : Location_Type; File_Interface_Kind : Iir_Kind; Last_Interface : Iir; @@ -365,42 +365,42 @@ package body Sem_Decls is Set_Implicit_Definition (Proc, Iir_Predefined_File_Open_Status); -- status : out file_open_status. - Interface := + Inter := Create_Iir (Iir_Kind_Variable_Interface_Declaration); - Set_Location (Interface, Loc); - Set_Identifier (Interface, Std_Names.Name_Status); - Set_Type (Interface, + Set_Location (Inter, Loc); + Set_Identifier (Inter, Std_Names.Name_Status); + Set_Type (Inter, Std_Package.File_Open_Status_Type_Definition); - Set_Mode (Interface, Iir_Out_Mode); - Set_Base_Name (Interface, Interface); - Append (Last_Interface, Proc, Interface); + Set_Mode (Inter, Iir_Out_Mode); + Set_Base_Name (Inter, Inter); + Append (Last_Interface, Proc, Inter); end case; -- File F : FT - Interface := Create_Iir (Iir_Kind_File_Interface_Declaration); - Set_Location (Interface, Loc); - Set_Identifier (Interface, Std_Names.Name_F); - Set_Type (Interface, Type_Definition); - Set_Mode (Interface, Iir_Inout_Mode); - Set_Base_Name (Interface, Interface); - Append (Last_Interface, Proc, Interface); + Inter := Create_Iir (Iir_Kind_File_Interface_Declaration); + Set_Location (Inter, Loc); + Set_Identifier (Inter, Std_Names.Name_F); + Set_Type (Inter, Type_Definition); + Set_Mode (Inter, Iir_Inout_Mode); + Set_Base_Name (Inter, Inter); + Append (Last_Interface, Proc, Inter); -- External_Name : in STRING - Interface := Create_Iir (Iir_Kind_Constant_Interface_Declaration); - Set_Location (Interface, Loc); - Set_Identifier (Interface, Std_Names.Name_External_Name); - Set_Type (Interface, Std_Package.String_Type_Definition); - Set_Mode (Interface, Iir_In_Mode); - Set_Base_Name (Interface, Interface); - Append (Last_Interface, Proc, Interface); + Inter := Create_Iir (Iir_Kind_Constant_Interface_Declaration); + Set_Location (Inter, Loc); + Set_Identifier (Inter, Std_Names.Name_External_Name); + Set_Type (Inter, Std_Package.String_Type_Definition); + Set_Mode (Inter, Iir_In_Mode); + Set_Base_Name (Inter, Inter); + Append (Last_Interface, Proc, Inter); -- Open_Kind : in File_Open_Kind := Read_Mode. - Interface := Create_Iir (Iir_Kind_Constant_Interface_Declaration); - Set_Location (Interface, Loc); - Set_Identifier (Interface, Std_Names.Name_Open_Kind); - Set_Type (Interface, Std_Package.File_Open_Kind_Type_Definition); - Set_Mode (Interface, Iir_In_Mode); - Set_Base_Name (Interface, Interface); - Set_Default_Value (Interface, + Inter := Create_Iir (Iir_Kind_Constant_Interface_Declaration); + Set_Location (Inter, Loc); + Set_Identifier (Inter, Std_Names.Name_Open_Kind); + Set_Type (Inter, Std_Package.File_Open_Kind_Type_Definition); + Set_Mode (Inter, Iir_In_Mode); + Set_Base_Name (Inter, Inter); + Set_Default_Value (Inter, Std_Package.File_Open_Kind_Read_Mode); - Append (Last_Interface, Proc, Interface); + Append (Last_Interface, Proc, Inter); Compute_Subprogram_Hash (Proc); -- Add it to the list. Insert_Incr (Last, Proc); @@ -414,13 +414,13 @@ package body Sem_Decls is Set_Implicit_Definition (Proc, Iir_Predefined_File_Close); Set_Type_Reference (Proc, Decl); Build_Init (Last_Interface); - Interface := Create_Iir (Iir_Kind_File_Interface_Declaration); - Set_Identifier (Interface, Std_Names.Name_F); - Set_Location (Interface, Loc); - Set_Type (Interface, Type_Definition); - Set_Mode (Interface, Iir_Inout_Mode); - Set_Base_Name (Interface, Interface); - Append (Last_Interface, Proc, Interface); + Inter := Create_Iir (Iir_Kind_File_Interface_Declaration); + Set_Identifier (Inter, Std_Names.Name_F); + Set_Location (Inter, Loc); + Set_Type (Inter, Type_Definition); + Set_Mode (Inter, Iir_Inout_Mode); + Set_Base_Name (Inter, Inter); + Append (Last_Interface, Proc, Inter); Compute_Subprogram_Hash (Proc); -- Add it to the list. Insert_Incr (Last, Proc); @@ -439,30 +439,30 @@ package body Sem_Decls is Set_Parent (Proc, Get_Parent (Decl)); Set_Type_Reference (Proc, Decl); Build_Init (Last_Interface); - Interface := Create_Iir (File_Interface_Kind); - Set_Identifier (Interface, Std_Names.Name_F); - Set_Location (Interface, Loc); - Set_Type (Interface, Type_Definition); - Set_Mode (Interface, Iir_In_Mode); - Set_Base_Name (Interface, Interface); - Append (Last_Interface, Proc, Interface); - Interface := Create_Iir (Iir_Kind_Variable_Interface_Declaration); - Set_Identifier (Interface, Std_Names.Name_Value); - Set_Location (Interface, Loc); - Set_Type (Interface, Type_Mark); - Set_Mode (Interface, Iir_Out_Mode); - Set_Base_Name (Interface, Interface); - Append (Last_Interface, Proc, Interface); + Inter := Create_Iir (File_Interface_Kind); + Set_Identifier (Inter, Std_Names.Name_F); + Set_Location (Inter, Loc); + Set_Type (Inter, Type_Definition); + Set_Mode (Inter, Iir_In_Mode); + Set_Base_Name (Inter, Inter); + Append (Last_Interface, Proc, Inter); + Inter := Create_Iir (Iir_Kind_Variable_Interface_Declaration); + Set_Identifier (Inter, Std_Names.Name_Value); + Set_Location (Inter, Loc); + Set_Type (Inter, Type_Mark); + Set_Mode (Inter, Iir_Out_Mode); + Set_Base_Name (Inter, Inter); + Append (Last_Interface, Proc, Inter); case Get_Kind (Type_Mark) is when Iir_Kind_Array_Type_Definition | Iir_Kind_Unconstrained_Array_Subtype_Definition => - Interface := Create_Iir (Iir_Kind_Variable_Interface_Declaration); - Set_Identifier (Interface, Std_Names.Name_Length); - Set_Location (Interface, Loc); - Set_Type (Interface, Std_Package.Natural_Subtype_Definition); - Set_Mode (Interface, Iir_Out_Mode); - Set_Base_Name (Interface, Interface); - Append (Last_Interface, Proc, Interface); + Inter := Create_Iir (Iir_Kind_Variable_Interface_Declaration); + Set_Identifier (Inter, Std_Names.Name_Length); + Set_Location (Inter, Loc); + Set_Type (Inter, Std_Package.Natural_Subtype_Definition); + Set_Mode (Inter, Iir_Out_Mode); + Set_Base_Name (Inter, Inter); + Append (Last_Interface, Proc, Inter); Set_Implicit_Definition (Proc, Iir_Predefined_Read_Length); when others => Set_Implicit_Definition (Proc, Iir_Predefined_Read); @@ -478,22 +478,22 @@ package body Sem_Decls is Set_Parent (Proc, Get_Parent (Decl)); Set_Type_Reference (Proc, Decl); Build_Init (Last_Interface); - Interface := Create_Iir (File_Interface_Kind); - Set_Identifier (Interface, Std_Names.Name_F); - Set_Location (Interface, Loc); - Set_Type (Interface, Type_Definition); - Set_Mode (Interface, Iir_Out_Mode); - Set_Base_Name (Interface, Interface); - Set_Name_Staticness (Interface, Locally); - Set_Expr_Staticness (Interface, None); - Append (Last_Interface, Proc, Interface); - Interface := Create_Iir (Iir_Kind_Constant_Interface_Declaration); - Set_Identifier (Interface, Std_Names.Name_Value); - Set_Location (Interface, Loc); - Set_Type (Interface, Type_Mark); - Set_Mode (Interface, Iir_In_Mode); - Set_Base_Name (Interface, Interface); - Append (Last_Interface, Proc, Interface); + Inter := Create_Iir (File_Interface_Kind); + Set_Identifier (Inter, Std_Names.Name_F); + Set_Location (Inter, Loc); + Set_Type (Inter, Type_Definition); + Set_Mode (Inter, Iir_Out_Mode); + Set_Base_Name (Inter, Inter); + Set_Name_Staticness (Inter, Locally); + Set_Expr_Staticness (Inter, None); + Append (Last_Interface, Proc, Inter); + Inter := Create_Iir (Iir_Kind_Constant_Interface_Declaration); + Set_Identifier (Inter, Std_Names.Name_Value); + Set_Location (Inter, Loc); + Set_Type (Inter, Type_Mark); + Set_Mode (Inter, Iir_In_Mode); + Set_Base_Name (Inter, Inter); + Append (Last_Interface, Proc, Inter); Set_Implicit_Definition (Proc, Iir_Predefined_Write); Compute_Subprogram_Hash (Proc); -- Add it to the list. @@ -506,13 +506,13 @@ package body Sem_Decls is Set_Parent (Proc, Get_Parent (Decl)); Set_Type_Reference (Proc, Decl); Build_Init (Last_Interface); - Interface := Create_Iir (File_Interface_Kind); - Set_Identifier (Interface, Std_Names.Name_F); - Set_Location (Interface, Loc); - Set_Type (Interface, Type_Definition); - Set_Mode (Interface, Iir_In_Mode); - Set_Base_Name (Interface, Interface); - Append (Last_Interface, Func, Interface); + Inter := Create_Iir (File_Interface_Kind); + Set_Identifier (Inter, Std_Names.Name_F); + Set_Location (Inter, Loc); + Set_Type (Inter, Type_Definition); + Set_Mode (Inter, Iir_In_Mode); + Set_Base_Name (Inter, Inter); + Append (Last_Interface, Func, Inter); Set_Return_Type (Func, Std_Package.Boolean_Type_Definition); Set_Implicit_Definition (Func, Iir_Predefined_Endfile); Compute_Subprogram_Hash (Func); @@ -523,15 +523,15 @@ package body Sem_Decls is function Create_Anonymous_Interface (Atype : Iir) return Iir_Constant_Interface_Declaration is - Interface : Iir_Constant_Interface_Declaration; + Inter : Iir_Constant_Interface_Declaration; begin - Interface := Create_Iir (Iir_Kind_Constant_Interface_Declaration); - Location_Copy (Interface, Atype); - Set_Identifier (Interface, Null_Identifier); - Set_Mode (Interface, Iir_In_Mode); - Set_Type (Interface, Atype); - Set_Base_Name (Interface, Interface); - return Interface; + Inter := Create_Iir (Iir_Kind_Constant_Interface_Declaration); + Location_Copy (Inter, Atype); + Set_Identifier (Inter, Null_Identifier); + Set_Mode (Inter, Iir_In_Mode); + Set_Type (Inter, Atype); + Set_Base_Name (Inter, Inter); + return Inter; end Create_Anonymous_Interface; procedure Create_Implicit_Operations -- cgit v1.2.3