diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-04-08 08:57:39 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 08:57:39 +0200 |
| commit | efde9617b15c8eb477c52111c660e35e45a59785 (patch) | |
| tree | 6cffd6610375b23eb865fd9a5ef43bdbfbf75654 /gcc/ada/expander.adb | |
| parent | 2fe53bf5a4927ae72baa9160627bdecb6d2fcdfb (diff) | |
| download | gcc-efde9617b15c8eb477c52111c660e35e45a59785.zip gcc-efde9617b15c8eb477c52111c660e35e45a59785.tar.gz gcc-efde9617b15c8eb477c52111c660e35e45a59785.tar.bz2 | |
impunit.adb: Add Interfaces.Java.JNI...
2008-04-08 Robert Dewar <dewar@adacore.com>
Bob Duff <duff@adacore.com>
* impunit.adb: Add Interfaces.Java.JNI, System.Strings.Stream_Ops,
Ada.Calendar.Conversions, Ada.Dispatching.EDF, GNAT.Time_Stamp
* s-intman-mingw.adb: Minor comment fix -- spell 'explicitly' correctly
* g-trasym.adb: Minor comment fix -- spell 'explicitly' correctly
* g-trasym.ads: Minor comment improvements
* s-stalib.adb: Minor comment fix -- spell 'explicitly' correctly
* a-sequio.ads, a-direio.ads: improve message for tagged type
* a-strunb.ads: Minor reformatting
* a-tifiio.adb: Minor reformatting
* atree.adb (Fix_Parents): Use clearer names for formals
Cleanup and simplify code
Use named notation in calls
* exp_fixd.adb (Do_Multiply_Fixed_Universal): Use named notation in
confusing calls
* uintp.adb: Used named notation for some confusing calls
* bindusg.adb: Minor change in one line of output
* cstand.adb: Minor reformatting of src representation of Standard
* a-assert.ads: Add comment.
* g-decstr.adb: Fix bad indentation
* expander.ads, expander.adb: Code clean up.
* sem_dist.ads, sem_type.adb, g-dirope.ads, g-exctra.ads, s-valwch.adb,
s-wchstw.adb, targparm.ads, widechar.adb: Minor reformatting
* i-cstrin.adb: Fix casing error in formal parameter name in call
From-SVN: r134063
Diffstat (limited to 'gcc/ada/expander.adb')
| -rw-r--r-- | gcc/ada/expander.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/expander.adb b/gcc/ada/expander.adb index a6164fb..674137d 100644 --- a/gcc/ada/expander.adb +++ b/gcc/ada/expander.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -73,12 +73,13 @@ package body Expander is procedure Expand (N : Node_Id) is begin - -- If we were analyzing a default expression the Full_Analysis flag must - -- be off. If we are in expansion mode then we must be performing a full - -- analysis. If we are analyzing a generic then Expansion must be off. + -- If we were analyzing a default expression (or other spec expression) + -- the Full_Analysis flag must be off. If we are in expansion mode then + -- we must be performing a full analysis. If we are analyzing a generic + -- then Expansion must be off. pragma Assert - (not (Full_Analysis and then In_Default_Expression) + (not (Full_Analysis and then In_Spec_Expression) and then (Full_Analysis or else not Expander_Active) and then not (Inside_A_Generic and then Expander_Active)); |