diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-06-28 03:47:31 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-06-28 03:47:31 +0200 |
| commit | cde6aede1c8851fa0b64e548c5b9a391c1d6af8a (patch) | |
| tree | 2f06ba4433b24d32e2c0dec7de3af2b06483af70 /sem_names.adb | |
| parent | 218d1abbe771abb57a91f17eb4ce9395df86ad67 (diff) | |
| download | ghdl-cde6aede1c8851fa0b64e548c5b9a391c1d6af8a.tar.gz ghdl-cde6aede1c8851fa0b64e548c5b9a391c1d6af8a.tar.bz2 ghdl-cde6aede1c8851fa0b64e548c5b9a391c1d6af8a.zip | |
Resolve expression in variable assignment when target is an aggregate.
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; |