diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-09-25 07:38:09 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-09-25 07:38:09 +0200 |
| commit | 68d26922e31aad3cb34dd3b7689bcec75ad70fcb (patch) | |
| tree | ed7d40115bd74b0c4216a94bfc21d5af0837ce4f /sem_names.ads | |
| parent | 5edf93b87e8f3528d9063df08bf70bf538d72545 (diff) | |
| download | ghdl-68d26922e31aad3cb34dd3b7689bcec75ad70fcb.tar.gz ghdl-68d26922e31aad3cb34dd3b7689bcec75ad70fcb.tar.bz2 ghdl-68d26922e31aad3cb34dd3b7689bcec75ad70fcb.zip | |
Add a python script to automatically generate disp_tree.
Diffstat (limited to 'sem_names.ads')
| -rw-r--r-- | sem_names.ads | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/sem_names.ads b/sem_names.ads index a77774141..3bc85305d 100644 --- a/sem_names.ads +++ b/sem_names.ads @@ -111,7 +111,6 @@ package Sem_Names is -- Free the list node (and the list itself). procedure Free_Overload_List (N : in out Iir_Overload_List); - pragma Unreferenced (Free_Overload_List); -- Display an error message if the overload resolution for EXPR find more -- than one interpretation. @@ -128,6 +127,10 @@ package Sem_Names is -- Before the first call, RES should be set to NULL_IIR. procedure Add_Result (Res : in out Iir; Decl : Iir); + -- Free a Parenthesis_Name. This is a special case as in general the + -- Association_Chain field must be freed too. + procedure Free_Parenthesis_Name (Name : Iir; Res : Iir); + -- Return TRUE iff TYPE1 and TYPE2 are closely related. function Are_Types_Closely_Related (Type1, Type2 : Iir) return Boolean; |