2009-04-08 Thomas Quinot <quinot@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / snames.adb

diff --git a/gcc/ada/snames.adb b/gcc/ada/snames.adb
index b02f764..0617391 100644 (file)
--- a/gcc/ada/snames.adb
+++ b/gcc/ada/snames.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2008, 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- --
@@ -78,8 +78,11 @@ package body Snames is
      "_local_final_list#" &
      "_master#" &
      "_object#" &
+     "_postconditions#" &
      "_priority#" &
      "_process_atsd#" &
+     "_relative_deadline#" &
+     "_result#" &
      "_secondary_stack#" &
      "_service#" &
      "_size#" &
@@ -101,9 +104,6 @@ package body Snames is
      "finalize#" &
      "next#" &
      "prev#" &
-     "_typecode#" &
-     "_from_any#" &
-     "_to_any#" &
      "allocate#" &
      "deallocate#" &
      "dereference#" &
@@ -145,7 +145,6 @@ package body Snames is
      "_call#" &
      "rci_name#" &
      "receiver#" &
-     "result#" &
      "rpc#" &
      "subp_id#" &
      "operation#" &
@@ -180,8 +179,10 @@ package body Snames is
      "ada_05#" &
      "ada_2005#" &
      "assertion_policy#" &
+     "assume_no_invalid_values#" &
      "c_pass_by_copy#" &
      "check_name#" &
+     "check_policy#" &
      "compile_time_error#" &
      "compile_time_warning#" &
      "compiler_unit#" &
@@ -206,8 +207,9 @@ package body Snames is
      "no_run_time#" &
      "no_strict_aliasing#" &
      "normalize_scalars#" &
-     "polling#" &
+     "optimize_alignment#" &
      "persistent_bss#" &
+     "polling#" &
      "priority_specific_dispatching#" &
      "profile#" &
      "profile_warnings#" &
@@ -238,6 +240,7 @@ package body Snames is
      "atomic#" &
      "atomic_components#" &
      "attach_handler#" &
+     "check#" &
      "cil_constructor#" &
      "comment#" &
      "common_object#" &
@@ -298,6 +301,8 @@ package body Snames is
      "pack#" &
      "page#" &
      "passive#" &
+     "postcondition#" &
+     "precondition#" &
      "preelaborable_initialization#" &
      "preelaborate#" &
      "preelaborate_05#" &
@@ -305,6 +310,7 @@ package body Snames is
      "pure#" &
      "pure_05#" &
      "pure_function#" &
+     "relative_deadline#" &
      "remote_call_interface#" &
      "remote_types#" &
      "share_generic#" &
@@ -321,11 +327,13 @@ package body Snames is
      "task_info#" &
      "task_name#" &
      "task_storage#" &
+     "thread_local_storage#" &
      "time_slice#" &
      "title#" &
      "unchecked_union#" &
      "unimplemented_unit#" &
      "universal_aliasing#" &
+     "unmodified#" &
      "unreferenced#" &
      "unreferenced_objects#" &
      "unreserve_all_interrupts#" &
@@ -349,10 +357,10 @@ package body Snames is
      "dll#" &
      "win32#" &
      "as_is#" &
+     "assertion#" &
      "attribute_name#" &
      "body_file_name#" &
      "boolean_entry_barriers#" &
-     "check#" &
      "casing#" &
      "code#" &
      "component#" &
@@ -405,6 +413,7 @@ package body Snames is
      "secondary_stack_size#" &
      "section#" &
      "semaphore#" &
+     "short_descriptor#" &
      "simple_barriers#" &
      "spec_file_name#" &
      "state#" &
@@ -456,6 +465,7 @@ package body Snames is
      "emax#" &
      "enabled#" &
      "enum_rep#" &
+     "enum_val#" &
      "epsilon#" &
      "exponent#" &
      "external_tag#" &
@@ -466,9 +476,11 @@ package body Snames is
      "fore#" &
      "has_access_values#" &
      "has_discriminants#" &
+     "has_tagged_values#" &
      "identity#" &
      "img#" &
      "integer_value#" &
+     "invalid_value#" &
      "large#" &
      "last#" &
      "last_bit#" &
@@ -494,6 +506,7 @@ package body Snames is
      "modulus#" &
      "null_parameter#" &
      "object_size#" &
+     "old#" &
      "partition_id#" &
      "passed_by_reference#" &
      "pool_address#" &
@@ -502,6 +515,7 @@ package body Snames is
      "priority#" &
      "range#" &
      "range_length#" &
+     "result#" &
      "round#" &
      "safe_emax#" &
      "safe_first#" &
@@ -542,6 +556,7 @@ package body Snames is
      "copy_sign#" &
      "floor#" &
      "fraction#" &
+     "from_any#" &
      "image#" &
      "input#" &
      "machine#" &
@@ -552,7 +567,9 @@ package body Snames is
      "remainder#" &
      "rounding#" &
      "succ#" &
+     "to_any#" &
      "truncation#" &
+     "typecode#" &
      "value#" &
      "wide_image#" &
      "wide_wide_image#" &
@@ -573,6 +590,7 @@ package body Snames is
      "priority_queuing#" &
      "edf_across_priorities#" &
      "fifo_within_priorities#" &
+     "non_preemptive_within_priorities#" &
      "round_robin_within_priorities#" &
      "access_check#" &
      "accessibility_check#" &
@@ -676,7 +694,9 @@ package body Snames is
      "tagged#" &
      "raise_exception#" &
      "ada_roots#" &
+     "aggregate#" &
      "archive_builder#" &
+     "archive_builder_append_option#" &
      "archive_indexer#" &
      "archive_suffix#" &
      "binder#" &
@@ -692,6 +712,7 @@ package body Snames is
      "config_file_unique#" &
      "config_spec_file_name#" &
      "config_spec_file_name_pattern#" &
+     "configuration#" &
      "cross_reference#" &
      "default_language#" &
      "default_switches#" &
@@ -701,12 +722,14 @@ package body Snames is
      "driver#" &
      "excluded_source_dirs#" &
      "excluded_source_files#" &
+     "excluded_source_list_file#" &
      "exec_dir#" &
      "executable#" &
      "executable_suffix#" &
      "extends#" &
      "externally_built#" &
      "finder#" &
+     "global_compilation_switches#" &
      "global_configuration_pragmas#" &
      "global_config_file#" &
      "gnatls#" &
@@ -717,9 +740,11 @@ package body Snames is
      "include_switches#" &
      "include_path#" &
      "include_path_file#" &
+     "inherit_source_path#" &
      "language_kind#" &
      "language_processing#" &
      "languages#" &
+     "library#" &
      "library_ali_dir#" &
      "library_auto_init#" &
      "library_auto_init_supported#" &
@@ -746,14 +771,18 @@ package body Snames is
      "local_config_file#" &
      "local_configuration_pragmas#" &
      "locally_removed_files#" &
+     "map_file_option#" &
      "mapping_file_switches#" &
      "mapping_spec_suffix#" &
      "mapping_body_suffix#" &
      "metrics#" &
      "naming#" &
+     "object_generated#" &
+     "objects_linked#" &
      "objects_path#" &
      "objects_path_file#" &
      "object_dir#" &
+     "path_syntax#" &
      "pic_option#" &
      "pretty_printer#" &
      "prefix#" &
@@ -777,6 +806,8 @@ package body Snames is
      "stack#" &
      "switches#" &
      "symbolic_link_supported#" &
+     "sync#" &
+     "synchronize#" &
      "toolchain_description#" &
      "toolchain_version#" &
      "runtime_library_dir#" &
@@ -936,6 +967,8 @@ package body Snames is
          return Pragma_Interface;
       elsif N = Name_Priority then
          return Pragma_Priority;
+      elsif N = Name_Relative_Deadline then
+         return Pragma_Relative_Deadline;
       elsif N = Name_Storage_Size then
          return Pragma_Storage_Size;
       elsif N = Name_Storage_Unit then
@@ -1125,6 +1158,7 @@ package body Snames is
         or else N = Name_AST_Entry
         or else N = Name_Fast_Math
         or else N = Name_Interface
+        or else N = Name_Relative_Deadline
         or else N = Name_Priority
         or else N = Name_Storage_Size
         or else N = Name_Storage_Unit;