diff options
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"; |