xsnames.adb: Remove unused variable Oname

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

	* xsnames.adb: Remove unused variable Oname

From-SVN: r135982

diff --git a/gcc/ada/xsnames.adb b/gcc/ada/xsnames.adb
index e5579d805e888303d380f25fa77d6a39db714c6c..d43631a258e3aaeeeaa1c47b0b8c0c63e194529c 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