diff options
| author | Tristan Gingold | 2014-05-07 05:24:57 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2014-05-07 05:24:57 +0200 |
| commit | b118553f2736f807978342e51285f80d3e40715f (patch) | |
| tree | 117c5066470faa8822acae252c84f53a3044ab07 /sem_scopes.adb | |
| parent | 8d138e0ceff0e77014a4459971bb5bed34aa796b (diff) | |
| download | ghdl-b118553f2736f807978342e51285f80d3e40715f.tar.gz ghdl-b118553f2736f807978342e51285f80d3e40715f.tar.bz2 ghdl-b118553f2736f807978342e51285f80d3e40715f.zip | |
Sem_Scopes: make Add_Declarations_Of_Concurrent_Statement and Add_Declarations
public.
Diffstat (limited to 'sem_scopes.adb')
| -rw-r--r-- | sem_scopes.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/sem_scopes.adb b/sem_scopes.adb index c5483e4..9eac434 100644 --- a/sem_scopes.adb +++ b/sem_scopes.adb @@ -909,9 +909,12 @@ package body Sem_Scopes is end loop; end Iterator_Decl_Chain; - procedure Add_Declarations is new Iterator_Decl_Chain + procedure Add_Declarations_1 is new Iterator_Decl_Chain (Arg_Type => Boolean, Handle_Decl => Add_Declaration); + procedure Add_Declarations (Chain : Iir; Potentially : Boolean := False) + renames Add_Declarations_1; + procedure Add_Declarations_List is new Iterator_Decl_List (Arg_Type => Boolean, Handle_Decl => Add_Declaration); |