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:
parent
1808372b58
commit
449d2be3bc
@ -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.
|
||||
|
@ -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.
|
||||
|
||||
|
@ -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;
|
||||
|
@ -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- --
|
||||
|
@ -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- --
|
||||
|
@ -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);
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user