2008-05-27 Vincent Celier <celier@adacore.com>

	* xsnames.adb: Remove unused variable Oname

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135982 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/xsnames.adb b/gcc/ada/xsnames.adb
index e5579d8..d43631a 100644 (file)
--- a/gcc/ada/xsnames.adb
+++ b/gcc/ada/xsnames.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2008, 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- --
@@ -51,7 +51,6 @@ procedure XSnames is
    Line  : VString := Nul;
    Name  : VString := Nul;
    Name1 : VString := Nul;
-   Oname : VString := Nul;
    Oval  : VString := Nul;
    Restl : VString := Nul;
 
@@ -165,7 +164,6 @@ begin
    Create (OutH, Out_File, "snames.nh");
 
    Anchored_Mode := True;
-   Oname := Nul;
    Val := 0;
 
    loop