From 3ff38f33e666dc1eadd5daeba3c1c60b6c06f508 Mon Sep 17 00:00:00 2001 From: Javier Miranda Date: Wed, 29 Jul 2009 10:34:29 +0000 Subject: sem_ch3.ads, [...] (Add_Internal_Interface_Entities): Routine moved from the expander to the semantic analyzer to allow the... 2009-07-29 Javier Miranda * sem_ch3.ads, sem_ch3.adb (Add_Internal_Interface_Entities): Routine moved from the expander to the semantic analyzer to allow the generation of these internal entities when compiling with no code generation. Required by ASIS. * sem.adb (Analyze): Add processing for N_Freeze_Entity nodes. * sem_ch13.ads, sem_ch13.adb (Analyze_Freeze_Entity): New subprogram. * exp_ch3.adb (Add_Internal_Interface_Entities): Moved to sem_ch3 (Expand_Freeze_Record_Type): Remove call to Add_Internal_Interface_Entities because this routine is now called at early stage --when the freezing node is analyzed. From-SVN: r150205 --- gcc/ada/sem_ch3.ads | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'gcc/ada/sem_ch3.ads') diff --git a/gcc/ada/sem_ch3.ads b/gcc/ada/sem_ch3.ads index 6c7dbaa..477f020 100644 --- a/gcc/ada/sem_ch3.ads +++ b/gcc/ada/sem_ch3.ads @@ -64,6 +64,11 @@ package Sem_Ch3 is -- the signature of the implicit type works like the profile of a regular -- subprogram. + procedure Add_Internal_Interface_Entities (Tagged_Type : Entity_Id); + -- Add to the list of primitives of Tagged_Type the internal entities + -- associated with covered interface primitives. These entities link the + -- interface primitives with the tagged type primitives that cover them. + procedure Analyze_Declarations (L : List_Id); -- Called to analyze a list of declarations (in what context ???). Also -- performs necessary freezing actions (more description needed ???) -- cgit v1.1