diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:43:27 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:43:27 +0000 |
| commit | e1a0cc7b7e807e6f0ae790da1a452af403121f9e (patch) | |
| tree | 31e748acde00a186b9998864de91b99dd349ae1f /gcc/ada/xsinfo.adb | |
| parent | b67a70de8ab854b29584e4189198e5b40efa4cd5 (diff) | |
| download | gcc-e1a0cc7b7e807e6f0ae790da1a452af403121f9e.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133585 138bc75d-0d04-0410-961f-82ee72b054a4
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 3a1ba2e7e4a..786f4e39d45 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"; |