mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-04 04:40:27 +08:00
Code Issues Packages Projects Releases Wiki Activity

ali-util.adb (Get_File_Checksum): Update to account for change in profile of Initialize_Scanner.

Browse Source 
2006-02-13  Thomas Quinot  <quinot@adacore.com>
	    Vincent Celier  <celier@adacore.com>
	    Robert Dewar  <dewar@adacore.com>

	* ali-util.adb (Get_File_Checksum): Update to account for change in
	profile of Initialize_Scanner.

	* gprep.adb (Gnatprep): Update to account for change in profile of
	Initialize_Scanner.
	(Process_One_File): Same.

	* lib.adb (Get_Code_Or_Source_Unit): New subprogram factoring the
	common code between Get_Code_Unit and Get_Source_Unit. Reimplement
	that behaviour using the new Unit information recorded in the source
	files table, rather than going through all units every time.
	(Get_Code_Unit): Reimplement in terms of Get_Code_Or_Source_Unit.
	(Get_Source_Unit): Same.

	* prepcomp.adb (Parse_Preprocessing_Data_File): Update to account for
	change in profile of Initialize_Scanner.
	(Prepare_To_Preprocess): Same.

	* lib.ads: Fix typo in comment (templace -> template).

	* prj-part.adb (Parse_Single_Project): Update to account for change in
	profile of Initialize_Scanner.

	* scn.adb (Initialize_Scanner): Account for change in profile of
	Scng.Initialize_Scanner: set Current_Source_Unit in Scn instead of Scng.
	Also record the association of the given Source_File_Index to the
	corresponding Unit_Number_Type.

	* scng.ads, scng.adb (Initialize_Scanner.Set_Reserved): Remove
	procedure.
	(Initialize_Scanner): Call Scans.Initialize_Ada_Keywords.
	Remove Unit formal for generic scanner: this formal
	is only relevant to Scn (the scanner instance used to parse Ada source
	files), not to other instances. Update comment accordingly.
	(Scan): Use new function Snames.Is_Keyword_Name.

	* sinfo-cn.adb: Fix typo in comment.

	* sinput.adb (Unit, Set_Unit): Accessors for new source file attribute
	Unit.

	* sinput.ads (Source_File_Record): New component Unit, used to capture
	the unit identifier (if any) associated to a source file.

	* sinput-c.adb, sinput-l.adb (Load_File): Initialize new component
	Unit in Source_File_Record.

	* sinput-p.adb (Source_File_Is_Subunit): Update to account for change
	in profile of Initialize_Scanner.

	* scans.adb (Initialize_Ada_Keywords): New procedure

	* scans.ads (Initialize_Ada_Keywords): New procedure to initialize the
	Ada keywords in the Namet table, without the need to call
	Initialize_Scanner.

	* snames.adb: Add pragma Ada_2005 (synonym for Ada_05)
	(Is_Keyword_Name): New function

	* snames.ads: Add subtype Configuration_Pragma_Names
	Add pragma Ada_2005 (synonym for Ada_05)
	(Is_Keyword_Name): New function

	* snames.h: Add pragma Ada_2005 (synonym for Ada_05)

From-SVN: r111032
This commit is contained in:
Thomas Quinot 2006-02-15 10:32:12 +01:00 committed by Arnaud Charlet
parent 6f301919dc
commit 68e2ea2757
20 changed files with 1071 additions and 1004 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ali-util.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -154,7 +154,7 @@ package body ALI.Util is
return Checksum_Error;
end if;
Scanner.Initialize_Scanner (Types.No_Unit, Source_Index);
Scanner.Initialize_Scanner (Source_Index);
-- Make sure that the project language reserved words are not
-- recognized as reserved words, but as identifiers. The byte info for

12
gcc/ada/gprep.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2005, Free Software Foundation, Inc. --
-- Copyright (C) 2002-2006, 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- --
@ -27,7 +27,7 @@
with Csets;
with Err_Vars; use Err_Vars;
with Errutil;
with Gnatvsn;
with Gnatvsn; use Gnatvsn;
with Namet; use Namet;
with Opt;
with Osint; use Osint;
@ -137,7 +137,9 @@ package body GPrep is
begin
if not Copyright_Displayed then
Write_Line ("GNAT Preprocessor " & Gnatvsn.Gnat_Version_String);
Write_Line ("Copyright 1996-2005, Free Software Foundation, Inc.");
Write_Line ("Copyright 1996-" &
Current_Year &
", Free Software Foundation, Inc.");
Copyright_Displayed := True;
end if;
end Display_Copyright;
@ -241,7 +243,7 @@ package body GPrep is
"""");
end if;
Scanner.Initialize_Scanner (No_Unit, Deffile);
Scanner.Initialize_Scanner (Deffile);
Prep.Parse_Def_File;
end;
@ -502,7 +504,7 @@ package body GPrep is
Sinput.Main_Source_File := Infile;
Scanner.Initialize_Scanner (No_Unit, Infile);
Scanner.Initialize_Scanner (Infile);
-- Output the SFN pragma if asked to

84
gcc/ada/lib.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -66,6 +66,12 @@ package body Lib is
-- Used by In_Same_Extended_Unit and Earlier_In_Extended_Unit. Returns
-- value as described above.
function Get_Code_Or_Source_Unit
(S : Source_Ptr;
Unwind_Instances : Boolean) return Unit_Number_Type;
-- Common code for Get_Code_Unit (get unit of instantiation for location)
-- and Get_Source_Unit (get unit of template for location).
--------------------------------------------
-- Access Functions for Unit Table Fields --
--------------------------------------------
@ -486,11 +492,14 @@ package body Lib is
end if;
end Generic_Separately_Compiled;
-------------------
-- Get_Code_Unit --
-------------------
-----------------------------
-- Get_Code_Or_Source_Unit --
-----------------------------
function Get_Code_Unit (S : Source_Ptr) return Unit_Number_Type is
function Get_Code_Or_Source_Unit
(S : Source_Ptr;
Unwind_Instances : Boolean) return Unit_Number_Type
is
begin
-- Search table unless we have No_Location, which can happen if the
-- relevant location has not been set yet. Happens for example when
@ -498,22 +507,41 @@ package body Lib is
if S /= No_Location then
declare
Source_File : constant Source_File_Index :=
Get_Source_File_Index (Top_Level_Location (S));
Source_File : Source_File_Index;
Source_Unit : Unit_Number_Type;
begin
for U in Units.First .. Units.Last loop
if Source_Index (U) = Source_File then
return U;
end if;
end loop;
Source_File := Get_Source_File_Index (S);
if Unwind_Instances then
while Template (Source_File) /= No_Source_File loop
Source_File := Template (Source_File);
end loop;
end if;
Source_Unit := Unit (Source_File);
if Source_Unit /= No_Unit then
return Source_Unit;
end if;
end;
end if;
-- If S was No_Location, or was not in the table, we must be in the
-- main source unit (and the value has not been placed in the table yet)
-- If S was No_Location, or was not in the table, we must be in the main
-- source unit (and the value has not been placed in the table yet),
-- or in one of the configuration pragma files.
return Main_Unit;
end Get_Code_Or_Source_Unit;
-------------------
-- Get_Code_Unit --
-------------------
function Get_Code_Unit (S : Source_Ptr) return Unit_Number_Type is
begin
return Get_Code_Or_Source_Unit (Top_Level_Location (S),
Unwind_Instances => False);
end Get_Code_Unit;
function Get_Code_Unit (N : Node_Or_Entity_Id) return Unit_Number_Type is
@ -579,33 +607,7 @@ package body Lib is
function Get_Source_Unit (S : Source_Ptr) return Unit_Number_Type is
begin
-- Search table unless we have No_Location, which can happen if the
-- relevant location has not been set yet. Happens for example when
-- we obtain Sloc (Cunit (Main_Unit)) before it is set.
if S /= No_Location then
declare
Source_File : Source_File_Index :=
Get_Source_File_Index (Top_Level_Location (S));
begin
Source_File := Get_Source_File_Index (S);
while Template (Source_File) /= No_Source_File loop
Source_File := Template (Source_File);
end loop;
for U in Units.First .. Units.Last loop
if Source_Index (U) = Source_File then
return U;
end if;
end loop;
end;
end if;
-- If S was No_Location, or was not in the table, we must be in the
-- main source unit (and the value has not got put into the table yet)
return Main_Unit;
return Get_Code_Or_Source_Unit (S, Unwind_Instances => True);
end Get_Source_Unit;
function Get_Source_Unit (N : Node_Or_Entity_Id) return Unit_Number_Type is

10
gcc/ada/lib.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -424,10 +424,10 @@ package Lib is
-- Return unit number of file identified by given source pointer value.
-- This call must always succeed, since any valid source pointer value
-- belongs to some previously loaded module. If the given source pointer
-- value is within an instantiation, this function returns the unit
-- number of the templace, i.e. the unit containing the source code
-- corresponding to the given Source_Ptr value. The version taking
-- a Node_Id argument, N, simply applies the function to Sloc (N).
-- value is within an instantiation, this function returns the unit number
-- of the template, i.e. the unit containing the source code corresponding
-- to the given Source_Ptr value. The version taking a Node_Id argument, N,
-- simply applies the function to Sloc (N).
function Get_Code_Unit (N : Node_Or_Entity_Id) return Unit_Number_Type;
pragma Inline (Get_Code_Unit);

7
gcc/ada/prepcomp.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2003-2005, Free Software Foundation, Inc. --
-- Copyright (C) 2003-2006, 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- --
@ -248,8 +248,7 @@ package body Prepcomp is
-- Initialize the sanner and set its behavior for a processing data file
Scn.Scanner.Initialize_Scanner
(No_Unit, Source_Index_Of_Preproc_Data_File);
Scn.Scanner.Initialize_Scanner (Source_Index_Of_Preproc_Data_File);
Scn.Scanner.Set_End_Of_Line_As_Token (True);
Scn.Scanner.Reset_Special_Characters;
@ -676,7 +675,7 @@ package body Prepcomp is
-- Initialize the scanner and process the definition file
Scn.Scanner.Initialize_Scanner (No_Unit, Deffile);
Scn.Scanner.Initialize_Scanner (Deffile);
Prep.Parse_Def_File;
-- Reset the behaviour of the scanner to the default

4
gcc/ada/prj-part.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2001-2005, Free Software Foundation, Inc. --
-- Copyright (C) 2001-2006, 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- --
@ -1040,7 +1040,7 @@ package body Prj.Part is
return;
end if;
Prj.Err.Scanner.Initialize_Scanner (Types.No_Unit, Source_Index);
Prj.Err.Scanner.Initialize_Scanner (Source_Index);
Tree.Reset_State;
Scan (In_Tree);

113
gcc/ada/scans.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -31,13 +31,122 @@
-- --
------------------------------------------------------------------------------
with Namet; use Namet;
with Snames; use Snames;
package body Scans is
-----------------------------
-- Initialize_Ada_Keywords --
-----------------------------
procedure Initialize_Ada_Keywords is
procedure Set_Reserved (N : Name_Id; T : Token_Type);
pragma Inline (Set_Reserved);
-- Set given name as a reserved word (T is the corresponding token)
------------------
-- Set_Reserved --
------------------
procedure Set_Reserved (N : Name_Id; T : Token_Type) is
begin
-- Set up Token_Type values in Names table entries for reserved
-- words. We use the Pos value of the Token_Type value. Note that
-- Is_Keyword_Name relies on the fact that Token_Type'Val (0) is not
-- a reserved word!
Set_Name_Table_Byte (N, Token_Type'Pos (T));
end Set_Reserved;
-- Start of processing for Initialize_Ada_Keywords
begin
-- Establish reserved words
Set_Reserved (Name_Abort, Tok_Abort);
Set_Reserved (Name_Abs, Tok_Abs);
Set_Reserved (Name_Abstract, Tok_Abstract);
Set_Reserved (Name_Accept, Tok_Accept);
Set_Reserved (Name_Access, Tok_Access);
Set_Reserved (Name_And, Tok_And);
Set_Reserved (Name_Aliased, Tok_Aliased);
Set_Reserved (Name_All, Tok_All);
Set_Reserved (Name_Array, Tok_Array);
Set_Reserved (Name_At, Tok_At);
Set_Reserved (Name_Begin, Tok_Begin);
Set_Reserved (Name_Body, Tok_Body);
Set_Reserved (Name_Case, Tok_Case);
Set_Reserved (Name_Constant, Tok_Constant);
Set_Reserved (Name_Declare, Tok_Declare);
Set_Reserved (Name_Delay, Tok_Delay);
Set_Reserved (Name_Delta, Tok_Delta);
Set_Reserved (Name_Digits, Tok_Digits);
Set_Reserved (Name_Do, Tok_Do);
Set_Reserved (Name_Else, Tok_Else);
Set_Reserved (Name_Elsif, Tok_Elsif);
Set_Reserved (Name_End, Tok_End);
Set_Reserved (Name_Entry, Tok_Entry);
Set_Reserved (Name_Exception, Tok_Exception);
Set_Reserved (Name_Exit, Tok_Exit);
Set_Reserved (Name_For, Tok_For);
Set_Reserved (Name_Function, Tok_Function);
Set_Reserved (Name_Generic, Tok_Generic);
Set_Reserved (Name_Goto, Tok_Goto);
Set_Reserved (Name_If, Tok_If);
Set_Reserved (Name_In, Tok_In);
Set_Reserved (Name_Is, Tok_Is);
Set_Reserved (Name_Limited, Tok_Limited);
Set_Reserved (Name_Loop, Tok_Loop);
Set_Reserved (Name_Mod, Tok_Mod);
Set_Reserved (Name_New, Tok_New);
Set_Reserved (Name_Not, Tok_Not);
Set_Reserved (Name_Null, Tok_Null);
Set_Reserved (Name_Of, Tok_Of);
Set_Reserved (Name_Or, Tok_Or);
Set_Reserved (Name_Others, Tok_Others);
Set_Reserved (Name_Out, Tok_Out);
Set_Reserved (Name_Package, Tok_Package);
Set_Reserved (Name_Pragma, Tok_Pragma);
Set_Reserved (Name_Private, Tok_Private);
Set_Reserved (Name_Procedure, Tok_Procedure);
Set_Reserved (Name_Protected, Tok_Protected);
Set_Reserved (Name_Raise, Tok_Raise);
Set_Reserved (Name_Range, Tok_Range);
Set_Reserved (Name_Record, Tok_Record);
Set_Reserved (Name_Rem, Tok_Rem);
Set_Reserved (Name_Renames, Tok_Renames);
Set_Reserved (Name_Requeue, Tok_Requeue);
Set_Reserved (Name_Return, Tok_Return);
Set_Reserved (Name_Reverse, Tok_Reverse);
Set_Reserved (Name_Select, Tok_Select);
Set_Reserved (Name_Separate, Tok_Separate);
Set_Reserved (Name_Subtype, Tok_Subtype);
Set_Reserved (Name_Tagged, Tok_Tagged);
Set_Reserved (Name_Task, Tok_Task);
Set_Reserved (Name_Terminate, Tok_Terminate);
Set_Reserved (Name_Then, Tok_Then);
Set_Reserved (Name_Type, Tok_Type);
Set_Reserved (Name_Until, Tok_Until);
Set_Reserved (Name_Use, Tok_Use);
Set_Reserved (Name_When, Tok_When);
Set_Reserved (Name_While, Tok_While);
Set_Reserved (Name_With, Tok_With);
Set_Reserved (Name_Xor, Tok_Xor);
-- Ada 2005 reserved words
Set_Reserved (Name_Interface, Tok_Interface);
Set_Reserved (Name_Overriding, Tok_Overriding);
Set_Reserved (Name_Synchronized, Tok_Synchronized);
end Initialize_Ada_Keywords;
------------------------
-- Restore_Scan_State --
------------------------
procedure Restore_Scan_State (Saved_State : in Saved_Scan_State) is
procedure Restore_Scan_State (Saved_State : Saved_Scan_State) is
begin
Scan_Ptr := Saved_State.Save_Scan_Ptr;
Token := Saved_State.Save_Token;

193
gcc/ada/scans.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -46,9 +46,9 @@ package Scans is
-- The class column in this table indicates the token classes which
-- apply to the token, as defined by subsquent subtype declarations.
-- Note: the coding in SCN depends on the fact that the first entry in
-- this type declaration is *not* for a reserved word. For details on
-- why there is this requirement, see Scn.Initialize_Scanner.
-- Note: Namet.Is_Keyword_Name depends on the fact that the first entry in
-- this type declaration is *not* for a reserved word. For details on why
-- there is this requirement, see Scans.Initialize_Ada_Keywords.
type Token_Type is (
@ -223,117 +223,122 @@ package Scans is
-- The following subtype declarations group the token types into classes.
-- These are used for class tests in the parser.
subtype Token_Class_Numeric_Literal is
Token_Type range Tok_Integer_Literal .. Tok_Real_Literal;
-- Numeric literal
subtype Token_Class_Numeric_Literal is
Token_Type range Tok_Integer_Literal .. Tok_Real_Literal;
-- Numeric literal
subtype Token_Class_Literal is
Token_Type range Tok_Integer_Literal .. Tok_Operator_Symbol;
-- Literal
subtype Token_Class_Literal is
Token_Type range Tok_Integer_Literal .. Tok_Operator_Symbol;
-- Literal
subtype Token_Class_Lit_Or_Name is
Token_Type range Tok_Integer_Literal .. Tok_Identifier;
subtype Token_Class_Lit_Or_Name is
Token_Type range Tok_Integer_Literal .. Tok_Identifier;
subtype Token_Class_Binary_Addop is
Token_Type range Tok_Ampersand .. Tok_Plus;
-- Binary adding operator (& + -)
subtype Token_Class_Binary_Addop is
Token_Type range Tok_Ampersand .. Tok_Plus;
-- Binary adding operator (& + -)
subtype Token_Class_Unary_Addop is
Token_Type range Tok_Minus .. Tok_Plus;
-- Unary adding operator (+ -)
subtype Token_Class_Unary_Addop is
Token_Type range Tok_Minus .. Tok_Plus;
-- Unary adding operator (+ -)
subtype Token_Class_Mulop is
Token_Type range Tok_Asterisk .. Tok_Slash;
-- Multiplying operator
subtype Token_Class_Mulop is
Token_Type range Tok_Asterisk .. Tok_Slash;
-- Multiplying operator
subtype Token_Class_Logop is
Token_Type range Tok_And .. Tok_Xor;
-- Logical operator (and, or, xor)
subtype Token_Class_Logop is
Token_Type range Tok_And .. Tok_Xor;
-- Logical operator (and, or, xor)
subtype Token_Class_Relop is
Token_Type range Tok_Less .. Tok_Box;
-- Relational operator (= /= < <= > >= not, in plus <> to catch misuse
-- of Pascal style not equal operator).
subtype Token_Class_Relop is
Token_Type range Tok_Less .. Tok_Box;
-- Relational operator (= /= < <= > >= not, in plus <> to catch misuse
-- of Pascal style not equal operator).
subtype Token_Class_Name is
Token_Type range Tok_Char_Literal .. Tok_Identifier;
-- First token of name (4.1),
-- (identifier, char literal, operator symbol)
subtype Token_Class_Name is
Token_Type range Tok_Char_Literal .. Tok_Identifier;
-- First token of name (4.1),
-- (identifier, char literal, operator symbol)
subtype Token_Class_Desig is
Token_Type range Tok_Operator_Symbol .. Tok_Identifier;
-- Token which can be a Designator (identifier, operator symbol)
subtype Token_Class_Desig is
Token_Type range Tok_Operator_Symbol .. Tok_Identifier;
-- Token which can be a Designator (identifier, operator symbol)
subtype Token_Class_Namext is
Token_Type range Tok_Dot .. Tok_Left_Paren;
-- Name extension tokens. These are tokens which can appear immediately
-- after a name to extend it recursively (period, quote, left paren)
subtype Token_Class_Namext is
Token_Type range Tok_Dot .. Tok_Left_Paren;
-- Name extension tokens. These are tokens which can appear immediately
-- after a name to extend it recursively (period, quote, left paren)
subtype Token_Class_Consk is
Token_Type range Tok_Left_Paren .. Tok_Range;
-- Keywords which can start constraint
-- (left paren, delta, digits, range)
subtype Token_Class_Consk is
Token_Type range Tok_Left_Paren .. Tok_Range;
-- Keywords which can start constraint
-- (left paren, delta, digits, range)
subtype Token_Class_Eterm is
Token_Type range Tok_Colon_Equal .. Tok_Semicolon;
-- Expression terminators. These tokens can never appear within a simple
-- expression. This is used for error recovery purposes (if we encounter
-- an error in an expression, we simply scan to the next Eterm token).
subtype Token_Class_Eterm is
Token_Type range Tok_Colon_Equal .. Tok_Semicolon;
-- Expression terminators. These tokens can never appear within a simple
-- expression. This is used for error recovery purposes (if we encounter
-- an error in an expression, we simply scan to the next Eterm token).
subtype Token_Class_Sterm is
Token_Type range Tok_Delta .. Tok_Dot_Dot;
-- Simple_Expression terminators. A Simple_Expression must be followed
-- by a token in this class, or an error message is issued complaining
-- about a missing binary operator.
subtype Token_Class_Sterm is
Token_Type range Tok_Delta .. Tok_Dot_Dot;
-- Simple_Expression terminators. A Simple_Expression must be followed
-- by a token in this class, or an error message is issued complaining
-- about a missing binary operator.
subtype Token_Class_Atkwd is
Token_Type range Tok_Delta .. Tok_Range;
-- Attribute keywords. This class includes keywords which can be used
-- as an Attribute_Designator, namely DELTA, DIGITS and RANGE
subtype Token_Class_Atkwd is
Token_Type range Tok_Delta .. Tok_Range;
-- Attribute keywords. This class includes keywords which can be used
-- as an Attribute_Designator, namely DELTA, DIGITS and RANGE
subtype Token_Class_Cterm is
Token_Type range Tok_EOF .. Tok_Vertical_Bar;
-- Choice terminators. These tokens terminate a choice. This is used for
-- error recovery purposes (if we encounter an error in a Choice, we
-- simply scan to the next Cterm token).
subtype Token_Class_Cterm is
Token_Type range Tok_EOF .. Tok_Vertical_Bar;
-- Choice terminators. These tokens terminate a choice. This is used for
-- error recovery purposes (if we encounter an error in a Choice, we
-- simply scan to the next Cterm token).
subtype Token_Class_Chtok is
Token_Type range Tok_Arrow .. Tok_Dot_Dot;
-- Choice tokens. These tokens signal a choice when used in an Aggregate
subtype Token_Class_Chtok is
Token_Type range Tok_Arrow .. Tok_Dot_Dot;
-- Choice tokens. These tokens signal a choice when used in an Aggregate
subtype Token_Class_Cunit is
Token_Type range Tok_Function .. Tok_Separate;
-- Tokens which can begin a compilation unit
subtype Token_Class_Cunit is
Token_Type range Tok_Function .. Tok_Separate;
-- Tokens which can begin a compilation unit
subtype Token_Class_Declk is
Token_Type range Tok_Entry .. Tok_Procedure;
-- Keywords which start a declaration
subtype Token_Class_Declk is
Token_Type range Tok_Entry .. Tok_Procedure;
-- Keywords which start a declaration
subtype Token_Class_Deckn is
Token_Type range Tok_Entry .. Tok_Use;
-- Keywords which start a declaration but can't start a compilation unit
subtype Token_Class_Deckn is
Token_Type range Tok_Entry .. Tok_Use;
-- Keywords which start a declaration but can't start a compilation unit
subtype Token_Class_After_SM is
Token_Type range Tok_Less_Less .. Tok_EOF;
-- Tokens which always, or almost always, appear after a semicolon. Used
-- in the Resync_Past_Semicolon routine to avoid gobbling up stuff when
-- a semicolon is missing. Of significance only for error recovery.
subtype Token_Class_After_SM is
Token_Type range Tok_Less_Less .. Tok_EOF;
-- Tokens which always, or almost always, appear after a semicolon. Used
-- in the Resync_Past_Semicolon routine to avoid gobbling up stuff when
-- a semicolon is missing. Of significance only for error recovery.
subtype Token_Class_Labeled_Stmt is
Token_Type range Tok_Begin .. Tok_While;
-- Tokens which start labeled statements
subtype Token_Class_Labeled_Stmt is
Token_Type range Tok_Begin .. Tok_While;
-- Tokens which start labeled statements
type Token_Flag_Array is array (Token_Type) of Boolean;
Is_Reserved_Keyword : constant Token_Flag_Array := Token_Flag_Array'(
Tok_Mod .. Tok_Rem => True,
Tok_New .. Tok_Null => True,
Tok_Delta .. Tok_Range => True,
Tok_And .. Tok_Xor => True,
Tok_In .. Tok_Not => True,
Tok_Abstract .. Tok_Then => True,
Tok_Abort .. Tok_Separate => True,
others => False);
-- Flag array used to test for reserved word
type Token_Flag_Array is array (Token_Type) of Boolean;
Is_Reserved_Keyword : constant Token_Flag_Array :=
Token_Flag_Array'
(Tok_Mod .. Tok_Rem => True,
Tok_New .. Tok_Null => True,
Tok_Delta .. Tok_Range => True,
Tok_And .. Tok_Xor => True,
Tok_In .. Tok_Not => True,
Tok_Abstract .. Tok_Then => True,
Tok_Abort .. Tok_Separate => True,
others => False);
-- Flag array used to test for reserved word
procedure Initialize_Ada_Keywords;
-- Set up Token_Type values in Names table entries for Ada reserved
-- words.
--------------------------
-- Scan State Variables --
@ -444,7 +449,7 @@ package Scans is
-- Saves the current scan state for possible later restoration. Note that
-- there is no harm in saving the state and then never restoring it.
procedure Restore_Scan_State (Saved_State : in Saved_Scan_State);
procedure Restore_Scan_State (Saved_State : Saved_Scan_State);
pragma Inline (Restore_Scan_State);
-- Restores a scan state saved by a call to Save_Scan_State.
-- The saved scan state must refer to the current source file.

10
gcc/ada/scn.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -281,7 +281,13 @@ package body Scn is
GNAT_Hedr : constant Text_Buffer (1 .. 78) := (others => '-');
begin
Scanner.Initialize_Scanner (Unit, Index);
Scanner.Initialize_Scanner (Index);
if Index /= Internal_Source_File then
Set_Unit (Index, Unit);
end if;
Current_Source_Unit := Unit;
-- Set default for Comes_From_Source (except if we are going to process
-- an artificial string internally created within the compiler and

110
gcc/ada/scng.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -141,113 +141,16 @@ package body Scng is
-- Initialize_Scanner --
------------------------
procedure Initialize_Scanner
(Unit : Unit_Number_Type;
Index : Source_File_Index)
is
procedure Set_Reserved (N : Name_Id; T : Token_Type);
pragma Inline (Set_Reserved);
-- Set given name as a reserved keyword (T is the corresponding token)
-------------
-- Set_NTB --
-------------
procedure Set_Reserved (N : Name_Id; T : Token_Type) is
begin
-- Set up Token_Type values in Names Table entries for reserved
-- keywords We use the Pos value of the Token_Type value. Note we
-- rely on the fact that Token_Type'Val (0) is not a reserved word!
Set_Name_Table_Byte (N, Token_Type'Pos (T));
end Set_Reserved;
-- Start of processing for Initialize_Scanner
procedure Initialize_Scanner (Index : Source_File_Index) is
begin
-- Establish reserved words
Set_Reserved (Name_Abort, Tok_Abort);
Set_Reserved (Name_Abs, Tok_Abs);
Set_Reserved (Name_Abstract, Tok_Abstract);
Set_Reserved (Name_Accept, Tok_Accept);
Set_Reserved (Name_Access, Tok_Access);
Set_Reserved (Name_And, Tok_And);
Set_Reserved (Name_Aliased, Tok_Aliased);
Set_Reserved (Name_All, Tok_All);
Set_Reserved (Name_Array, Tok_Array);
Set_Reserved (Name_At, Tok_At);
Set_Reserved (Name_Begin, Tok_Begin);
Set_Reserved (Name_Body, Tok_Body);
Set_Reserved (Name_Case, Tok_Case);
Set_Reserved (Name_Constant, Tok_Constant);
Set_Reserved (Name_Declare, Tok_Declare);
Set_Reserved (Name_Delay, Tok_Delay);
Set_Reserved (Name_Delta, Tok_Delta);
Set_Reserved (Name_Digits, Tok_Digits);
Set_Reserved (Name_Do, Tok_Do);
Set_Reserved (Name_Else, Tok_Else);
Set_Reserved (Name_Elsif, Tok_Elsif);
Set_Reserved (Name_End, Tok_End);
Set_Reserved (Name_Entry, Tok_Entry);
Set_Reserved (Name_Exception, Tok_Exception);
Set_Reserved (Name_Exit, Tok_Exit);
Set_Reserved (Name_For, Tok_For);
Set_Reserved (Name_Function, Tok_Function);
Set_Reserved (Name_Generic, Tok_Generic);
Set_Reserved (Name_Goto, Tok_Goto);
Set_Reserved (Name_If, Tok_If);
Set_Reserved (Name_In, Tok_In);
Set_Reserved (Name_Is, Tok_Is);
Set_Reserved (Name_Limited, Tok_Limited);
Set_Reserved (Name_Loop, Tok_Loop);
Set_Reserved (Name_Mod, Tok_Mod);
Set_Reserved (Name_New, Tok_New);
Set_Reserved (Name_Not, Tok_Not);
Set_Reserved (Name_Null, Tok_Null);
Set_Reserved (Name_Of, Tok_Of);
Set_Reserved (Name_Or, Tok_Or);
Set_Reserved (Name_Others, Tok_Others);
Set_Reserved (Name_Out, Tok_Out);
Set_Reserved (Name_Package, Tok_Package);
Set_Reserved (Name_Pragma, Tok_Pragma);
Set_Reserved (Name_Private, Tok_Private);
Set_Reserved (Name_Procedure, Tok_Procedure);
Set_Reserved (Name_Protected, Tok_Protected);
Set_Reserved (Name_Raise, Tok_Raise);
Set_Reserved (Name_Range, Tok_Range);
Set_Reserved (Name_Record, Tok_Record);
Set_Reserved (Name_Rem, Tok_Rem);
Set_Reserved (Name_Renames, Tok_Renames);
Set_Reserved (Name_Requeue, Tok_Requeue);
Set_Reserved (Name_Return, Tok_Return);
Set_Reserved (Name_Reverse, Tok_Reverse);
Set_Reserved (Name_Select, Tok_Select);
Set_Reserved (Name_Separate, Tok_Separate);
Set_Reserved (Name_Subtype, Tok_Subtype);
Set_Reserved (Name_Tagged, Tok_Tagged);
Set_Reserved (Name_Task, Tok_Task);
Set_Reserved (Name_Terminate, Tok_Terminate);
Set_Reserved (Name_Then, Tok_Then);
Set_Reserved (Name_Type, Tok_Type);
Set_Reserved (Name_Until, Tok_Until);
Set_Reserved (Name_Use, Tok_Use);
Set_Reserved (Name_When, Tok_When);
Set_Reserved (Name_While, Tok_While);
Set_Reserved (Name_With, Tok_With);
Set_Reserved (Name_Xor, Tok_Xor);
-- Ada 2005 reserved words
Set_Reserved (Name_Interface, Tok_Interface);
Set_Reserved (Name_Overriding, Tok_Overriding);
Set_Reserved (Name_Synchronized, Tok_Synchronized);
Scans.Initialize_Ada_Keywords;
-- Initialize scan control variables
Current_Source_File := Index;
Source := Source_Text (Current_Source_File);
Current_Source_Unit := Unit;
Scan_Ptr := Source_First (Current_Source_File);
Token := No_Token;
Token_Ptr := Scan_Ptr;
@ -2330,12 +2233,7 @@ package body Scng is
-- Here is where we check if it was a keyword
if Get_Name_Table_Byte (Token_Name) /= 0
and then (Ada_Version >= Ada_95
or else Token_Name not in Ada_95_Reserved_Words)
and then (Ada_Version >= Ada_05
or else Token_Name not in Ada_2005_Reserved_Words)
then
if Is_Keyword_Name (Token_Name) then
Token := Token_Type'Val (Get_Name_Table_Byte (Token_Name));
-- Deal with possible style check for non-lower case keyword, but

12
gcc/ada/scng.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -60,14 +60,8 @@ generic
package Scng is
procedure Initialize_Scanner
(Unit : Unit_Number_Type;
Index : Source_File_Index);
-- Initialize lexical scanner for scanning a new file. The caller has
-- completed the construction of the Units.Table entry for the specified
-- Unit and Index references the corresponding source file. A special
-- case is when Unit = No_Unit_Number, and Index corresponds to the
-- source index for reading the configuration pragma file.
procedure Initialize_Scanner (Index : Source_File_Index);
-- Initialize lexical scanner for scanning a new file referenced by Index.
-- Initialize_Scanner does not call Scan.
procedure Scan;

4
gcc/ada/sinfo-cn.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -26,7 +26,7 @@
-- This child package of Sinfo contains some routines that permit in place
-- alteration of existing tree nodes by changing the value in the Nkind
-- field. Since Nkind functions logically in a manner similart to a variant
-- field. Since Nkind functions logically in a manner similar to a variant
-- record discriminant part, such alterations cannot be permitted in a
-- general manner, but in some specific cases, the fields of related nodes
-- have been deliberately layed out in a manner that permits such alteration.

3
gcc/ada/sinput-c.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -193,6 +193,7 @@ package body Sinput.C is
Source_Last => Hi,
Source_Text => Src,
Template => No_Source_File,
Unit => No_Unit,
Time_Stamp => Empty_Time_Stamp);
Alloc_Line_Tables (S, Opt.Table_Factor * Alloc.Lines_Initial);

5
gcc/ada/sinput-l.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -441,6 +441,7 @@ package body Sinput.L is
Source_Last => Hi,
Source_Text => Src,
Template => No_Source_File,
Unit => No_Unit,
Time_Stamp => Osint.Current_Source_File_Stamp);
Alloc_Line_Tables (S, Opt.Table_Factor * Alloc.Lines_Initial);
@ -497,7 +498,7 @@ package body Sinput.L is
-- Initialize the scanner and set its behavior for
-- preprocessing, then preprocess.
Scn.Scanner.Initialize_Scanner (No_Unit, X);
Scn.Scanner.Initialize_Scanner (X);
Scn.Scanner.Set_Special_Character ('#');
Scn.Scanner.Set_Special_Character ('$');

6
gcc/ada/sinput-p.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2003 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -57,7 +57,7 @@ package body Sinput.P is
--------------------------------
procedure Restore_Project_Scan_State
(Saved_State : in Saved_Project_Scan_State)
(Saved_State : Saved_Project_Scan_State)
is
begin
Restore_Scan_State (Saved_State.Scan_State);
@ -84,7 +84,7 @@ package body Sinput.P is
function Source_File_Is_Subunit (X : Source_File_Index) return Boolean is
begin
Prj.Err.Scanner.Initialize_Scanner (No_Unit, X);
Prj.Err.Scanner.Initialize_Scanner (X);
-- We scan past junk to the first interesting compilation unit
-- token, to see if it is SEPARATE. We ignore WITH keywords during

12
gcc/ada/sinput.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -1155,6 +1155,11 @@ package body Sinput is
return Source_File.Table (S).Time_Stamp;
end Time_Stamp;
function Unit (S : SFI) return Unit_Number_Type is
begin
return Source_File.Table (S).Unit;
end Unit;
------------------------------------------
-- Set Procedures for Source File Table --
------------------------------------------
@ -1174,6 +1179,11 @@ package body Sinput is
Source_File.Table (S).License := L;
end Set_License;
procedure Set_Unit (S : SFI; U : Unit_Number_Type) is
begin
Source_File.Table (S).Unit := U;
end Set_Unit;
----------------------
-- Trim_Lines_Table --
----------------------

9
gcc/ada/sinput.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -268,6 +268,10 @@ package Sinput is
-- is a generic instantiation. Set to No_Source_File for the normal case
-- of a non-instantiation entry. See Sinput-L for details.
-- Unit : Unit_Number_Type;
-- Identifies the unit contained in this source file. Set by
-- Initialize_Scanner, must not be subsequently altered.
-- The source file table is accessed by clients using the following
-- subprogram interface:
@ -299,11 +303,13 @@ package Sinput is
function Source_Last (S : SFI) return Source_Ptr;
function Source_Text (S : SFI) return Source_Buffer_Ptr;
function Template (S : SFI) return Source_File_Index;
function Unit (S : SFI) return Unit_Number_Type;
function Time_Stamp (S : SFI) return Time_Stamp_Type;
procedure Set_Keyword_Casing (S : SFI; C : Casing_Type);
procedure Set_Identifier_Casing (S : SFI; C : Casing_Type);
procedure Set_License (S : SFI; L : License_Type);
procedure Set_Unit (S : SFI; U : Unit_Number_Type);
function Last_Source_File return Source_File_Index;
-- Index of last source file table entry
@ -686,6 +692,7 @@ private
Identifier_Casing : Casing_Type;
Instantiation : Source_Ptr;
Template : Source_File_Index;
Unit : Unit_Number_Type;
-- The following fields are for internal use only (i.e. only in the
-- body of Sinput or its children, with no direct access by clients).

17
gcc/ada/snames.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -32,6 +32,7 @@
------------------------------------------------------------------------------
with Namet; use Namet;
with Opt; use Opt;
with Table;
package body Snames is
@ -174,6 +175,7 @@ package body Snames is
"ada_83#" &
"ada_95#" &
"ada_05#" &
"ada_2005#" &
"assertion_policy#" &
"c_pass_by_copy#" &
"compile_time_warning#" &
@ -992,6 +994,19 @@ package body Snames is
Last_Renamable_Function_Attribute;
end Is_Function_Attribute_Name;
---------------------
-- Is_Keyword_Name --
---------------------
function Is_Keyword_Name (N : Name_Id) return Boolean is
begin
return Get_Name_Table_Byte (N) /= 0
and then (Ada_Version >= Ada_95
or else N not in Ada_95_Reserved_Words)
and then (Ada_Version >= Ada_05
or else N not in Ada_2005_Reserved_Words);
end Is_Keyword_Name;
----------------------------
-- Is_Locking_Policy_Name --
----------------------------

1163
gcc/ada/snames.ads
View File

File diff suppressed because it is too large Load Diff

297
gcc/ada/snames.h
View File

@ -6,7 +6,7 @@
* *
* C Header File *
* *
* Copyright (C) 1992-2005, Free Software Foundation, Inc. *
* Copyright (C) 1992-2006, 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- *
@ -215,152 +215,153 @@ extern unsigned char Get_Pragma_Id (int);
#define Pragma_Ada_83 0
#define Pragma_Ada_95 1
#define Pragma_Ada_05 2
#define Pragma_Assertion_Policy 3
#define Pragma_C_Pass_By_Copy 4
#define Pragma_Compile_Time_Warning 5
#define Pragma_Component_Alignment 6
#define Pragma_Convention_Identifier 7
#define Pragma_Debug_Policy 8
#define Pragma_Detect_Blocking 9
#define Pragma_Discard_Names 10
#define Pragma_Elaboration_Checks 11
#define Pragma_Eliminate 12
#define Pragma_Explicit_Overriding 13
#define Pragma_Extend_System 14
#define Pragma_Extensions_Allowed 15
#define Pragma_External_Name_Casing 16
#define Pragma_Float_Representation 17
#define Pragma_Initialize_Scalars 18
#define Pragma_Interrupt_State 19
#define Pragma_License 20
#define Pragma_Locking_Policy 21
#define Pragma_Long_Float 22
#define Pragma_No_Run_Time 23
#define Pragma_No_Strict_Aliasing 24
#define Pragma_Normalize_Scalars 25
#define Pragma_Polling 26
#define Pragma_Persistent_BSS 27
#define Pragma_Profile 28
#define Pragma_Profile_Warnings 29
#define Pragma_Propagate_Exceptions 30
#define Pragma_Queuing_Policy 31
#define Pragma_Ravenscar 32
#define Pragma_Restricted_Run_Time 33
#define Pragma_Restrictions 34
#define Pragma_Restriction_Warnings 35
#define Pragma_Reviewable 36
#define Pragma_Source_File_Name 37
#define Pragma_Source_File_Name_Project 38
#define Pragma_Style_Checks 39
#define Pragma_Suppress 40
#define Pragma_Suppress_Exception_Locations 41
#define Pragma_Task_Dispatching_Policy 42
#define Pragma_Universal_Data 43
#define Pragma_Unsuppress 44
#define Pragma_Use_VADS_Size 45
#define Pragma_Validity_Checks 46
#define Pragma_Warnings 47
#define Pragma_Abort_Defer 48
#define Pragma_All_Calls_Remote 49
#define Pragma_Annotate 50
#define Pragma_Assert 51
#define Pragma_Asynchronous 52
#define Pragma_Atomic 53
#define Pragma_Atomic_Components 54
#define Pragma_Attach_Handler 55
#define Pragma_Comment 56
#define Pragma_Common_Object 57
#define Pragma_Complete_Representation 58
#define Pragma_Complex_Representation 59
#define Pragma_Controlled 60
#define Pragma_Convention 61
#define Pragma_CPP_Class 62
#define Pragma_CPP_Constructor 63
#define Pragma_CPP_Virtual 64
#define Pragma_CPP_Vtable 65
#define Pragma_Debug 66
#define Pragma_Elaborate 67
#define Pragma_Elaborate_All 68
#define Pragma_Elaborate_Body 69
#define Pragma_Export 70
#define Pragma_Export_Exception 71
#define Pragma_Export_Function 72
#define Pragma_Export_Object 73
#define Pragma_Export_Procedure 74
#define Pragma_Export_Value 75
#define Pragma_Export_Valued_Procedure 76
#define Pragma_External 77
#define Pragma_Finalize_Storage_Only 78
#define Pragma_Ident 79
#define Pragma_Import 80
#define Pragma_Import_Exception 81
#define Pragma_Import_Function 82
#define Pragma_Import_Object 83
#define Pragma_Import_Procedure 84
#define Pragma_Import_Valued_Procedure 85
#define Pragma_Inline 86
#define Pragma_Inline_Always 87
#define Pragma_Inline_Generic 88
#define Pragma_Inspection_Point 89
#define Pragma_Interface_Name 90
#define Pragma_Interrupt_Handler 91
#define Pragma_Interrupt_Priority 92
#define Pragma_Java_Constructor 93
#define Pragma_Java_Interface 94
#define Pragma_Keep_Names 95
#define Pragma_Link_With 96
#define Pragma_Linker_Alias 97
#define Pragma_Linker_Constructor 98
#define Pragma_Linker_Destructor 99
#define Pragma_Linker_Options 100
#define Pragma_Linker_Section 101
#define Pragma_List 102
#define Pragma_Machine_Attribute 103
#define Pragma_Main 104
#define Pragma_Main_Storage 105
#define Pragma_Memory_Size 106
#define Pragma_No_Return 107
#define Pragma_Obsolescent 108
#define Pragma_Optimize 109
#define Pragma_Optional_Overriding 110
#define Pragma_Pack 111
#define Pragma_Page 112
#define Pragma_Passive 113
#define Pragma_Preelaborate 114
#define Pragma_Preelaborate_05 115
#define Pragma_Priority 116
#define Pragma_Psect_Object 117
#define Pragma_Pure 118
#define Pragma_Pure_05 119
#define Pragma_Pure_Function 120
#define Pragma_Remote_Call_Interface 121
#define Pragma_Remote_Types 122
#define Pragma_Share_Generic 123
#define Pragma_Shared 124
#define Pragma_Shared_Passive 125
#define Pragma_Source_Reference 126
#define Pragma_Stream_Convert 127
#define Pragma_Subtitle 128
#define Pragma_Suppress_All 129
#define Pragma_Suppress_Debug_Info 130
#define Pragma_Suppress_Initialization 131
#define Pragma_System_Name 132
#define Pragma_Task_Info 133
#define Pragma_Task_Name 134
#define Pragma_Task_Storage 135
#define Pragma_Thread_Body 136
#define Pragma_Time_Slice 137
#define Pragma_Title 138
#define Pragma_Unchecked_Union 139
#define Pragma_Unimplemented_Unit 140
#define Pragma_Unreferenced 141
#define Pragma_Unreserve_All_Interrupts 142
#define Pragma_Volatile 143
#define Pragma_Volatile_Components 144
#define Pragma_Weak_External 145
#define Pragma_AST_Entry 146
#define Pragma_Interface 147
#define Pragma_Storage_Size 148
#define Pragma_Storage_Unit 149
#define Pragma_Ada_2005 3
#define Pragma_Assertion_Policy 4
#define Pragma_C_Pass_By_Copy 5
#define Pragma_Compile_Time_Warning 6
#define Pragma_Component_Alignment 7
#define Pragma_Convention_Identifier 8
#define Pragma_Debug_Policy 9
#define Pragma_Detect_Blocking 10
#define Pragma_Discard_Names 11
#define Pragma_Elaboration_Checks 12
#define Pragma_Eliminate 13
#define Pragma_Explicit_Overriding 14
#define Pragma_Extend_System 15
#define Pragma_Extensions_Allowed 16
#define Pragma_External_Name_Casing 17
#define Pragma_Float_Representation 18
#define Pragma_Initialize_Scalars 19
#define Pragma_Interrupt_State 20
#define Pragma_License 21
#define Pragma_Locking_Policy 22
#define Pragma_Long_Float 23
#define Pragma_No_Run_Time 24
#define Pragma_No_Strict_Aliasing 25
#define Pragma_Normalize_Scalars 26
#define Pragma_Polling 27
#define Pragma_Persistent_BSS 28
#define Pragma_Profile 29
#define Pragma_Profile_Warnings 30
#define Pragma_Propagate_Exceptions 31
#define Pragma_Queuing_Policy 32
#define Pragma_Ravenscar 33
#define Pragma_Restricted_Run_Time 34
#define Pragma_Restrictions 35
#define Pragma_Restriction_Warnings 36
#define Pragma_Reviewable 37
#define Pragma_Source_File_Name 38
#define Pragma_Source_File_Name_Project 39
#define Pragma_Style_Checks 40
#define Pragma_Suppress 41
#define Pragma_Suppress_Exception_Locations 42
#define Pragma_Task_Dispatching_Policy 43
#define Pragma_Universal_Data 44
#define Pragma_Unsuppress 45
#define Pragma_Use_VADS_Size 46
#define Pragma_Validity_Checks 47
#define Pragma_Warnings 48
#define Pragma_Abort_Defer 49
#define Pragma_All_Calls_Remote 50
#define Pragma_Annotate 51
#define Pragma_Assert 52
#define Pragma_Asynchronous 53
#define Pragma_Atomic 54
#define Pragma_Atomic_Components 55
#define Pragma_Attach_Handler 56
#define Pragma_Comment 57
#define Pragma_Common_Object 58
#define Pragma_Complete_Representation 59
#define Pragma_Complex_Representation 60
#define Pragma_Controlled 61
#define Pragma_Convention 62
#define Pragma_CPP_Class 63
#define Pragma_CPP_Constructor 64
#define Pragma_CPP_Virtual 65
#define Pragma_CPP_Vtable 66
#define Pragma_Debug 67
#define Pragma_Elaborate 68
#define Pragma_Elaborate_All 69
#define Pragma_Elaborate_Body 70
#define Pragma_Export 71
#define Pragma_Export_Exception 72
#define Pragma_Export_Function 73
#define Pragma_Export_Object 74
#define Pragma_Export_Procedure 75
#define Pragma_Export_Value 76
#define Pragma_Export_Valued_Procedure 77
#define Pragma_External 78
#define Pragma_Finalize_Storage_Only 79
#define Pragma_Ident 80
#define Pragma_Import 81
#define Pragma_Import_Exception 82
#define Pragma_Import_Function 83
#define Pragma_Import_Object 84
#define Pragma_Import_Procedure 85
#define Pragma_Import_Valued_Procedure 86
#define Pragma_Inline 87
#define Pragma_Inline_Always 88
#define Pragma_Inline_Generic 89
#define Pragma_Inspection_Point 90
#define Pragma_Interface_Name 91
#define Pragma_Interrupt_Handler 92
#define Pragma_Interrupt_Priority 93
#define Pragma_Java_Constructor 94
#define Pragma_Java_Interface 95
#define Pragma_Keep_Names 96
#define Pragma_Link_With 97
#define Pragma_Linker_Alias 98
#define Pragma_Linker_Constructor 99
#define Pragma_Linker_Destructor 100
#define Pragma_Linker_Options 101
#define Pragma_Linker_Section 102
#define Pragma_List 103
#define Pragma_Machine_Attribute 104
#define Pragma_Main 105
#define Pragma_Main_Storage 106
#define Pragma_Memory_Size 107
#define Pragma_No_Return 108
#define Pragma_Obsolescent 109
#define Pragma_Optimize 110
#define Pragma_Optional_Overriding 111
#define Pragma_Pack 112
#define Pragma_Page 113
#define Pragma_Passive 114
#define Pragma_Preelaborate 115
#define Pragma_Preelaborate_05 116
#define Pragma_Priority 117
#define Pragma_Psect_Object 118
#define Pragma_Pure 119
#define Pragma_Pure_05 120
#define Pragma_Pure_Function 121
#define Pragma_Remote_Call_Interface 122
#define Pragma_Remote_Types 123
#define Pragma_Share_Generic 124
#define Pragma_Shared 125
#define Pragma_Shared_Passive 126
#define Pragma_Source_Reference 127
#define Pragma_Stream_Convert 128
#define Pragma_Subtitle 129
#define Pragma_Suppress_All 130
#define Pragma_Suppress_Debug_Info 131
#define Pragma_Suppress_Initialization 132
#define Pragma_System_Name 133
#define Pragma_Task_Info 134
#define Pragma_Task_Name 135
#define Pragma_Task_Storage 136
#define Pragma_Thread_Body 137
#define Pragma_Time_Slice 138
#define Pragma_Title 139
#define Pragma_Unchecked_Union 140
#define Pragma_Unimplemented_Unit 141
#define Pragma_Unreferenced 142
#define Pragma_Unreserve_All_Interrupts 143
#define Pragma_Volatile 144
#define Pragma_Volatile_Components 145
#define Pragma_Weak_External 146
#define Pragma_AST_Entry 147
#define Pragma_Interface 148
#define Pragma_Storage_Size 149
#define Pragma_Storage_Unit 150
/* End of snames.h (C version of Snames package spec) */