-- --\r
-- B o d y --\r
-- --\r
--- Copyright (C) 1992-2003, Free Software Foundation, Inc. --\r
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --\r
-- --\r
-- GNAT is free software; you can redistribute it and/or modify it under --\r
-- terms of the GNU General Public License as published by the Free Soft- --\r
"_abort_signal#" &\r
"_alignment#" &\r
"_assign#" &\r
+ "_atcb#" &\r
"_chain#" &\r
"_clean#" &\r
"_controller#" &\r
"_secondary_stack#" &\r
"_service#" &\r
"_size#" &\r
+ "_stack#" &\r
"_tags#" &\r
"_task#" &\r
"_task_id#" &\r
"finalize#" &\r
"next#" &\r
"prev#" &\r
+ "_typecode#" &\r
+ "_from_any#" &\r
+ "_to_any#" &\r
"allocate#" &\r
"deallocate#" &\r
"dereference#" &\r
"float_io#" &\r
"integer_io#" &\r
"modular_io#" &\r
- "a_textio#" &\r
- "a_witeio#" &\r
"const#" &\r
"<error>#" &\r
"go#" &\r
"system#" &\r
"text_io#" &\r
"wide_text_io#" &\r
+ "wide_wide_text_io#" &\r
+ "no_dsa#" &\r
+ "garlic_dsa#" &\r
+ "polyorb_dsa#" &\r
"addr#" &\r
"async#" &\r
"get_active_partition_id#" &\r
"get_rci_package_receiver#" &\r
+ "get_rci_package_ref#" &\r
"origin#" &\r
"params#" &\r
"partition#" &\r
"partition_interface#" &\r
"ras#" &\r
+ "call#" &\r
"rci_name#" &\r
"receiver#" &\r
"result#" &\r
"rpc#" &\r
"subp_id#" &\r
+ "operation#" &\r
+ "argument#" &\r
+ "arg_modes#" &\r
+ "handler#" &\r
+ "target#" &\r
+ "req#" &\r
+ "obj_typecode#" &\r
+ "stub#" &\r
"Oabs#" &\r
"Oand#" &\r
"Omod#" &\r
"Oexpon#" &\r
"ada_83#" &\r
"ada_95#" &\r
+ "ada_05#" &\r
"c_pass_by_copy#" &\r
"compile_time_warning#" &\r
"component_alignment#" &\r
"convention_identifier#" &\r
+ "detect_blocking#" &\r
"discard_names#" &\r
"elaboration_checks#" &\r
"eliminate#" &\r
"locking_policy#" &\r
"long_float#" &\r
"no_run_time#" &\r
+ "no_strict_aliasing#" &\r
"normalize_scalars#" &\r
"polling#" &\r
"persistent_data#" &\r
"persistent_object#" &\r
+ "profile#" &\r
+ "profile_warnings#" &\r
"propagate_exceptions#" &\r
"queuing_policy#" &\r
"ravenscar#" &\r
"inline_always#" &\r
"inline_generic#" &\r
"inspection_point#" &\r
- "interface#" &\r
"interface_name#" &\r
"interrupt_handler#" &\r
"interrupt_priority#" &\r
"obsolescent#" &\r
"optimize#" &\r
"optional_overriding#" &\r
- "overriding#" &\r
"pack#" &\r
"page#" &\r
"passive#" &\r
"win32#" &\r
"as_is#" &\r
"body_file_name#" &\r
+ "boolean_entry_barriers#" &\r
"casing#" &\r
"code#" &\r
"component#" &\r
"gnat#" &\r
"gpl#" &\r
"ieee_float#" &\r
- "homonym_number#" &\r
"internal#" &\r
"link_name#" &\r
"lowercase#" &\r
+ "max_entry_queue_depth#" &\r
+ "max_entry_queue_length#" &\r
"max_size#" &\r
"mechanism#" &\r
"mixedcase#" &\r
"name#" &\r
"nca#" &\r
"no#" &\r
+ "no_dependence#" &\r
+ "no_dynamic_attachment#" &\r
+ "no_dynamic_interrupts#" &\r
+ "no_requeue#" &\r
+ "no_requeue_statements#" &\r
+ "no_task_attributes#" &\r
+ "no_task_attributes_package#" &\r
"on#" &\r
"parameter_types#" &\r
"reference#" &\r
"secondary_stack_size#" &\r
"section#" &\r
"semaphore#" &\r
+ "simple_barriers#" &\r
"spec_file_name#" &\r
"static#" &\r
"stack_size#" &\r
"first_bit#" &\r
"fixed_value#" &\r
"fore#" &\r
+ "has_access_values#" &\r
"has_discriminants#" &\r
"identity#" &\r
"img#" &\r
"max_size_in_storage_elements#" &\r
"maximum_alignment#" &\r
"mechanism_code#" &\r
+ "mod#" &\r
"model_emin#" &\r
"model_epsilon#" &\r
"model_mantissa#" &\r
"small#" &\r
"storage_size#" &\r
"storage_unit#" &\r
+ "stream_size#" &\r
"tag#" &\r
"target_name#" &\r
"terminated#" &\r
"value_size#" &\r
"version#" &\r
"wchar_t_size#" &\r
+ "wide_wide_width#" &\r
"wide_width#" &\r
"width#" &\r
"word_size#" &\r
"truncation#" &\r
"value#" &\r
"wide_image#" &\r
+ "wide_wide_image#" &\r
"wide_value#" &\r
+ "wide_wide_value#" &\r
"output#" &\r
"read#" &\r
"write#" &\r
"is#" &\r
"limited#" &\r
"loop#" &\r
- "mod#" &\r
"new#" &\r
"not#" &\r
"null#" &\r
"requeue#" &\r
"tagged#" &\r
"raise_exception#" &\r
+ "ada_roots#" &\r
"binder#" &\r
+ "binder_driver#" &\r
"body_suffix#" &\r
"builder#" &\r
"compiler#" &\r
+ "compiler_driver#" &\r
+ "compiler_kind#" &\r
+ "compute_dependency#" &\r
"cross_reference#" &\r
+ "default_linker#" &\r
"default_switches#" &\r
+ "dependency_option#" &\r
"exec_dir#" &\r
"executable#" &\r
"executable_suffix#" &\r
"extends#" &\r
+ "externally_built#" &\r
"finder#" &\r
"global_configuration_pragmas#" &\r
"gnatls#" &\r
"implementation#" &\r
"implementation_exceptions#" &\r
"implementation_suffix#" &\r
+ "include_option#" &\r
+ "language_processing#" &\r
"languages#" &\r
"library_dir#" &\r
"library_auto_init#" &\r
"library_kind#" &\r
"library_name#" &\r
"library_options#" &\r
+ "library_reference_symbol_file#" &\r
"library_src_dir#" &\r
"library_symbol_file#" &\r
+ "library_symbol_policy#" &\r
"library_version#" &\r
"linker#" &\r
"local_configuration_pragmas#" &\r
"locally_removed_files#" &\r
+ "metrics#" &\r
"naming#" &\r
"object_dir#" &\r
"pretty_printer#" &\r
"specification_suffix#" &\r
"switches#" &\r
"unaligned_valid#" &\r
- "#";\r
+ "interface#" &\r
+ "overriding#" &\r
+ "synchronized#" &\r
+ "#";\r
\r
---------------------\r
-- Generated Names --\r
-- xxxRA RAs type access routine for type xxx (Exp_TSS)\r
-- xxxRD RAs type dereference routine for type xxx (Exp_TSS)\r
-- xxxRP Rep to Pos conversion for enumeration type xxx (Exp_TSS)\r
+ -- xxxSA array/slice assignment for controlled comp. arrays (Exp_TSS)\r
-- xxxSI stream input attribute subprogram for type xxx (Exp_TSS)\r
-- xxxSO stream output attribute subprogram for type xxx (Exp_TSS)\r
-- xxxSR stream read attribute subprogram for type xxx (Exp_TSS)\r
begin\r
if N = Name_AST_Entry then\r
return Pragma_AST_Entry;\r
+ elsif N = Name_Interface then\r
+ return Pragma_Interface;\r
elsif N = Name_Storage_Size then\r
return Pragma_Storage_Size;\r
elsif N = Name_Storage_Unit then\r
begin\r
return N in First_Pragma_Name .. Last_Pragma_Name\r
or else N = Name_AST_Entry\r
+ or else N = Name_Interface\r
or else N = Name_Storage_Size\r
or else N = Name_Storage_Unit;\r
end Is_Pragma_Name;\r