diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-10-12 12:27:25 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-10-12 12:27:25 +0000 |
| commit | e250d711425a85debf3c8a477e8228cbd9ead997 (patch) | |
| tree | 116e0fc7db9fa240a145b0a22b5febac58f2de96 /gcc/ada/rtsfind.adb | |
| parent | 5dcf8c37fb84eed47806ab5cc958b71e64648329 (diff) | |
| download | gcc-e250d711425a85debf3c8a477e8228cbd9ead997.tar.gz | |
2016-10-12 Tristan Gingold <gingold@adacore.com>
* exp_ch9.adb (Expand_N_Delay_Relative_Statement): Add support
for a secondary procedure in case of missing Ada.Calendar.Delays
* rtsfind.ads (RTU_Id): Add System_Relative_Delays.
(RE_Id): Add RO_RD_Delay_For.
* rtsfind.adb (Output_Entity_Name): Handle correctly units RO_XX.
* s-rident.ads: Remove No_Relative_Delays
restriction for GNAT_Extended_Ravenscar.
2016-10-12 Ed Schonberg <schonberg@adacore.com>
* sem_elab.adb (Within_Initial_Condition): When deternining
the context of the expression, use the original node if it is
a pragma, because Check pragmas are rewritten as conditionals
when assertions are not enabled.
2016-10-12 Bob Duff <duff@adacore.com>
* spitbol_table.ads, spitbol_table.adb (Adjust, Finalize): Add
"overriding".
2016-10-12 Bob Duff <duff@adacore.com>
* a-strunb-shared.ads, a-strunb-shared.adb (Finalize):
Make sure Finalize is idempotent.
(Unreference): Check for
Empty_Shared_String, in case the reference count of the empty
string wraps around.
Also add "not null" in various places that can't be null.
2016-10-12 Jerome Lambourg <lambourg@adacore.com>
* init.c: Fix sigtramp with the x86_64-vx7-vxsim target on
Windows host.
2016-10-12 Vadim Godunko <godunko@adacore.com>
* s-os_lib.ads (Is_Owner_Readable_File): Renamed from
Is_Readable_File.
(Is_Owner_Writable_File): Renamed from Is_Writable_File.
(Is_Readable_File): Renames Is_Read_Accessible_File.
(Is_Writable_File): Renames Is_Write_Accessible_File.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@241035 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/rtsfind.adb')
| -rw-r--r-- | gcc/ada/rtsfind.adb | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index e2d9cb53018..5745b00cfd8 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2016, 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- -- @@ -1144,6 +1144,9 @@ package body Rtsfind is -- M (1 .. P) is current message to be output RE_Image : constant String := RE_Id'Image (Id); + S : Natural; + -- RE_Image (S .. RE_Image'Last) is the name of the entity without the + -- "RE_" or "RO_XX_" prefix. begin if Id = RE_Null then @@ -1168,8 +1171,15 @@ package body Rtsfind is -- Add entity name and closing quote to message - Name_Len := RE_Image'Length - 3; - Name_Buffer (1 .. Name_Len) := RE_Image (4 .. RE_Image'Length); + if RE_Image (2) = 'E' then + -- Strip "RE" + S := 4; + else + -- Strip "RO_XX" + S := 7; + end if; + Name_Len := RE_Image'Length - S + 1; + Name_Buffer (1 .. Name_Len) := RE_Image (S .. RE_Image'Last); Set_Casing (Mixed_Case); M (P + 1 .. P + Name_Len) := Name_Buffer (1 .. Name_Len); P := P + Name_Len; |