diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-16 09:03:56 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-16 09:03:56 +0000 |
| commit | 1f958cd0ef0ac24cb13ce0b01d4c92406c5f172d (patch) | |
| tree | 1988421b1a76b066acdb0b87a9eb5302ceb428bf /gcc/ada/fmap.adb | |
| parent | 74fb3c2733602bfc4bbf49c5abbad39dcc4b3622 (diff) | |
| download | gcc-1f958cd0ef0ac24cb13ce0b01d4c92406c5f172d.tar.gz | |
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)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146152 138bc75d-0d04-0410-961f-82ee72b054a4
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 6770ee96ecb..0d5061dd18d 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; |