diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 11:03:56 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 11:03:56 +0200 |
| commit | b4763f5c4a9d2bde0963bbb9422aa3480c5e81da (patch) | |
| tree | 1988421b1a76b066acdb0b87a9eb5302ceb428bf /gcc/ada/fmap.adb | |
| parent | 0c72247e06e7cebbe398cb3c3948e77d8939f5ce (diff) | |
| download | gcc-b4763f5c4a9d2bde0963bbb9422aa3480c5e81da.zip gcc-b4763f5c4a9d2bde0963bbb9422aa3480c5e81da.tar.gz gcc-b4763f5c4a9d2bde0963bbb9422aa3480c5e81da.tar.bz2 | |
[multiple changes]
2009-04-16 Emmanuel Briot <briot@adacore.com>
* prj-nmsc.adb (Path_Name_Of): fix memory leak
2009-04-16 Robert Dewar <dewar@adacore.com>
* sinfo.ads (Backwards_OK, Forwards_OK): Clarify documentation
2009-04-16 Vincent Celier <celier@adacore.com>
* fmap.adb (Initialize): Show the current line when the mapping file
is detected as "incorrectly formatted".
2009-04-16 Robert Dewar <dewar@adacore.com>
* sem_ch12.adb: Minor reformatting
* sem_ch5.adb: Minor comment addition
* sem_util.adb: Minor reformatting
* sinput-p.adb: Minor reformatting
Add missing pragma Warnings (On)
From-SVN: r146152
Diffstat (limited to 'gcc/ada/fmap.adb')
| -rw-r--r-- | gcc/ada/fmap.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/fmap.adb b/gcc/ada/fmap.adb index 6770ee9..0d5061d 100644 --- a/gcc/ada/fmap.adb +++ b/gcc/ada/fmap.adb @@ -321,9 +321,10 @@ package body Fmap is if (Last < First + 2) or else (SP (Last - 1) /= '%') or else (SP (Last) /= 's' and then SP (Last) /= 'b') then - Write_Str ("warning: mapping file """); - Write_Str (File_Name); - Write_Line (""" is incorrectly formatted"); + Write_Line + ("warning: mapping file """ & File_Name & + """ is incorrectly formatted"); + Write_Line ("Line = """ & SP (First .. Last) & '"'); Empty_Tables; return; end if; |