Skip to content

R
riscv-gcc-1
Commit 2fa9443e by Ed Schonberg Committed by Arnaud Charlet
Options

exp_prag.adb (Expand_Pragma_Import_Or_Interface): Remove properly a default… 

exp_prag.adb (Expand_Pragma_Import_Or_Interface): Remove properly a default initialization on an imported object...

2007-04-20  Ed Schonberg  <schonberg@adacore.com>
	    Arnaud Charlet  <charlet@adacore.com>
	    Robert Dewar  <dewar@adacore.com>
	    Gary Dismukes  <dismukes@adacore.com>

	* exp_prag.adb (Expand_Pragma_Import_Or_Interface): Remove properly a
	default initialization on an imported object, when there is no
	initialization call generated for it.
	(Expand_Pragma_Assert): Add handling of No_Exception_Propagation
	restriction

	* snames.h, snames.ads, snames.adb, par-prag.adb: New pragma
	Static_Elaboration_Desired.
	Remove pragma Thread_Body.
	Implement a new pragma No_Body
	Removes the Explicit_Overriding pragma
	Remove Optional_Overriding pragma
	(Prag): Deal with Universal_Aliasing.
	(Name_CIL, Name_CIL_Constructor, Convention_CIL,
	Pragma_CIL_Constructor): New names.

	* sem_cat.adb (Validate_Object_Declaration): An initialization that
	uses the equivalent aggregate of a type must be treated as an implicit
	initialization.
	(Get_Categorization): Check a unit for pragma Preelaborate only if it
	has none of the other categories.
	(Process_Import_Or_Interface_Pragma): Report an error for an attempt
	to apply Import to an object renaming declaration.

	* sem_prag.adb (Process_Import_Or_Interface): Warn that a type imported
	from a C++ class should be declared as limited and that it will be
	considererd limited.
	(Analyze_Pragma): Warn that a type specified with pragma CPP_Class
	should be declared as limited and that it will be considererd limited.
	(Ada_2005_Pragma): New procedure, used to deal with Ada 2005 pragmas
	(Analyze_Pragma, case Export): Diagnose export of enumeration literal
	(Analyze_Pragma): Deal with Universal_Aliasing.
	(Sig_Flags): Likewise.
	(Set_Encoded_Interface_Name): Suppress encoding when compiling for AAMP.
	(Overflow_Checks_Unsuppressed): New flag.
	(Process_Suppress_Unsuppress): Set Overflow_Checks_Unsuppressed.
	(Analyze_Pragma [case Pack]): Ignore pragma Pack and post warning in
	case of JVM or .NET targets, and compiling user code.
	Add debugging convenience routine rv

From-SVN: r125408
parent 7d8b9c99
Showing with 205 additions and 118 deletions
gcc/ada/exp_prag.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -26,6 +26,7 @@ ...@@ -26,6 +26,7 @@
with Atree; use Atree; with Atree; use Atree;
with Casing; use Casing; with Casing; use Casing;
with Debug; use Debug;
with Einfo; use Einfo; with Einfo; use Einfo;
with Errout; use Errout; with Errout; use Errout;
with Exp_Ch11; use Exp_Ch11; with Exp_Ch11; use Exp_Ch11;
...@@ -36,6 +37,8 @@ with Namet; use Namet; ...@@ -36,6 +37,8 @@ with Namet; use Namet;
with Nlists; use Nlists; with Nlists; use Nlists;
with Nmake; use Nmake; with Nmake; use Nmake;
with Opt; use Opt; with Opt; use Opt;
with Restrict; use Restrict;
with Rident; use Rident;
with Rtsfind; use Rtsfind; with Rtsfind; use Rtsfind;
with Sem; use Sem; with Sem; use Sem;
with Sem_Eval; use Sem_Eval; with Sem_Eval; use Sem_Eval;
...@@ -239,7 +242,7 @@ package body Exp_Prag is ...@@ -239,7 +242,7 @@ package body Exp_Prag is
-- Since assertions are on, we rewrite the pragma with its -- Since assertions are on, we rewrite the pragma with its
-- corresponding if statement, and then analyze the statement -- corresponding if statement, and then analyze the statement
-- The expansion transforms: -- The normal case expansion transforms:
-- pragma Assert (condition [,message]); -- pragma Assert (condition [,message]);
...@@ -252,7 +255,48 @@ package body Exp_Prag is ...@@ -252,7 +255,48 @@ package body Exp_Prag is
-- where Str is the message if one is present, or the default of -- where Str is the message if one is present, or the default of
-- file:line if no message is given. -- file:line if no message is given.
-- First, we need to prepare the character literal -- An alternative expansion is used when the No_Exception_Propagation
-- restriction is active and there is a local Assert_Failure handler.
-- This is not a common combination of circumstances, but it occurs in
-- the context of Aunit and the zero footprint profile. In this case we
-- generate:
-- if not condition then
-- raise Assert_Failure;
-- end if;
-- This will then be transformed into a goto, and the local handler will
-- be able to handle the assert error (which would not be the case if a
-- call is made to the Raise_Assert_Failure procedure).
-- Note that the reason we do not always generate a direct raise is that
-- the form in which the procedure is called allows for more efficient
-- breakpointing of assertion errors.
-- Generate the appropriate if statement. Note that we consider this to
-- be an explicit conditional in the source, not an implicit if, so we
-- do not call Make_Implicit_If_Statement.
-- Case where we generate a direct raise
if (Debug_Flag_Dot_G
or else Restriction_Active (No_Exception_Propagation))
and then Present (Find_Local_Handler (RTE (RE_Assert_Failure), N))
then
Rewrite (N,
Make_If_Statement (Loc,
Condition =>
Make_Op_Not (Loc,
Right_Opnd => Cond),
Then_Statements => New_List (
Make_Raise_Statement (Loc,
Name =>
New_Reference_To (RTE (RE_Assert_Failure), Loc)))));
-- Case where we call the procedure
else
-- First, we need to prepare the string literal
if Present (Arg2 (N)) then if Present (Arg2 (N)) then
Msg := Strval (Expr_Value_S (Arg2 (N))); Msg := Strval (Expr_Value_S (Arg2 (N)));
...@@ -261,9 +305,7 @@ package body Exp_Prag is ...@@ -261,9 +305,7 @@ package body Exp_Prag is
Msg := String_From_Name_Buffer; Msg := String_From_Name_Buffer;
end if; end if;
-- Now generate the if statement. Note that we consider this to be -- Now rewrite as an if statement
-- an explicit conditional in the source, not an implicit if, so we
-- do not call Make_Implicit_If_Statement.
Rewrite (N, Rewrite (N,
Make_If_Statement (Loc, Make_If_Statement (Loc,
...@@ -276,6 +318,7 @@ package body Exp_Prag is ...@@ -276,6 +318,7 @@ package body Exp_Prag is
New_Reference_To (RTE (RE_Raise_Assert_Failure), Loc), New_Reference_To (RTE (RE_Raise_Assert_Failure), Loc),
Parameter_Associations => New_List ( Parameter_Associations => New_List (
Make_String_Literal (Loc, Msg)))))); Make_String_Literal (Loc, Msg))))));
end if;
Analyze (N); Analyze (N);
...@@ -284,9 +327,8 @@ package body Exp_Prag is ...@@ -284,9 +327,8 @@ package body Exp_Prag is
if Nkind (N) = N_Procedure_Call_Statement if Nkind (N) = N_Procedure_Call_Statement
and then Is_RTE (Entity (Name (N)), RE_Raise_Assert_Failure) and then Is_RTE (Entity (Name (N)), RE_Raise_Assert_Failure)
then then
-- If original condition was a Standard.False, we assume -- If original condition was a Standard.False, we assume that this is
-- that this is indeed intented to raise assert error -- indeed intented to raise assert error and no warning is required.
-- and no warning is required.
if Is_Entity_Name (Original_Node (Cond)) if Is_Entity_Name (Original_Node (Cond))
and then Entity (Original_Node (Cond)) = Standard_False and then Entity (Original_Node (Cond)) = Standard_False
...@@ -389,7 +431,8 @@ package body Exp_Prag is ...@@ -389,7 +431,8 @@ package body Exp_Prag is
if Ekind (Def_Id) = E_Variable then if Ekind (Def_Id) = E_Variable then
Typ := Etype (Def_Id); Typ := Etype (Def_Id);
-- Loop to ??? -- Iterate from declaration of object to import pragma, to find
-- generated initialization call for object, if any.
Init_Call := Next (Parent (Def_Id)); Init_Call := Next (Parent (Def_Id));
while Present (Init_Call) and then Init_Call /= N loop while Present (Init_Call) and then Init_Call /= N loop
...@@ -411,7 +454,7 @@ package body Exp_Prag is ...@@ -411,7 +454,7 @@ package body Exp_Prag is
-- have explicit initialization, so the expression must have -- have explicit initialization, so the expression must have
-- been generated by the compiler. -- been generated by the compiler.
if No (Init_Call) if Init_Call = N
and then Present (Expression (Parent (Def_Id))) and then Present (Expression (Parent (Def_Id)))
then then
Set_Expression (Parent (Def_Id), Empty); Set_Expression (Parent (Def_Id), Empty);
......
gcc/ada/par-prag.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -518,7 +518,7 @@ begin ...@@ -518,7 +518,7 @@ begin
Expr : Node_Id; Expr : Node_Id;
Index : Nat; Index : Nat;
function Get_Fname (Arg : Node_Id) return Name_Id; function Get_Fname (Arg : Node_Id) return File_Name_Type;
-- Process file name from unit name form of pragma -- Process file name from unit name form of pragma
function Get_String_Argument (Arg : Node_Id) return String_Ptr; function Get_String_Argument (Arg : Node_Id) return String_Ptr;
...@@ -534,7 +534,7 @@ begin ...@@ -534,7 +534,7 @@ begin
-- Get_Fname -- -- Get_Fname --
--------------- ---------------
function Get_Fname (Arg : Node_Id) return Name_Id is function Get_Fname (Arg : Node_Id) return File_Name_Type is
begin begin
String_To_Name_Buffer (Strval (Expression (Arg))); String_To_Name_Buffer (Strval (Expression (Arg)));
...@@ -803,7 +803,7 @@ begin ...@@ -803,7 +803,7 @@ begin
-- turn off semantic checking anyway if any parse errors are found. -- turn off semantic checking anyway if any parse errors are found.
when Pragma_Source_Reference => Source_Reference : declare when Pragma_Source_Reference => Source_Reference : declare
Fname : Name_Id; Fname : File_Name_Type;
begin begin
if Arg_Count /= 1 then if Arg_Count /= 1 then
...@@ -833,7 +833,7 @@ begin ...@@ -833,7 +833,7 @@ begin
Pragma_Sloc); Pragma_Sloc);
raise Error_Resync; raise Error_Resync;
else else
Fname := No_Name; Fname := No_File;
end if; end if;
-- File name present -- File name present
...@@ -1054,6 +1054,7 @@ begin ...@@ -1054,6 +1054,7 @@ begin
Pragma_Atomic | Pragma_Atomic |
Pragma_Atomic_Components | Pragma_Atomic_Components |
Pragma_Attach_Handler | Pragma_Attach_Handler |
Pragma_CIL_Constructor |
Pragma_Compile_Time_Error | Pragma_Compile_Time_Error |
Pragma_Compile_Time_Warning | Pragma_Compile_Time_Warning |
Pragma_Convention_Identifier | Pragma_Convention_Identifier |
...@@ -1077,7 +1078,6 @@ begin ...@@ -1077,7 +1078,6 @@ begin
Pragma_Elaborate_All | Pragma_Elaborate_All |
Pragma_Elaborate_Body | Pragma_Elaborate_Body |
Pragma_Elaboration_Checks | Pragma_Elaboration_Checks |
Pragma_Explicit_Overriding |
Pragma_Export | Pragma_Export |
Pragma_Export_Exception | Pragma_Export_Exception |
Pragma_Export_Function | Pragma_Export_Function |
...@@ -1123,13 +1123,13 @@ begin ...@@ -1123,13 +1123,13 @@ begin
Pragma_Main | Pragma_Main |
Pragma_Main_Storage | Pragma_Main_Storage |
Pragma_Memory_Size | Pragma_Memory_Size |
Pragma_No_Body |
Pragma_No_Return | Pragma_No_Return |
Pragma_Obsolescent | Pragma_Obsolescent |
Pragma_No_Run_Time | Pragma_No_Run_Time |
Pragma_No_Strict_Aliasing | Pragma_No_Strict_Aliasing |
Pragma_Normalize_Scalars | Pragma_Normalize_Scalars |
Pragma_Optimize | Pragma_Optimize |
Pragma_Optional_Overriding |
Pragma_Pack | Pragma_Pack |
Pragma_Passive | Pragma_Passive |
Pragma_Preelaborable_Initialization | Pragma_Preelaborable_Initialization |
...@@ -1157,6 +1157,7 @@ begin ...@@ -1157,6 +1157,7 @@ begin
Pragma_Shared_Passive | Pragma_Shared_Passive |
Pragma_Storage_Size | Pragma_Storage_Size |
Pragma_Storage_Unit | Pragma_Storage_Unit |
Pragma_Static_Elaboration_Desired |
Pragma_Stream_Convert | Pragma_Stream_Convert |
Pragma_Subtitle | Pragma_Subtitle |
Pragma_Suppress | Pragma_Suppress |
...@@ -1169,11 +1170,11 @@ begin ...@@ -1169,11 +1170,11 @@ begin
Pragma_Task_Info | Pragma_Task_Info |
Pragma_Task_Name | Pragma_Task_Name |
Pragma_Task_Storage | Pragma_Task_Storage |
Pragma_Thread_Body |
Pragma_Time_Slice | Pragma_Time_Slice |
Pragma_Title | Pragma_Title |
Pragma_Unchecked_Union | Pragma_Unchecked_Union |
Pragma_Unimplemented_Unit | Pragma_Unimplemented_Unit |
Pragma_Universal_Aliasing |
Pragma_Universal_Data | Pragma_Universal_Data |
Pragma_Unreferenced | Pragma_Unreferenced |
Pragma_Unreferenced_Objects | Pragma_Unreferenced_Objects |
......
gcc/ada/sem_cat.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -31,6 +31,7 @@ with Elists; use Elists; ...@@ -31,6 +31,7 @@ with Elists; use Elists;
with Errout; use Errout; with Errout; use Errout;
with Fname; use Fname; with Fname; use Fname;
with Lib; use Lib; with Lib; use Lib;
with Namet; use Namet;
with Nlists; use Nlists; with Nlists; use Nlists;
with Opt; use Opt; with Opt; use Opt;
with Sem; use Sem; with Sem; use Sem;
...@@ -120,9 +121,13 @@ package body Sem_Cat is ...@@ -120,9 +121,13 @@ package body Sem_Cat is
is is
N : constant Node_Id := Info_Node; N : constant Node_Id := Info_Node;
-- Here we define an enumeration type to represent categorization -- Here we define an enumeration type to represent categorization types,
-- types, ordered so that a unit with a given categorization can -- ordered so that a unit with a given categorization can only WITH
-- only WITH units with lower or equal categorization type. -- units with lower or equal categorization type.
-- Note that we take advantage of E.2(14) to define a category
-- Preelaborated and treat pragma Preelaborate as a categorization
-- pragma that defines that category.
type Categorization is type Categorization is
(Pure, (Pure,
...@@ -132,12 +137,9 @@ package body Sem_Cat is ...@@ -132,12 +137,9 @@ package body Sem_Cat is
Preelaborated, Preelaborated,
Normal); Normal);
Unit_Category : Categorization;
With_Category : Categorization;
function Get_Categorization (E : Entity_Id) return Categorization; function Get_Categorization (E : Entity_Id) return Categorization;
-- Check categorization flags from entity, and return in the form -- Check categorization flags from entity, and return in the form
-- of a corresponding enumeration value. -- of the lowest value of the Categorization type that applies to E.
------------------------ ------------------------
-- Get_Categorization -- -- Get_Categorization --
...@@ -145,12 +147,16 @@ package body Sem_Cat is ...@@ -145,12 +147,16 @@ package body Sem_Cat is
function Get_Categorization (E : Entity_Id) return Categorization is function Get_Categorization (E : Entity_Id) return Categorization is
begin begin
if Is_Preelaborated (E) then -- Get the lowest categorization that corresponds to E. Note that
return Preelaborated; -- nothing prevents several (different) categorization pragmas
-- to apply to the same library unit, in which case the unit has
-- all associated categories, so we need to be careful here to
-- check pragmas in proper Categorization order in order to
-- return the lowest appplicable value.
-- Ignore Pure specification if set by pragma Pure_Function -- Ignore Pure specification if set by pragma Pure_Function
elsif Is_Pure (E) if Is_Pure (E)
and then not and then not
(Has_Pragma_Pure_Function (E) and not Has_Pragma_Pure (E)) (Has_Pragma_Pure_Function (E) and not Has_Pragma_Pure (E))
then then
...@@ -165,11 +171,17 @@ package body Sem_Cat is ...@@ -165,11 +171,17 @@ package body Sem_Cat is
elsif Is_Remote_Call_Interface (E) then elsif Is_Remote_Call_Interface (E) then
return Remote_Call_Interface; return Remote_Call_Interface;
elsif Is_Preelaborated (E) then
return Preelaborated;
else else
return Normal; return Normal;
end if; end if;
end Get_Categorization; end Get_Categorization;
Unit_Category : Categorization;
With_Category : Categorization;
-- Start of processing for Check_Categorization_Dependencies -- Start of processing for Check_Categorization_Dependencies
begin begin
...@@ -1049,8 +1061,20 @@ package body Sem_Cat is ...@@ -1049,8 +1061,20 @@ package body Sem_Cat is
-- Check for default initialized variable case. Note that in -- Check for default initialized variable case. Note that in
-- accordance with (RM B.1(24)) imported objects are not -- accordance with (RM B.1(24)) imported objects are not
-- subject to default initialization. -- subject to default initialization.
-- If the initialization does not come from source and is an
-- aggregate, it is a static initialization that replaces an
-- implicit call, and must be treated as such.
if No (E) and then not Is_Imported (Id) then if Present (E)
and then
(Comes_From_Source (E) or else Nkind (E) /= N_Aggregate)
then
null;
elsif Is_Imported (Id) then
null;
else
declare declare
Ent : Entity_Id := T; Ent : Entity_Id := T;
...@@ -1129,23 +1153,30 @@ package body Sem_Cat is ...@@ -1129,23 +1153,30 @@ package body Sem_Cat is
("private object not allowed in preelaborated unit", ("private object not allowed in preelaborated unit",
N); N);
-- If we are in Ada 2005 mode, add a message if pragma -- Add a message if it would help to provide a pragma
-- Preelaborable_Initialization on the type of the -- Preelaborable_Initialization on the type of the
-- object would help. -- object (which would make it legal in Ada 2005).
-- If the type has no full view (generic type, or -- If the type has no full view (generic type, or
-- previous error), the warning does not apply. -- previous error), the warning does not apply.
if Ada_Version >= Ada_05 if Is_Private_Type (Ent)
and then Is_Private_Type (Ent)
and then Present (Full_View (Ent)) and then Present (Full_View (Ent))
and then and then
Has_Preelaborable_Initialization (Full_View (Ent)) Has_Preelaborable_Initialization (Full_View (Ent))
then then
Error_Msg_Sloc := Sloc (Ent); Error_Msg_Sloc := Sloc (Ent);
if Ada_Version >= Ada_05 then
Error_Msg_NE Error_Msg_NE
("\would be legal if pragma Preelaborable_" & ("\would be legal if pragma Preelaborable_" &
"Initialization given for & #", N, Ent); "Initialization given for & #", N, Ent);
else
Error_Msg_NE
("\would be legal in Ada 2005 if pragma " &
"Preelaborable_Initialization given for & #",
N, Ent);
end if;
end if; end if;
end if; end if;
end if; end if;
......
gcc/ada/snames.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -31,7 +31,6 @@ ...@@ -31,7 +31,6 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Namet; use Namet;
with Opt; use Opt; with Opt; use Opt;
with Table; with Table;
...@@ -118,9 +117,11 @@ package body Snames is ...@@ -118,9 +117,11 @@ package body Snames is
"put#" & "put#" &
"put_line#" & "put_line#" &
"to#" & "to#" &
"exception_traces#" &
"finalization#" & "finalization#" &
"finalization_root#" & "finalization_root#" &
"interfaces#" & "interfaces#" &
"most_recent_exception#" &
"standard#" & "standard#" &
"system#" & "system#" &
"text_io#" & "text_io#" &
...@@ -187,7 +188,6 @@ package body Snames is ...@@ -187,7 +188,6 @@ package body Snames is
"discard_names#" & "discard_names#" &
"elaboration_checks#" & "elaboration_checks#" &
"eliminate#" & "eliminate#" &
"explicit_overriding#" &
"extend_system#" & "extend_system#" &
"extensions_allowed#" & "extensions_allowed#" &
"external_name_casing#" & "external_name_casing#" &
...@@ -232,6 +232,7 @@ package body Snames is ...@@ -232,6 +232,7 @@ package body Snames is
"atomic#" & "atomic#" &
"atomic_components#" & "atomic_components#" &
"attach_handler#" & "attach_handler#" &
"cil_constructor#" &
"comment#" & "comment#" &
"common_object#" & "common_object#" &
"complete_representation#" & "complete_representation#" &
...@@ -283,10 +284,10 @@ package body Snames is ...@@ -283,10 +284,10 @@ package body Snames is
"main#" & "main#" &
"main_storage#" & "main_storage#" &
"memory_size#" & "memory_size#" &
"no_body#" &
"no_return#" & "no_return#" &
"obsolescent#" & "obsolescent#" &
"optimize#" & "optimize#" &
"optional_overriding#" &
"pack#" & "pack#" &
"page#" & "page#" &
"passive#" & "passive#" &
...@@ -303,6 +304,7 @@ package body Snames is ...@@ -303,6 +304,7 @@ package body Snames is
"shared#" & "shared#" &
"shared_passive#" & "shared_passive#" &
"source_reference#" & "source_reference#" &
"static_elaboration_desired#" &
"stream_convert#" & "stream_convert#" &
"subtitle#" & "subtitle#" &
"suppress_all#" & "suppress_all#" &
...@@ -312,11 +314,11 @@ package body Snames is ...@@ -312,11 +314,11 @@ package body Snames is
"task_info#" & "task_info#" &
"task_name#" & "task_name#" &
"task_storage#" & "task_storage#" &
"thread_body#" &
"time_slice#" & "time_slice#" &
"title#" & "title#" &
"unchecked_union#" & "unchecked_union#" &
"unimplemented_unit#" & "unimplemented_unit#" &
"universal_aliasing#" &
"unreferenced#" & "unreferenced#" &
"unreferenced_objects#" & "unreferenced_objects#" &
"unreserve_all_interrupts#" & "unreserve_all_interrupts#" &
...@@ -325,6 +327,7 @@ package body Snames is ...@@ -325,6 +327,7 @@ package body Snames is
"weak_external#" & "weak_external#" &
"ada#" & "ada#" &
"assembler#" & "assembler#" &
"cil#" &
"cobol#" & "cobol#" &
"cpp#" & "cpp#" &
"fortran#" & "fortran#" &
...@@ -670,13 +673,13 @@ package body Snames is ...@@ -670,13 +673,13 @@ package body Snames is
"archive_suffix#" & "archive_suffix#" &
"binder#" & "binder#" &
"binder_driver#" & "binder_driver#" &
"binder_prefix#" &
"body_suffix#" & "body_suffix#" &
"builder#" & "builder#" &
"builder_switches#" & "builder_switches#" &
"compiler#" & "compiler#" &
"compiler_driver#" & "compiler_driver#" &
"compiler_kind#" & "compiler_kind#" &
"compiler_minimum_options#" &
"compiler_pic_option#" & "compiler_pic_option#" &
"compute_dependency#" & "compute_dependency#" &
"config_body_file_name#" & "config_body_file_name#" &
...@@ -690,6 +693,7 @@ package body Snames is ...@@ -690,6 +693,7 @@ package body Snames is
"default_global_compiler_switches#" & "default_global_compiler_switches#" &
"default_language#" & "default_language#" &
"default_linker#" & "default_linker#" &
"default_minimum_linker_options#" &
"default_switches#" & "default_switches#" &
"dependency_file_kind#" & "dependency_file_kind#" &
"dependency_option#" & "dependency_option#" &
...@@ -724,6 +728,7 @@ package body Snames is ...@@ -724,6 +728,7 @@ package body Snames is
"library_name#" & "library_name#" &
"library_major_minor_id_supported#" & "library_major_minor_id_supported#" &
"library_options#" & "library_options#" &
"library_partial_linker#" &
"library_reference_symbol_file#" & "library_reference_symbol_file#" &
"library_src_dir#" & "library_src_dir#" &
"library_support#" & "library_support#" &
...@@ -743,6 +748,8 @@ package body Snames is ...@@ -743,6 +748,8 @@ package body Snames is
"mapping_body_suffix#" & "mapping_body_suffix#" &
"metrics#" & "metrics#" &
"minimum_binder_options#" & "minimum_binder_options#" &
"minimum_compiler_options#" &
"minimum_linker_options#" &
"naming#" & "naming#" &
"objects_path#" & "objects_path#" &
"objects_path_file#" & "objects_path_file#" &
...@@ -767,6 +774,7 @@ package body Snames is ...@@ -767,6 +774,7 @@ package body Snames is
"stack#" & "stack#" &
"switches#" & "switches#" &
"symbolic_link_supported#" & "symbolic_link_supported#" &
"toolchain_description#" &
"toolchain_version#" & "toolchain_version#" &
"unaligned_valid#" & "unaligned_valid#" &
"interface#" & "interface#" &
...@@ -864,6 +872,7 @@ package body Snames is ...@@ -864,6 +872,7 @@ package body Snames is
when Name_Ada => return Convention_Ada; when Name_Ada => return Convention_Ada;
when Name_Assembler => return Convention_Assembler; when Name_Assembler => return Convention_Assembler;
when Name_C => return Convention_C; when Name_C => return Convention_C;
when Name_CIL => return Convention_CIL;
when Name_COBOL => return Convention_COBOL; when Name_COBOL => return Convention_COBOL;
when Name_CPP => return Convention_CPP; when Name_CPP => return Convention_CPP;
when Name_Fortran => return Convention_Fortran; when Name_Fortran => return Convention_Fortran;
...@@ -896,6 +905,7 @@ package body Snames is ...@@ -896,6 +905,7 @@ package body Snames is
when Convention_Ada => return Name_Ada; when Convention_Ada => return Name_Ada;
when Convention_Assembler => return Name_Assembler; when Convention_Assembler => return Name_Assembler;
when Convention_C => return Name_C; when Convention_C => return Name_C;
when Convention_CIL => return Name_CIL;
when Convention_COBOL => return Name_COBOL; when Convention_COBOL => return Name_COBOL;
when Convention_CPP => return Name_CPP; when Convention_CPP => return Name_CPP;
when Convention_Entry => return Name_Entry; when Convention_Entry => return Name_Entry;
......
gcc/ada/snames.ads
This source diff could not be displayed because it is too large. You can view the blob instead.
gcc/ada/snames.h
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
* * * *
* C Header File * * C Header File *
* * * *
* Copyright (C) 1992-2006, Free Software Foundation, Inc. * * Copyright (C) 1992-2007, Free Software Foundation, Inc. *
* * * *
* GNAT is free software; you can redistribute it and/or modify it under * * 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- * * terms of the GNU General Public License as published by the Free Soft- *
...@@ -192,12 +192,13 @@ extern unsigned char Get_Attribute_Id (int); ...@@ -192,12 +192,13 @@ extern unsigned char Get_Attribute_Id (int);
#define Convention_Protected 3 #define Convention_Protected 3
#define Convention_Assembler 4 #define Convention_Assembler 4
#define Convention_C 5 #define Convention_C 5
#define Convention_COBOL 6 #define Convention_CIL 6
#define Convention_CPP 7 #define Convention_COBOL 7
#define Convention_Fortran 8 #define Convention_CPP 8
#define Convention_Java 9 #define Convention_Fortran 9
#define Convention_Stdcall 10 #define Convention_Java 10
#define Convention_Stubbed 11 #define Convention_Stdcall 11
#define Convention_Stubbed 12
/* Define the function to check if a Name_Id value is a valid pragma */ /* Define the function to check if a Name_Id value is a valid pragma */
...@@ -229,51 +230,51 @@ extern unsigned char Get_Pragma_Id (int); ...@@ -229,51 +230,51 @@ extern unsigned char Get_Pragma_Id (int);
#define Pragma_Discard_Names 12 #define Pragma_Discard_Names 12
#define Pragma_Elaboration_Checks 13 #define Pragma_Elaboration_Checks 13
#define Pragma_Eliminate 14 #define Pragma_Eliminate 14
#define Pragma_Explicit_Overriding 15 #define Pragma_Extend_System 15
#define Pragma_Extend_System 16 #define Pragma_Extensions_Allowed 16
#define Pragma_Extensions_Allowed 17 #define Pragma_External_Name_Casing 17
#define Pragma_External_Name_Casing 18 #define Pragma_Float_Representation 18
#define Pragma_Float_Representation 19 #define Pragma_Initialize_Scalars 19
#define Pragma_Initialize_Scalars 20 #define Pragma_Interrupt_State 20
#define Pragma_Interrupt_State 21 #define Pragma_License 21
#define Pragma_License 22 #define Pragma_Locking_Policy 22
#define Pragma_Locking_Policy 23 #define Pragma_Long_Float 23
#define Pragma_Long_Float 24 #define Pragma_No_Run_Time 24
#define Pragma_No_Run_Time 25 #define Pragma_No_Strict_Aliasing 25
#define Pragma_No_Strict_Aliasing 26 #define Pragma_Normalize_Scalars 26
#define Pragma_Normalize_Scalars 27 #define Pragma_Polling 27
#define Pragma_Polling 28 #define Pragma_Persistent_BSS 28
#define Pragma_Persistent_BSS 29 #define Pragma_Priority_Specific_Dispatching 29
#define Pragma_Priority_Specific_Dispatching 30 #define Pragma_Profile 30
#define Pragma_Profile 31 #define Pragma_Profile_Warnings 31
#define Pragma_Profile_Warnings 32 #define Pragma_Propagate_Exceptions 32
#define Pragma_Propagate_Exceptions 33 #define Pragma_Queuing_Policy 33
#define Pragma_Queuing_Policy 34 #define Pragma_Ravenscar 34
#define Pragma_Ravenscar 35 #define Pragma_Restricted_Run_Time 35
#define Pragma_Restricted_Run_Time 36 #define Pragma_Restrictions 36
#define Pragma_Restrictions 37 #define Pragma_Restriction_Warnings 37
#define Pragma_Restriction_Warnings 38 #define Pragma_Reviewable 38
#define Pragma_Reviewable 39 #define Pragma_Source_File_Name 39
#define Pragma_Source_File_Name 40 #define Pragma_Source_File_Name_Project 40
#define Pragma_Source_File_Name_Project 41 #define Pragma_Style_Checks 41
#define Pragma_Style_Checks 42 #define Pragma_Suppress 42
#define Pragma_Suppress 43 #define Pragma_Suppress_Exception_Locations 43
#define Pragma_Suppress_Exception_Locations 44 #define Pragma_Task_Dispatching_Policy 44
#define Pragma_Task_Dispatching_Policy 45 #define Pragma_Universal_Data 45
#define Pragma_Universal_Data 46 #define Pragma_Unsuppress 46
#define Pragma_Unsuppress 47 #define Pragma_Use_VADS_Size 47
#define Pragma_Use_VADS_Size 48 #define Pragma_Validity_Checks 48
#define Pragma_Validity_Checks 49 #define Pragma_Warnings 49
#define Pragma_Warnings 50 #define Pragma_Wide_Character_Encoding 50
#define Pragma_Wide_Character_Encoding 51 #define Pragma_Abort_Defer 51
#define Pragma_Abort_Defer 52 #define Pragma_All_Calls_Remote 52
#define Pragma_All_Calls_Remote 53 #define Pragma_Annotate 53
#define Pragma_Annotate 54 #define Pragma_Assert 54
#define Pragma_Assert 55 #define Pragma_Asynchronous 55
#define Pragma_Asynchronous 56 #define Pragma_Atomic 56
#define Pragma_Atomic 57 #define Pragma_Atomic_Components 57
#define Pragma_Atomic_Components 58 #define Pragma_Attach_Handler 58
#define Pragma_Attach_Handler 59 #define Pragma_CIL_Constructor 59
#define Pragma_Comment 60 #define Pragma_Comment 60
#define Pragma_Common_Object 61 #define Pragma_Common_Object 61
#define Pragma_Complete_Representation 62 #define Pragma_Complete_Representation 62
...@@ -325,10 +326,10 @@ extern unsigned char Get_Pragma_Id (int); ...@@ -325,10 +326,10 @@ extern unsigned char Get_Pragma_Id (int);
#define Pragma_Main 108 #define Pragma_Main 108
#define Pragma_Main_Storage 109 #define Pragma_Main_Storage 109
#define Pragma_Memory_Size 110 #define Pragma_Memory_Size 110
#define Pragma_No_Return 111 #define Pragma_No_Body 111
#define Pragma_Obsolescent 112 #define Pragma_No_Return 112
#define Pragma_Optimize 113 #define Pragma_Obsolescent 113
#define Pragma_Optional_Overriding 114 #define Pragma_Optimize 114
#define Pragma_Pack 115 #define Pragma_Pack 115
#define Pragma_Page 116 #define Pragma_Page 116
#define Pragma_Passive 117 #define Pragma_Passive 117
...@@ -345,30 +346,31 @@ extern unsigned char Get_Pragma_Id (int); ...@@ -345,30 +346,31 @@ extern unsigned char Get_Pragma_Id (int);
#define Pragma_Shared 128 #define Pragma_Shared 128
#define Pragma_Shared_Passive 129 #define Pragma_Shared_Passive 129
#define Pragma_Source_Reference 130 #define Pragma_Source_Reference 130
#define Pragma_Stream_Convert 131 #define Pragma_Static_Elaboration_Desired 131
#define Pragma_Subtitle 132 #define Pragma_Stream_Convert 132
#define Pragma_Suppress_All 133 #define Pragma_Subtitle 133
#define Pragma_Suppress_Debug_Info 134 #define Pragma_Suppress_All 134
#define Pragma_Suppress_Initialization 135 #define Pragma_Suppress_Debug_Info 135
#define Pragma_System_Name 136 #define Pragma_Suppress_Initialization 136
#define Pragma_Task_Info 137 #define Pragma_System_Name 137
#define Pragma_Task_Name 138 #define Pragma_Task_Info 138
#define Pragma_Task_Storage 139 #define Pragma_Task_Name 139
#define Pragma_Thread_Body 140 #define Pragma_Task_Storage 140
#define Pragma_Time_Slice 141 #define Pragma_Time_Slice 141
#define Pragma_Title 142 #define Pragma_Title 142
#define Pragma_Unchecked_Union 143 #define Pragma_Unchecked_Union 143
#define Pragma_Unimplemented_Unit 144 #define Pragma_Unimplemented_Unit 144
#define Pragma_Unreferenced 145 #define Pragma_Universal_Aliasing 145
#define Pragma_Unreferenced_Objects 146 #define Pragma_Unreferenced 146
#define Pragma_Unreserve_All_Interrupts 147 #define Pragma_Unreferenced_Objects 147
#define Pragma_Volatile 148 #define Pragma_Unreserve_All_Interrupts 148
#define Pragma_Volatile_Components 149 #define Pragma_Volatile 149
#define Pragma_Weak_External 150 #define Pragma_Volatile_Components 150
#define Pragma_AST_Entry 151 #define Pragma_Weak_External 151
#define Pragma_Interface 152 #define Pragma_AST_Entry 152
#define Pragma_Priority 153 #define Pragma_Interface 153
#define Pragma_Storage_Size 154 #define Pragma_Priority 154
#define Pragma_Storage_Unit 155 #define Pragma_Storage_Size 155
#define Pragma_Storage_Unit 156
/* End of snames.h (C version of Snames package spec) */ /* End of snames.h (C version of Snames package spec) */
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment