diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-03-26 08:43:27 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:43:27 +0100 |
| commit | f53f9dd7812d03d2301d3b3ff6d81bcbed9455d3 (patch) | |
| tree | 31e748acde00a186b9998864de91b99dd349ae1f /gcc/ada/xsinfo.adb | |
| parent | 14063a127cde2742fc889284db0185b144a7c873 (diff) | |
| download | gcc-f53f9dd7812d03d2301d3b3ff6d81bcbed9455d3.zip gcc-f53f9dd7812d03d2301d3b3ff6d81bcbed9455d3.tar.gz gcc-f53f9dd7812d03d2301d3b3ff6d81bcbed9455d3.tar.bz2 | |
back_end.adb, [...]: Minor reformatting
2008-03-26 Robert Dewar <dewar@adacore.com>
* back_end.adb, back_end.ads: Minor reformatting
* bindgen.adb: Minor clarification of comments
* fname.ads: Minor comment fixes
* g-altive.ads, g-catiio.ads, g-trasym.ads, prj.ads,
prj-nmsc.adb, sem_aggr.adb: Minor reformatting
* xeinfo.adb, xnmake.adb, xsinfo.adb, xtreeprs.adb,
xsnames.adb: Remove warnings off pragma no longer needed
* a-catizo.ads, a-calari.ads, a-calfor.adb,
a-calfor.ads: Fix header.
From-SVN: r133585
Diffstat (limited to 'gcc/ada/xsinfo.adb')
| -rw-r--r-- | gcc/ada/xsinfo.adb | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/gcc/ada/xsinfo.adb b/gcc/ada/xsinfo.adb index 3a1ba2e..786f4e3 100644 --- a/gcc/ada/xsinfo.adb +++ b/gcc/ada/xsinfo.adb @@ -55,9 +55,6 @@ procedure XSinfo is Done : exception; Err : exception; - pragma Warnings (Off); - -- Below variables are referenced using * operator - A : VString := Nul; Arg : VString := Nul; Comment : VString := Nul; @@ -68,10 +65,8 @@ procedure XSinfo is Rtn : VString := Nul; Term : VString := Nul; - pragma Warnings (On); - - InS : File_Type; - Ofile : File_Type; + InS : File_Type; + Ofile : File_Type; wsp : constant Pattern := Span (' ' & ASCII.HT); Wsp_For : constant Pattern := wsp & "for"; |