diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-17 10:33:58 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-17 10:33:58 +0000 |
| commit | 9a5dc427e3be0b95455a11134f8162037234f579 (patch) | |
| tree | 08fd5f5eeb7e7b34ada41c76539af0bee7badf9e /gcc/ada/sem_cat.adb | |
| parent | cdaf90c45ab90ad379b6120042af5eff44e16948 (diff) | |
| download | gcc-9a5dc427e3be0b95455a11134f8162037234f579.tar.gz | |
2009-08-17 Vasiliy Fofanov <fofanov@adacore.com>
* a-calend-vms.adb: Fix typo.
2009-08-17 Tristan Gingold <gingold@adacore.com>
* s-taprop-posix.adb: Round up the stack size to avoid failure on
Darwin.
2009-08-17 Gary Dismukes <dismukes@adacore.com>
* sem_cat.adb (Validate_Static_Object_Name): Update comment.
2009-08-17 Vincent Celier <celier@adacore.com>
* make.adb (Arguments_Collected): Unneeded, removed
(Change_To_Object_Directory): Use Project directly. Add pragma Assert to
ensure caller does not pass in No_Project.
(Compile): Add new parameter Project. Let procedure
Collect_Arguments_And_Compile provide the proper value.
* switch-c.adb: Add documentation for -gnatea and -gnatez
2009-08-17 Ben Brosgol <brosgol@adacore.com>
* gnat_ugn.texi: Changed name of package in SAL example, to avoid
clash with Ada 2005 reserved word (interface).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150838 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_cat.adb')
| -rw-r--r-- | gcc/ada/sem_cat.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb index d5d38235f36..c8d06e8cfec 100644 --- a/gcc/ada/sem_cat.adb +++ b/gcc/ada/sem_cat.adb @@ -2191,10 +2191,8 @@ package body Sem_Cat is Flag_Non_Static_Expr ("non-static object name in preelaborated unit", N); - -- We take the view that a constant defined in another preelaborated - -- unit is preelaborable, even though it may have a private type and - -- thus appear non-static in a client. This must be the intent of - -- the language, but currently is an RM gap ??? + -- Give an error for a reference to a nonstatic constant, unless the + -- constant is in another GNAT library unit that is preelaborable. elsif Ekind (Entity (N)) = E_Constant and then not Is_Static_Expression (N) |