diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-08-30 13:30:19 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-08-30 13:30:19 +0000 |
| commit | cd9300765e7e3fd43e450777e98a778146f700c2 (patch) | |
| tree | f013fea17ae4eee9c1649e63b99b9bfe377fafb4 /sem_names.adb | |
| parent | 4b6571671497ecc1f846bfa49678254e14511fc9 (diff) | |
| download | ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.tar.gz ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.tar.bz2 ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.zip | |
Switch to gcc 4.3
Don't use tagged types in grt (not supported by recent versions of GNAT)
Fix warnings
Diffstat (limited to 'sem_names.adb')
| -rw-r--r-- | sem_names.adb | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/sem_names.adb b/sem_names.adb index 686ff439a..ff5cd7183 100644 --- a/sem_names.adb +++ b/sem_names.adb @@ -168,10 +168,10 @@ package body Sem_Names is -- Move elements of result list LIST to result list RES. -- Destroy LIST if necessary. - procedure Add_Result_List (Res : in out Iir; List : in out Iir); + procedure Add_Result_List (Res : in out Iir; List : Iir); pragma Unreferenced (Add_Result_List); - procedure Add_Result_List (Res : in out Iir; List : in out Iir) + procedure Add_Result_List (Res : in out Iir; List : Iir) is El : Iir; List_List : Iir_List; @@ -201,9 +201,9 @@ package body Sem_Names is end Add_Result_List; -- Free interpretations of LIST except KEEP. - procedure Sem_Name_Free_Result (List : in out Iir; Keep : Iir) + procedure Sem_Name_Free_Result (List : Iir; Keep : Iir) is - procedure Sem_Name_Free (El : in out Iir) is + procedure Sem_Name_Free (El : Iir) is begin case Get_Kind (El) is when Iir_Kind_Function_Call @@ -560,7 +560,6 @@ package body Sem_Names is Prefix_Bt : Iir; Index_List: Iir_List; Index_Type: Iir; - Index_Range : Iir; Suffix: Iir; Slice_Type : Iir; Expr_Type : Iir; @@ -591,7 +590,6 @@ package body Sem_Names is end if; Index_Type := Get_First_Element (Index_List); - Index_Range := Get_Range_Constraint (Index_Type); Prefix_Rng := Eval_Range (Index_Type); -- LRM93 6.5 @@ -1085,7 +1083,7 @@ package body Sem_Names is & Disp_Node (Subprg), Loc); end Error_Pure; - Subprg : Iir := Sem_Stmts.Get_Current_Subprogram; + Subprg : constant Iir := Sem_Stmts.Get_Current_Subprogram; Subprg_Body : Iir; Parent : Iir; begin @@ -1336,7 +1334,7 @@ package body Sem_Names is is Sub_Res : Iir; begin - if Get_Is_Within_Flag (Sub_Name) = True then + if Get_Is_Within_Flag (Sub_Name) then Sub_Res := Find_Declarations_In_List (Sub_Name, Name, Keep_Alias); if Sub_Res /= Null_Iir then Add_Result (Res, Sub_Res); |