From 346b609d72af6f9ea759650eee0a7f80b02e7956 Mon Sep 17 00:00:00 2001 From: bosch Date: Fri, 14 Dec 2001 22:31:14 +0000 Subject: [PATCH] * config-lang.in: Update copyright notice * layout.adb: Remove commented out code. * mdllfile.ads: Update copyright notice. Fix header format. * sem_case.ads: Likewise. * sem_ch3.adb: Minor reformatting. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@48014 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 12 ++++++++++++ gcc/ada/config-lang.in | 2 +- gcc/ada/layout.adb | 1 - gcc/ada/mdllfile.ads | 4 ++-- gcc/ada/sem_case.ads | 4 ++-- gcc/ada/sem_ch3.adb | 4 +++- 6 files changed, 20 insertions(+), 7 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a5eec27cdf6..452549ff716 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,15 @@ +2001-12-14 Geert Bosch + + * config-lang.in: Update copyright notice + + * layout.adb: Remove commented out code. + + * mdllfile.ads: Update copyright notice. Fix header format. + + * sem_case.ads: Likewise. + + * sem_ch3.adb: Minor reformatting. + 2001-12-12 Geert Bosch * freeze.ads: Update copyright date. diff --git a/gcc/ada/config-lang.in b/gcc/ada/config-lang.in index 7a853863f0f..d9029c14b8d 100644 --- a/gcc/ada/config-lang.in +++ b/gcc/ada/config-lang.in @@ -1,5 +1,5 @@ # Top level configure fragment for GNU Ada (GNAT). -# Copyright (C) 1994 Free Software Foundation, Inc. +# Copyright (C) 1994-2001 Free Software Foundation, Inc. #This file is part of GNU CC. diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index b3c5401e0bc..311a6e4f86c 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -39,7 +39,6 @@ with Repinfo; use Repinfo; with Sem; use Sem; with Sem_Ch13; use Sem_Ch13; with Sem_Eval; use Sem_Eval; --- with Sem_Res; use Sem_Res; with Sem_Util; use Sem_Util; with Sinfo; use Sinfo; with Snames; use Snames; diff --git a/gcc/ada/mdllfile.ads b/gcc/ada/mdllfile.ads index 84b4291192f..c7a14c238a4 100644 --- a/gcc/ada/mdllfile.ads +++ b/gcc/ada/mdllfile.ads @@ -6,9 +6,9 @@ -- -- -- S p e c -- -- -- --- $Revision$ -- +-- $Revision$ -- -- --- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2001 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- -- diff --git a/gcc/ada/sem_case.ads b/gcc/ada/sem_case.ads index c1f172bcd52..8d0b3f1fbb6 100644 --- a/gcc/ada/sem_case.ads +++ b/gcc/ada/sem_case.ads @@ -6,9 +6,9 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.1 $ -- +-- $Revision$ -- -- --- Copyright (C) 1996 Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2001 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- -- diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index dcae6f96854..515f2e148da 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -1605,7 +1605,9 @@ package body Sem_Ch3 is null; elsif Nkind (E) = N_Raise_Constraint_Error then - -- Aggregate is statically illegal. Place back in declaration. + + -- Aggregate is statically illegal. Place back in declaration + Set_Expression (N, E); Set_No_Initialization (N, False); -- 2.11.0