diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-26 11:43:27 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-26 11:43:27 +0000 |
| commit | 91303f2d9eaaa9ec27450b1d87b517f93ccd223b (patch) | |
| tree | e358af0508ee263dd69fcb24e4ae06e18df19257 /gcc/ada/ceinfo.adb | |
| parent | e6429c45284a7d3ddb96f52b945c4a6c8aad14ae (diff) | |
| download | ppe42-gcc-91303f2d9eaaa9ec27450b1d87b517f93ccd223b.tar.gz ppe42-gcc-91303f2d9eaaa9ec27450b1d87b517f93ccd223b.zip | |
* ceinfo.adb, csinfo.adb: Remove warnings. Update headers.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135912 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/ceinfo.adb')
| -rw-r--r-- | gcc/ada/ceinfo.adb | 36 |
1 files changed, 17 insertions, 19 deletions
diff --git a/gcc/ada/ceinfo.adb b/gcc/ada/ceinfo.adb index 494b9077c47..c88b642e444 100644 --- a/gcc/ada/ceinfo.adb +++ b/gcc/ada/ceinfo.adb @@ -6,18 +6,17 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998 Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2007, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 2, or (at your option) any later ver- -- +-- ware Foundation; either version 3, or (at your option) any later ver- -- -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- -- for more details. You should have received a copy of the GNU General -- --- Public License distributed with GNAT; see file COPYING. If not, write -- --- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- --- Boston, MA 02110-1301, USA. -- +-- Public License distributed with GNAT; see file COPYING3. If not, go to -- +-- http://www.gnu.org/licenses for a complete copy of the license. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- -- Extensive contributions were provided by Ada Core Technologies Inc. -- @@ -43,9 +42,6 @@ procedure CEinfo is Infil : File_Type; Lineno : Natural := 0; - Err : exception; - -- Raised on fatal error - Fieldnm : VString; Accessfunc : VString; Line : VString; @@ -53,25 +49,27 @@ procedure CEinfo is Fields : GNAT.Spitbol.Table_VString.Table (500); -- Maps field names to underlying field access name - UC : Pattern := Any ("ABCDEFGHIJKLMNOPQRSTUVWXYZ"); + UC : constant Pattern := Any ("ABCDEFGHIJKLMNOPQRSTUVWXYZ"); - Fnam : Pattern := (UC & Break (' ')) * Fieldnm; + Fnam : constant Pattern := (UC & Break (' ')) * Fieldnm; - Field_Def : Pattern := "-- " & Fnam & " (" & Break (')') * Accessfunc; + Field_Def : constant Pattern := + "-- " & Fnam & " (" & Break (')') * Accessfunc; - Field_Ref : Pattern := " -- " & Fnam & Break ('(') & Len (1) & - Break (')') * Accessfunc; + Field_Ref : constant Pattern := + " -- " & Fnam & Break ('(') & Len (1) & + Break (')') * Accessfunc; - Field_Com : Pattern := " -- " & Fnam & Span (' ') & - (Break (' ') or Rest) * Accessfunc; + Field_Com : constant Pattern := " -- " & Fnam & Span (' ') & + (Break (' ') or Rest) * Accessfunc; - Func_Hedr : Pattern := " function " & Fnam; + Func_Hedr : constant Pattern := " function " & Fnam; - Func_Retn : Pattern := " return " & Break (' ') * Accessfunc; + Func_Retn : constant Pattern := " return " & Break (' ') * Accessfunc; - Proc_Hedr : Pattern := " procedure " & Fnam; + Proc_Hedr : constant Pattern := " procedure " & Fnam; - Proc_Setf : Pattern := " Set_" & Break (' ') * Accessfunc; + Proc_Setf : constant Pattern := " Set_" & Break (' ') * Accessfunc; procedure Next_Line; -- Read next line trimmed from Infil into Line and bump Lineno |
