X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Fmlib-tgt.adb;h=dd2ae15d88306001f4762e7365521d47db04334e;hb=f15731c43ae5e8cea424ea40f905c19afa1bd2e4;hp=2a25aef1ae9a53dfb853ee41091aa1ae5720fe6a;hpb=1d347c236ad815c77bd345611ed221b0bd6091de;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/ada/mlib-tgt.adb b/gcc/ada/mlib-tgt.adb
index 2a25aef1ae9..dd2ae15d883 100644
--- a/gcc/ada/mlib-tgt.adb
+++ b/gcc/ada/mlib-tgt.adb
@@ -7,7 +7,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                            $Revision: 1.2 $
+--                            $Revision$
 --                                                                          --
 --              Copyright (C) 2001, Ada Core Technologies, Inc.             --
 --                                                                          --
@@ -33,6 +33,8 @@
 
 package body MLib.Tgt is
 
+   pragma Warnings (Off); -- stop warnings on unreferenced formals
+
    -----------------
    -- Archive_Ext --
    -----------------