diff options
Diffstat (limited to 'sem_names.adb')
| -rw-r--r-- | sem_names.adb | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/sem_names.adb b/sem_names.adb index 45ce37779..48f4d28a8 100644 --- a/sem_names.adb +++ b/sem_names.adb @@ -87,6 +87,16 @@ package body Sem_Names is return Res; end Create_Overload_List; + procedure Free_Overload_List (N : in out Iir_Overload_List) + is + List : Iir_List; + begin + List := Get_Overload_List (N); + Destroy_Iir_List (List); + Free_Iir (N); + N := Null_Iir; + end Free_Overload_List; + function Simplify_Overload_List (List : Iir_List) return Iir is Res : Iir; @@ -144,9 +154,6 @@ package body Sem_Names is return Simplify_Overload_List (Res_List); end Create_List_Of_Types; - -- Add new interpretation DECL to RES. - -- Create an overload_list if necessary. - -- Before the first call, RES should be set to NULL_IIR. procedure Add_Result (Res : in out Iir; Decl : Iir) is Nres : Iir; |