diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 15:48:36 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 15:48:36 +0200 |
| commit | ddf67a1d5d44d028c1c90ef16c8f5e1d3c6d102c (patch) | |
| tree | bdea3a0b0de9cd409e4fa3488b77a5a34819faea /gcc/ada/lib-xref-alfa.adb | |
| parent | 690943fcd4d667a4de8614a565bc13a66816c94a (diff) | |
| download | gcc-ddf67a1d5d44d028c1c90ef16c8f5e1d3c6d102c.zip gcc-ddf67a1d5d44d028c1c90ef16c8f5e1d3c6d102c.tar.gz gcc-ddf67a1d5d44d028c1c90ef16c8f5e1d3c6d102c.tar.bz2 | |
[multiple changes]
2011-08-29 Vincent Celier <celier@adacore.com>
* make.adb (Scan_Make_Arg): Take any option as is in packages Compiler,
Binder or Linker of the main project file.
2011-08-29 Ed Schonberg <schonberg@adacore.com>
* inline.adb (Add_Scopes_To_Clean): Exclude any entity within a generic
unit.
2011-08-29 Yannick Moy <moy@adacore.com>
* exp_ch9.adb: Partial revert of previous change for Alfa mode
2011-08-29 Yannick Moy <moy@adacore.com>
* exp_ch11.adb: Minor expansion of comment.
2011-08-29 Yannick Moy <moy@adacore.com>
* lib-xref-alfa.adb (Add_ALFA_Scope): Treat generic entities.
2011-08-29 Ed Schonberg <schonberg@adacore.com>
* sem_res.adb (Resolve_Arithmetic_Op): If the node has a universal
interpretation, set the type before resolving the operands, because
legality checks on an exponention operand need to know the type of the
context.
2011-08-29 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Analyze_Package_Instantiation): Do not set delayed
cleanups on a master if the instance is within a generic unit.
Complement to the corresponding fix to inline.adb for K520-030.
2011-08-29 Tristan Gingold <gingold@adacore.com>
* exp_ch7.adb (Build_Raise_Statement): Raise PE instead of the current
occurrence.
* exp_intr.adb: Minor comment fix.
2011-08-29 Bob Duff <duff@adacore.com>
* sem_ch13.adb (Analyze_Aspect_Specifications): Fix cases where
Delay_Required was used as an uninitialized variable.
From-SVN: r178233
Diffstat (limited to 'gcc/ada/lib-xref-alfa.adb')
| -rw-r--r-- | gcc/ada/lib-xref-alfa.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/lib-xref-alfa.adb b/gcc/ada/lib-xref-alfa.adb index 75dea7f..9aabe7c 100644 --- a/gcc/ada/lib-xref-alfa.adb +++ b/gcc/ada/lib-xref-alfa.adb @@ -282,10 +282,10 @@ package body ALFA is end if; case Ekind (E) is - when E_Function => + when E_Function | E_Generic_Function => Typ := 'V'; - when E_Procedure => + when E_Procedure | E_Generic_Procedure => Typ := 'U'; when E_Subprogram_Body => @@ -308,7 +308,7 @@ package body ALFA is end if; end; - when E_Package | E_Package_Body => + when E_Package | E_Package_Body | E_Generic_Package => Typ := 'K'; when E_Void => |