From b118553f2736f807978342e51285f80d3e40715f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 7 May 2014 05:24:57 +0200 Subject: Sem_Scopes: make Add_Declarations_Of_Concurrent_Statement and Add_Declarations public. --- sem_scopes.adb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'sem_scopes.adb') diff --git a/sem_scopes.adb b/sem_scopes.adb index c5483e49e..9eac43432 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); -- cgit v1.2.3