projects
/
gcc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
bcheck.adb, [...]: Move Name_Id, File_Name_Type and Unit_Name_Type from package Types...
[gcc.git]
/
gcc
/
ada
/
errutil.adb
diff --git
a/gcc/ada/errutil.adb
b/gcc/ada/errutil.adb
index b70f18d2ce8db210a17fb794ce6c0a33337d45b8..f877fafe228d28a109a5b94df5fc40a371e4b8e7 100644
(file)
--- a/
gcc/ada/errutil.adb
+++ b/
gcc/ada/errutil.adb
@@
-6,7
+6,7
@@
-- --
-- B o d y --
-- --
-- --
-- B o d y --
-- --
--- Copyright (C) 1991-200
5
, Free Software Foundation, Inc. --
+-- Copyright (C) 1991-200
7
, 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- --
-- --
-- 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- --
@@
-582,6
+582,12
@@
package body Errutil is
-- an initial dummy entry covering all possible source locations.
Warnings.Init;
-- an initial dummy entry covering all possible source locations.
Warnings.Init;
+
+ if Warning_Mode = Suppress then
+ Warnings.Increment_Last;
+ Warnings.Table (Warnings.Last).Start := Source_Ptr'First;
+ Warnings.Table (Warnings.Last).Stop := Source_Ptr'Last;
+ end if;
end Initialize;
------------------------
end Initialize;
------------------------
@@
-675,7
+681,12
@@
package body Errutil is
-- Check for insertion character
if C = '%' then
-- Check for insertion character
if C = '%' then
- Set_Msg_Insertion_Name;
+ if P <= Text'Last and then Text (P) = '%' then
+ P := P + 1;
+ Set_Msg_Insertion_Name_Literal;
+ else
+ Set_Msg_Insertion_Name;
+ end if;
elsif C = '$' then
elsif C = '$' then