config-lang.in: Update copyright notice

* 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.

From-SVN: r48014
This commit is contained in:
Geert Bosch 2001-12-14 23:31:14 +01:00 committed by Geert Bosch
parent 1808372b58
commit 449d2be3bc
6 changed files with 20 additions and 7 deletions

View File

@ -1,3 +1,15 @@
2001-12-14 Geert Bosch <bosch@gnat.com>
* 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 <bosch@gnat.com>
* freeze.ads: Update copyright date.

View File

@ -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.

View File

@ -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;

View File

@ -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- --

View File

@ -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- --

View File

@ -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);