diff options
Diffstat (limited to 'gcc/ada/prj-attr.adb')
| -rw-r--r-- | gcc/ada/prj-attr.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/prj-attr.adb b/gcc/ada/prj-attr.adb index 0321533fc18..f2af8379100 100644 --- a/gcc/ada/prj-attr.adb +++ b/gcc/ada/prj-attr.adb @@ -851,7 +851,7 @@ package body Prj.Attr is for Index in Package_Attributes.First .. Package_Attributes.Last loop if Package_Attributes.Table (Index).Name = Pkg_Name then - Fail ("cannot register a package with a non unique name""" + Fail ("cannot register a package with a non unique name """ & Name & """"); Id := Empty_Package; @@ -889,7 +889,7 @@ package body Prj.Attr is for Index in Package_Attributes.First .. Package_Attributes.Last loop if Package_Attributes.Table (Index).Name = Pkg_Name then - Fail ("cannot register a package with a non unique name""" + Fail ("cannot register a package with a non unique name """ & Name & """"); raise Project_Error; |