2004-05-17 Steve Kargl <kargls@comcast.net>

[pf3gnuchains/gcc-fork.git] / gcc / ada / i-cobol.adb

diff --git a/gcc/ada/i-cobol.adb b/gcc/ada/i-cobol.adb
index 74b65b9..7dc1f85 100644 (file)
--- a/gcc/ada/i-cobol.adb
+++ b/gcc/ada/i-cobol.adb
@@ -6,9 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                            $Revision: 1.14 $
---                                                                          --
---          Copyright (C) 1992-1999 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2002 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- --
@@ -29,7 +27,7 @@
 -- covered by the  GNU Public License.                                      --
 --                                                                          --
 -- GNAT was originally developed  by the GNAT team at  New York University. --
--- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
+-- Extensive contributions were provided by Ada Core Technologies Inc.      --
 --                                                                          --
 ------------------------------------------------------------------------------
 
@@ -696,7 +694,6 @@ package body Interfaces.COBOL is
             if Format = Packed_Unsigned then
                return Item (Item'Last) = 16#F#;
 
-
             --  For signed, accept all standard and non-standard signs
 
             else
@@ -718,6 +715,8 @@ package body Interfaces.COBOL is
       --  Note that the tests here are all compile time tests
 
       function Length (Format : Binary_Format) return Natural is
+         pragma Warnings (Off, Format);
+
       begin
          if Num'Digits <= 2 then
             return 1;
@@ -756,6 +755,8 @@ package body Interfaces.COBOL is
         (Format : Packed_Format)
          return   Natural
       is
+         pragma Warnings (Off, Format);
+
       begin
          case Packed_Representation is
             when IBM =>
@@ -983,6 +984,7 @@ package body Interfaces.COBOL is
          return   Boolean
       is
          Val : Num;
+         pragma Unreferenced (Val);
 
       begin
          Val := To_Decimal (Item, Format);