diff options
| author | Robert Dewar <dewar@adacore.com> | 2007-12-13 11:40:58 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-13 11:40:58 +0100 |
| commit | 34a343e634c7b155a8553e45ffabd3f24f0765ec (patch) | |
| tree | b53100b51497dede67b8a55f080645b76ff2bad0 /gcc/ada/xsinfo.adb | |
| parent | 9b998381423870a80e7479c7bdd4cf3ed48324a5 (diff) | |
| download | gcc-34a343e634c7b155a8553e45ffabd3f24f0765ec.zip gcc-34a343e634c7b155a8553e45ffabd3f24f0765ec.tar.gz gcc-34a343e634c7b155a8553e45ffabd3f24f0765ec.tar.bz2 | |
xeinfo.adb: Remove warnings
2007-12-06 Robert Dewar <dewar@adacore.com>
* xeinfo.adb: Remove warnings
* xnmake.adb: Remove warnings
* xsinfo.adb: Remove warnings
* xtreeprs.adb: Remove warnings
* xsnames.adb: Remove warnings
* a-ngcoar.adb: Fix typo.
* s-interr.adb: Minor reformatting
* env.c: Minor reformatting.
* g-bytswa.adb: Minor reformatting.
* g-rannum.ads: Minor documentation improvements
* s-tasinf-mingw.adb: Minor header fix
* a-clrefi.adb: Minor reformatting
* g-sttsne.ads: Minor documentation improvement
* g-sttsne-locking.ads: Minor documentation improvement
* g-soliop-solaris.ads: Minor documentation improvement
* g-soliop-mingw.ads: Minor documentation improvement
* g-soliop.ads: Minor documentation improvement
* exp_aggr.ads: Minor reformatting
* debug.adb: Add documentation for the gprbuild debug flags
* exp_ch2.adb: Use Nkind_In to simplify code throughout
* exp_pakd.adb: Minor reformatting
* g-altive.ads, g-alleve.adb: Remove assertions.
Add comment about minor differences between targets regarding
floating-point operations.
* g-thread.adb: Remove pragma unreferenced.
* lib.ads: Minor reformatting
* par-ch9.adb: Minor reformatting of error messages
* sem_case.adb: Minor reformatting
* s-fileio.adb: Minor reformattinng
* s-vmexta.ads: Minor typo
* vxaddr2line.adb:
Take into account 'Success' value as per new GNAT warning.
From-SVN: r130870
Diffstat (limited to 'gcc/ada/xsinfo.adb')
| -rw-r--r-- | gcc/ada/xsinfo.adb | 34 |
1 files changed, 20 insertions, 14 deletions
diff --git a/gcc/ada/xsinfo.adb b/gcc/ada/xsinfo.adb index e688272..3a1ba2e 100644 --- a/gcc/ada/xsinfo.adb +++ b/gcc/ada/xsinfo.adb @@ -55,6 +55,9 @@ 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; @@ -65,23 +68,26 @@ procedure XSinfo is Rtn : VString := Nul; Term : VString := Nul; + pragma Warnings (On); + InS : File_Type; Ofile : File_Type; - wsp : Pattern := Span (' ' & ASCII.HT); - Wsp_For : Pattern := wsp & "for"; - Is_Cmnt : Pattern := wsp & "--"; - Typ_Nod : Pattern := wsp * A & "type Node_Kind is"; - Get_Nam : Pattern := wsp * A & "N_" & Break (",)") * Nam - & Len (1) * Term; - Sub_Typ : Pattern := wsp * A & "subtype " & Break (' ') * N; - No_Cont : Pattern := wsp & Break (' ') * N1 & " .. " & Break (';') * N2; - Cont_N1 : Pattern := wsp & Break (' ') * N1 & " .." & Rpos (0); - Cont_N2 : Pattern := Span (' ') & Break (';') * N2; - Is_Func : Pattern := wsp * A & "function " & Rest * Nam; - Get_Arg : Pattern := wsp & "(N : " & Break (')') * Arg - & ") return " & Break (';') * Rtn - & ';' & wsp & "--" & wsp & Rest * Comment; + wsp : constant Pattern := Span (' ' & ASCII.HT); + Wsp_For : constant Pattern := wsp & "for"; + Is_Cmnt : constant Pattern := wsp & "--"; + Typ_Nod : constant Pattern := wsp * A & "type Node_Kind is"; + Get_Nam : constant Pattern := wsp * A & "N_" & Break (",)") * Nam + & Len (1) * Term; + Sub_Typ : constant Pattern := wsp * A & "subtype " & Break (' ') * N; + No_Cont : constant Pattern := wsp & Break (' ') * N1 + & " .. " & Break (';') * N2; + Cont_N1 : constant Pattern := wsp & Break (' ') * N1 & " .." & Rpos (0); + Cont_N2 : constant Pattern := Span (' ') & Break (';') * N2; + Is_Func : constant Pattern := wsp * A & "function " & Rest * Nam; + Get_Arg : constant Pattern := wsp & "(N : " & Break (')') * Arg + & ") return " & Break (';') * Rtn + & ';' & wsp & "--" & wsp & Rest * Comment; NKV : Natural; |