OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

lib.adb, lib.ads: (In_Predefined_Unit): New functions

Browse Source 
2006-10-31  Robert Dewar  <dewar@adacore.com>

	* lib.adb, lib.ads: (In_Predefined_Unit): New functions

	* a-finali.ads, a-ngcoty.ads, a-strbou.ads, a-stream.ads, a-strmap.ads, 
	a-strunb.ads, a-stwibo.ads, a-stwima.ads, a-stwiun.ads, a-taside.ads, 
	a-coorse.ads, a-convec.ads, a-coinve.ads, a-cohama.ads, a-ciorse.ads, 
	a-cihama.ads, a-cihase.ads, a-cohase.ads, a-ciorma.ads, a-coorma.ads, 
	a-ciormu.ads, a-coormu.ads, a-stzbou.ads, a-stzmap.ads, a-stzunb.ads, 
	a-except-2005.ads: Add pragma Preelaborable_Warning

From-SVN: r118242
This commit is contained in:
Robert Dewar 2006-10-31 18:49:05 +01:00 committed by Arnaud Charlet
parent 498a5a8414
commit 9b832db55c
28 changed files with 91 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/a-cihama.ads
View File

@ -7,7 +7,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -50,7 +50,10 @@ package Ada.Containers.Indefinite_Hashed_Maps is
pragma Preelaborate; pragma Preelaborate;
type Map is tagged private; type Map is tagged private;
pragma Preelaborable_Initialization (Map);
type Cursor is private; type Cursor is private;
pragma Preelaborable_Initialization (Cursor);
Empty_Map : constant Map; Empty_Map : constant Map;
No_Element : constant Cursor; No_Element : constant Cursor;

4
gcc/ada/a-cihase.ads
View File

@ -7,7 +7,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -52,8 +52,10 @@ package Ada.Containers.Indefinite_Hashed_Sets is
pragma Preelaborate; pragma Preelaborate;
type Set is tagged private; type Set is tagged private;
pragma Preelaborable_Initialization (Set);
type Cursor is private; type Cursor is private;
pragma Preelaborable_Initialization (Cursor);
Empty_Set : constant Set; Empty_Set : constant Set;

4
gcc/ada/a-ciorma.ads
View File

@ -7,7 +7,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -51,8 +51,10 @@ package Ada.Containers.Indefinite_Ordered_Maps is
function Equivalent_Keys (Left, Right : Key_Type) return Boolean; function Equivalent_Keys (Left, Right : Key_Type) return Boolean;
type Map is tagged private; type Map is tagged private;
pragma Preelaborable_Initialization (Map);
type Cursor is private; type Cursor is private;
pragma Preelaborable_Initialization (Cursor);
Empty_Map : constant Map; Empty_Map : constant Map;

2
gcc/ada/a-ciormu.ads
View File

@ -50,8 +50,10 @@ package Ada.Containers.Indefinite_Ordered_Multisets is
function Equivalent_Elements (Left, Right : Element_Type) return Boolean; function Equivalent_Elements (Left, Right : Element_Type) return Boolean;
type Set is tagged private; type Set is tagged private;
pragma Preelaborable_Initialization (Set);
type Cursor is private; type Cursor is private;
pragma Preelaborable_Initialization (Cursor);
Empty_Set : constant Set; Empty_Set : constant Set;

4
gcc/ada/a-ciorse.ads
View File

@ -7,7 +7,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -50,8 +50,10 @@ package Ada.Containers.Indefinite_Ordered_Sets is
function Equivalent_Elements (Left, Right : Element_Type) return Boolean; function Equivalent_Elements (Left, Right : Element_Type) return Boolean;
type Set is tagged private; type Set is tagged private;
pragma Preelaborable_Initialization (Set);
type Cursor is private; type Cursor is private;
pragma Preelaborable_Initialization (Cursor);
Empty_Set : constant Set; Empty_Set : constant Set;

4
gcc/ada/a-cohama.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -49,8 +49,10 @@ package Ada.Containers.Hashed_Maps is
pragma Preelaborate; pragma Preelaborate;
type Map is tagged private; type Map is tagged private;
pragma Preelaborable_Initialization (Map);
type Cursor is private; type Cursor is private;
pragma Preelaborable_Initialization (Cursor);
Empty_Map : constant Map; Empty_Map : constant Map;

4
gcc/ada/a-cohase.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -51,8 +51,10 @@ package Ada.Containers.Hashed_Sets is
pragma Preelaborate; pragma Preelaborate;
type Set is tagged private; type Set is tagged private;
pragma Preelaborable_Initialization (Set);
type Cursor is private; type Cursor is private;
pragma Preelaborable_Initialization (Cursor);
Empty_Set : constant Set; Empty_Set : constant Set;

4
gcc/ada/a-coinve.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -52,8 +52,10 @@ package Ada.Containers.Indefinite_Vectors is
No_Index : constant Extended_Index := Extended_Index'First; No_Index : constant Extended_Index := Extended_Index'First;
type Vector is tagged private; type Vector is tagged private;
pragma Preelaborable_Initialization (Vector);
type Cursor is private; type Cursor is private;
pragma Preelaborable_Initialization (Cursor);
Empty_Vector : constant Vector; Empty_Vector : constant Vector;

4
gcc/ada/a-convec.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -51,8 +51,10 @@ package Ada.Containers.Vectors is
No_Index : constant Extended_Index := Extended_Index'First; No_Index : constant Extended_Index := Extended_Index'First;
type Vector is tagged private; type Vector is tagged private;
pragma Preelaborable_Initialization (Vector);
type Cursor is private; type Cursor is private;
pragma Preelaborable_Initialization (Cursor);
Empty_Vector : constant Vector; Empty_Vector : constant Vector;

4
gcc/ada/a-coorma.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -50,8 +50,10 @@ package Ada.Containers.Ordered_Maps is
function Equivalent_Keys (Left, Right : Key_Type) return Boolean; function Equivalent_Keys (Left, Right : Key_Type) return Boolean;
type Map is tagged private; type Map is tagged private;
pragma Preelaborable_Initialization (Map);
type Cursor is private; type Cursor is private;
pragma Preelaborable_Initialization (Cursor);
Empty_Map : constant Map; Empty_Map : constant Map;

2
gcc/ada/a-coormu.ads
View File

@ -49,8 +49,10 @@ package Ada.Containers.Ordered_Multisets is
function Equivalent_Elements (Left, Right : Element_Type) return Boolean; function Equivalent_Elements (Left, Right : Element_Type) return Boolean;
type Set is tagged private; type Set is tagged private;
pragma Preelaborable_Initialization (Set);
type Cursor is private; type Cursor is private;
pragma Preelaborable_Initialization (Cursor);
Empty_Set : constant Set; Empty_Set : constant Set;

4
gcc/ada/a-coorse.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -49,8 +49,10 @@ package Ada.Containers.Ordered_Sets is
function Equivalent_Elements (Left, Right : Element_Type) return Boolean; function Equivalent_Elements (Left, Right : Element_Type) return Boolean;
type Set is tagged private; type Set is tagged private;
pragma Preelaborable_Initialization (Set);
type Cursor is private; type Cursor is private;
pragma Preelaborable_Initialization (Cursor);
Empty_Set : constant Set; Empty_Set : constant Set;

6
gcc/ada/a-except-2005.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -65,9 +65,13 @@ package Ada.Exceptions is
-- pragma, which is fine for the bootstrap. -- pragma, which is fine for the bootstrap.
type Exception_Id is private; type Exception_Id is private;
pragma Preelaborable_Initialization (Exception_Id);
Null_Id : constant Exception_Id; Null_Id : constant Exception_Id;
type Exception_Occurrence is limited private; type Exception_Occurrence is limited private;
pragma Preelaborable_Initialization (Exception_Occurrence);
type Exception_Occurrence_Access is access all Exception_Occurrence; type Exception_Occurrence_Access is access all Exception_Occurrence;
Null_Occurrence : constant Exception_Occurrence; Null_Occurrence : constant Exception_Occurrence;

4
gcc/ada/a-finali.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -41,12 +41,14 @@ package Ada.Finalization is
pragma Preelaborate; pragma Preelaborate;
type Controlled is abstract tagged private; type Controlled is abstract tagged private;
pragma Preelaborable_Initialization (Controlled);
procedure Initialize (Object : in out Controlled); procedure Initialize (Object : in out Controlled);
procedure Adjust (Object : in out Controlled); procedure Adjust (Object : in out Controlled);
procedure Finalize (Object : in out Controlled); procedure Finalize (Object : in out Controlled);
type Limited_Controlled is abstract tagged limited private; type Limited_Controlled is abstract tagged limited private;
pragma Preelaborable_Initialization (Controlled);
procedure Initialize (Object : in out Limited_Controlled); procedure Initialize (Object : in out Limited_Controlled);
procedure Finalize (Object : in out Limited_Controlled); procedure Finalize (Object : in out Limited_Controlled);

1
gcc/ada/a-ngcoty.ads
View File

@ -48,6 +48,7 @@ package Ada.Numerics.Generic_Complex_Types is
pragma Complex_Representation (Complex); pragma Complex_Representation (Complex);
type Imaginary is private; type Imaginary is private;
pragma Preelaborable_Initialization (Imaginary);
i : constant Imaginary; i : constant Imaginary;
j : constant Imaginary; j : constant Imaginary;

3
gcc/ada/a-strbou.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -50,6 +50,7 @@ package Ada.Strings.Bounded is
Max_Length : constant Positive := Max; Max_Length : constant Positive := Max;
type Bounded_String is private; type Bounded_String is private;
pragma Preelaborable_Initialization (Bounded_String);
Null_Bounded_String : constant Bounded_String; Null_Bounded_String : constant Bounded_String;

1
gcc/ada/a-stream.ads
View File

@ -39,6 +39,7 @@ package Ada.Streams is
pragma Pure; pragma Pure;
type Root_Stream_Type is abstract tagged limited private; type Root_Stream_Type is abstract tagged limited private;
pragma Preelaborable_Initialization (Root_Stream_Type);
type Stream_Element is mod 2 ** Standard'Storage_Unit; type Stream_Element is mod 2 ** Standard'Storage_Unit;

4
gcc/ada/a-strmap.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -47,6 +47,7 @@ package Ada.Strings.Maps is
-------------------------------- --------------------------------
type Character_Set is private; type Character_Set is private;
pragma Preelaborable_Initialization (Character_Set);
-- Representation for a set of character values: -- Representation for a set of character values:
Null_Set : constant Character_Set; Null_Set : constant Character_Set;
@ -107,6 +108,7 @@ package Ada.Strings.Maps is
------------------------------------ ------------------------------------
type Character_Mapping is private; type Character_Mapping is private;
pragma Preelaborable_Initialization (Character_Mapping);
-- Representation for a character to character mapping: -- Representation for a character to character mapping:
function Value function Value

9
gcc/ada/a-strunb.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -42,6 +42,7 @@ package Ada.Strings.Unbounded is
pragma Preelaborate; pragma Preelaborate;
type Unbounded_String is private; type Unbounded_String is private;
pragma Preelaborable_Initialization (Unbounded_String);
Null_Unbounded_String : constant Unbounded_String; Null_Unbounded_String : constant Unbounded_String;
@ -426,10 +427,4 @@ private
(AF.Controlled with (AF.Controlled with
Reference => Null_String'Access, Reference => Null_String'Access,
Last => 0); Last => 0);
-- Note: this declaration is illegal since library level controlled
-- objects are not allowed in preelaborated units. See AI-161 for a
-- discussion of this issue and an attempt to address it. Meanwhile,
-- what happens in GNAT is that this check is omitted for internal
-- implementation units (see check in sem_cat.adb).
end Ada.Strings.Unbounded; end Ada.Strings.Unbounded;

3
gcc/ada/a-stwibo.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -50,6 +50,7 @@ package Ada.Strings.Wide_Bounded is
Max_Length : constant Positive := Max; Max_Length : constant Positive := Max;
type Bounded_Wide_String is private; type Bounded_Wide_String is private;
pragma Preelaborable_Initialization (Bounded_Wide_String);
Null_Bounded_Wide_String : constant Bounded_Wide_String; Null_Bounded_Wide_String : constant Bounded_Wide_String;

2
gcc/ada/a-stwima.ads
View File

@ -45,6 +45,7 @@ package Ada.Strings.Wide_Maps is
------------------------------------- -------------------------------------
type Wide_Character_Set is private; type Wide_Character_Set is private;
pragma Preelaborable_Initialization (Wide_Character_Set);
-- Representation for a set of Wide_Character values: -- Representation for a set of Wide_Character values:
Null_Set : constant Wide_Character_Set; Null_Set : constant Wide_Character_Set;
@ -122,6 +123,7 @@ package Ada.Strings.Wide_Maps is
----------------------------------------- -----------------------------------------
type Wide_Character_Mapping is private; type Wide_Character_Mapping is private;
pragma Preelaborable_Initialization (Wide_Character_Mapping);
-- Representation for a wide character to wide character mapping: -- Representation for a wide character to wide character mapping:
function Value function Value

9
gcc/ada/a-stwiun.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -42,6 +42,7 @@ package Ada.Strings.Wide_Unbounded is
pragma Preelaborate; pragma Preelaborate;
type Unbounded_Wide_String is private; type Unbounded_Wide_String is private;
pragma Preelaborable_Initialization (Unbounded_Wide_String);
Null_Unbounded_Wide_String : constant Unbounded_Wide_String; Null_Unbounded_Wide_String : constant Unbounded_Wide_String;
@ -432,10 +433,4 @@ private
(AF.Controlled with (AF.Controlled with
Reference => Null_Wide_String'Access, Reference => Null_Wide_String'Access,
Last => 0); Last => 0);
-- Note: this declaration is illegal since library level controlled
-- objects are not allowed in preelaborated units. See AI-161 for a
-- discussion of this issue and an attempt to address it. Meanwhile,
-- what happens in GNAT is that this check is omitted for internal
-- implementation units (see check in sem_cat.adb).
end Ada.Strings.Wide_Unbounded; end Ada.Strings.Wide_Unbounded;

3
gcc/ada/a-stzbou.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -50,6 +50,7 @@ package Ada.Strings.Wide_Wide_Bounded is
Max_Length : constant Positive := Max; Max_Length : constant Positive := Max;
type Bounded_Wide_Wide_String is private; type Bounded_Wide_Wide_String is private;
pragma Preelaborable_Initialization (Bounded_Wide_Wide_String);
Null_Bounded_Wide_Wide_String : constant Bounded_Wide_Wide_String; Null_Bounded_Wide_Wide_String : constant Bounded_Wide_Wide_String;

2
gcc/ada/a-stzmap.ads
View File

@ -45,6 +45,7 @@ package Ada.Strings.Wide_Wide_Maps is
------------------------------------------ ------------------------------------------
type Wide_Wide_Character_Set is private; type Wide_Wide_Character_Set is private;
pragma Preelaborable_Initialization (Wide_Wide_Character_Set);
-- Representation for a set of Wide_Wide_Character values: -- Representation for a set of Wide_Wide_Character values:
Null_Set : constant Wide_Wide_Character_Set; Null_Set : constant Wide_Wide_Character_Set;
@ -122,6 +123,7 @@ package Ada.Strings.Wide_Wide_Maps is
---------------------------------------------- ----------------------------------------------
type Wide_Wide_Character_Mapping is private; type Wide_Wide_Character_Mapping is private;
pragma Preelaborable_Initialization (Wide_Wide_Character_Mapping);
-- Representation for a wide character to wide character mapping: -- Representation for a wide character to wide character mapping:
function Value function Value

9
gcc/ada/a-stzunb.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -42,6 +42,7 @@ package Ada.Strings.Wide_Wide_Unbounded is
pragma Preelaborate; pragma Preelaborate;
type Unbounded_Wide_Wide_String is private; type Unbounded_Wide_Wide_String is private;
pragma Preelaborable_Initialization (Unbounded_Wide_Wide_String);
Null_Unbounded_Wide_Wide_String : constant Unbounded_Wide_Wide_String; Null_Unbounded_Wide_Wide_String : constant Unbounded_Wide_Wide_String;
@ -441,10 +442,4 @@ private
Reference => Reference =>
Null_Wide_Wide_String'Access, Null_Wide_Wide_String'Access,
Last => 0); Last => 0);
-- Note: this declaration is illegal since library level controlled
-- objects are not allowed in preelaborated units. See AI-161 for a
-- discussion of this issue and an attempt to address it. Meanwhile,
-- what happens in GNAT is that this check is omitted for internal
-- implementation units (see check in sem_cat.adb).
end Ada.Strings.Wide_Wide_Unbounded; end Ada.Strings.Wide_Wide_Unbounded;

3
gcc/ada/a-taside.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
@ -43,6 +43,7 @@ package Ada.Task_Identification is
-- In accordance with Ada 2005 AI-362 -- In accordance with Ada 2005 AI-362
type Task_Id is private; type Task_Id is private;
pragma Preelaborable_Initialization (Task_Id);
Null_Task_Id : constant Task_Id; Null_Task_Id : constant Task_Id;

16
gcc/ada/lib.adb
View File

@ -748,6 +748,22 @@ package body Lib is
end if; end if;
end In_Extended_Main_Source_Unit; end In_Extended_Main_Source_Unit;
------------------------
-- In_Predefined_Unit --
------------------------
function In_Predefined_Unit (N : Node_Or_Entity_Id) return Boolean is
begin
return In_Predefined_Unit (Sloc (N));
end In_Predefined_Unit;
function In_Predefined_Unit (S : Source_Ptr) return Boolean is
Unit : constant Unit_Number_Type := Get_Source_Unit (S);
File : constant File_Name_Type := Unit_File_Name (Unit);
begin
return Is_Predefined_File_Name (File);
end In_Predefined_Unit;
----------------------- -----------------------
-- In_Same_Code_Unit -- -- In_Same_Code_Unit --
----------------------- -----------------------

11
gcc/ada/lib.ads
View File

@ -491,8 +491,15 @@ package Lib is
-- and the parent unit spec if it is separate. -- and the parent unit spec if it is separate.
function In_Extended_Main_Source_Unit (Loc : Source_Ptr) return Boolean; function In_Extended_Main_Source_Unit (Loc : Source_Ptr) return Boolean;
-- Same function as above, but argument is a source pointer rather -- Same function as above, but argument is a source pointer
-- than a node.
function In_Predefined_Unit (N : Node_Or_Entity_Id) return Boolean;
-- Returns True if the given node or entity appears within the source text
-- of a predefined unit (i.e. within Ada, Interfaces, System or within one
-- of the descendent packages of one of these three packages).
function In_Predefined_Unit (S : Source_Ptr) return Boolean;
-- Same function as above but argument is a source pointer
function Earlier_In_Extended_Unit (S1, S2 : Source_Ptr) return Boolean; function Earlier_In_Extended_Unit (S1, S2 : Source_Ptr) return Boolean;
-- Given two Sloc values for which In_Same_Extended_Unit is true, -- Given two Sloc values for which In_Same_Extended_Unit is true,