diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-29 15:56:09 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-29 15:56:09 +0200 |
| commit | 1933c4977eeaa926e06ee032f0335a2abf53958a (patch) | |
| tree | eb388303113b155d67982b4825459cec23534365 /gcc/ada/exp_tss.adb | |
| parent | 51ec70b8be4c423e38fcbc6e49add3fbc16fe5bb (diff) | |
| download | gcc-1933c4977eeaa926e06ee032f0335a2abf53958a.zip gcc-1933c4977eeaa926e06ee032f0335a2abf53958a.tar.gz gcc-1933c4977eeaa926e06ee032f0335a2abf53958a.tar.bz2 | |
[multiple changes]
2009-04-29 Gary Dismukes <dismukes@adacore.com>
* sem_aggr.adb (Valid_Limited_Ancestor): Add test for the name of a
function entity, to cover the case of a parameterless function call
that has not been resolved.
2009-04-29 Robert Dewar <dewar@adacore.com>
* err_vars.ads, prj-part.adb, scans.ads, exp_tss.adb: Minor
reformatting and comment updates.
From-SVN: r146970
Diffstat (limited to 'gcc/ada/exp_tss.adb')
| -rw-r--r-- | gcc/ada/exp_tss.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/exp_tss.adb b/gcc/ada/exp_tss.adb index c7e0366..902d4e7 100644 --- a/gcc/ada/exp_tss.adb +++ b/gcc/ada/exp_tss.adb @@ -216,9 +216,10 @@ package body Exp_Tss is -- default constructor and hence we must skip non-default -- constructors (if any) - elsif No (Next - (First - (Parameter_Specifications (Parent (Node (Elmt)))))) + elsif + No (Next + (First + (Parameter_Specifications (Parent (Node (Elmt)))))) then return Node (Elmt); end if; @@ -240,7 +241,6 @@ package body Exp_Tss is if Is_Init_Proc (Node (Elmt)) then E1 := Next_Formal (First_Formal (Node (Elmt))); E2 := First_Formal (Ref); - while Present (E1) and then Present (E2) loop if Chars (E1) /= Chars (E2) or else Ekind (E1) /= Ekind (E2) |