From 0c644933b86d506a4b6dd9bdb6b054f6aed24df9 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 22 Oct 2003 11:28:08 +0200 Subject: re PR ada/5677 (Assert failure in nlists.adb:933) 2003-10-22 Arnaud Charlet * gnat_wrapper.adb: New file. 2003/10/22 Jerome Roussel * g-regpat.ads, g-regpat.adb (Match): new function, to know if a string match a pre compiled regular expression (the corresponding version of the function working on a raw regular expression) Fix typos in various comments Update copyright notice in spec 2003/10/21 Gary Dismukes * exp_ch3.adb: (Component_Needs_Simple_Initialization): Return False when the type is a packed bit array. Revise spec comments to document this case. * exp_prag.adb: (Expand_Pragma_Import): Set any expression on the imported object to empty to avoid initializing imported objects (in particular this covers the case of zero-initialization of bit arrays). Update copyright notice. 2003/10/21 Ed Schonberg * sem_ch12.adb: (Load_Parent_Of_Generic): If parent is compilation unit, stop search, a subunit is missing. (Instantiate_Subprogram_Body): If body of function is missing, set type of return expression explicitly in dummy body, to prevent cascaded errors when a subunit is missing. Fixes PR 5677. * sem_ch3.adb: (Access_Subprogram_Declaration): Verify that return type is valid. Fixes PR 8693. * sem_elab.adb: (Check_Elab_Calls): Do not apply elaboration checks if the main unit is generic. Fixes PR 12318. * sem_util.adb: (Corresponding_Discriminant): If the scope of the discriminant is a private type without discriminant, use its full view. Fixes PR 8247. From-SVN: r72792 --- gcc/ada/sem_elab.adb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'gcc/ada/sem_elab.adb') diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb index 9aa4d35..8e6e2e1 100644 --- a/gcc/ada/sem_elab.adb +++ b/gcc/ada/sem_elab.adb @@ -1177,7 +1177,10 @@ package body Sem_Elab is -- case we lack the full information that we need, and no object -- file will be created in any case. - if not Expander_Active or else Subunits_Missing then + if not Expander_Active + or else Is_Generic_Unit (Cunit_Entity (Main_Unit)) + or else Subunits_Missing + then return; end if; -- cgit v1.1