diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-09 14:28:57 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-09 14:28:57 +0200 |
| commit | c75c4293c3ffaf2f65ae42f7439939ae0cc65dbb (patch) | |
| tree | fefb527cc5b46391416be1e51e34a5cba5b99c02 /gcc/ada/errutil.adb | |
| parent | e7aea0fa3f2f3b8becc30a8ff11f835f93cc8939 (diff) | |
| download | gcc-c75c4293c3ffaf2f65ae42f7439939ae0cc65dbb.zip gcc-c75c4293c3ffaf2f65ae42f7439939ae0cc65dbb.tar.gz gcc-c75c4293c3ffaf2f65ae42f7439939ae0cc65dbb.tar.bz2 | |
[multiple changes]
2009-04-09 Vincent Celier <celier@adacore.com>
* errout.adb: Remove dependency on package Style
* style.ads, styleg.adb, styleg.ads (RM_Column_Check): Remove function,
moved to Stylesw.
* stylesw.ads, stylesw.adb (RM_Column_Check): New function, moved from
Styleg.
* errutil.adb, par.adb: Import Stylesw
2009-04-09 Arnaud Charlet <charlet@adacore.com>
* opt.ads: Fix typos.
2009-04-09 Robert Dewar <dewar@adacore.com>
* einfo.adb: Minor reformatting
From-SVN: r145832
Diffstat (limited to 'gcc/ada/errutil.adb')
| -rw-r--r-- | gcc/ada/errutil.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/errutil.adb b/gcc/ada/errutil.adb index 480a355..28c0140 100644 --- a/gcc/ada/errutil.adb +++ b/gcc/ada/errutil.adb @@ -30,6 +30,7 @@ with Opt; use Opt; with Output; use Output; with Scans; use Scans; with Sinput; use Sinput; +with Stylesw; use Stylesw; package body Errutil is @@ -658,7 +659,7 @@ package body Errutil is procedure Set_Msg_Insertion_Column is begin - if Style.RM_Column_Check then + if RM_Column_Check then Set_Msg_Str (" in column "); Set_Msg_Int (Int (Error_Msg_Col) + 1); end if; |