This proc is never used. --xml sets $xml, and that's it.

	* lib/framework.exp (check_xml): Remove unused proc.

diff --git a/ChangeLog b/ChangeLog
index 4611aae..72aa084 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2016-03-28  Ben Elliston  <bje@gnu.org>
+
+       * lib/framework.exp (check_xml): Remove unused proc.
+
 2016-03-28  Rob Savoye  <rob.savoye@linaro.org>
 
        * lib/dmucs.exp: New.

diff --git a/lib/framework.exp b/lib/framework.exp
index 8404b38..29a813e 100644 (file)
--- a/lib/framework.exp
+++ b/lib/framework.exp
@@ -1,5 +1,6 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010, 2012 Free Software Foundation, Inc.
+# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
+# 2001 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010, 2012, 2016 Free
+# Software Foundation, Inc.
 #
 # This file is part of DejaGnu.
 #
@@ -31,15 +32,6 @@ proc mail_file { file to subject } {
     }
 }
 
-# Check for XML output flag or environment variable.
-#
-proc check_xml { } {
-    global env
-
-    set x "RUNTESTFLAGS"
-    return [format "%s" $env($x)]
-}
-
 # Insert DTD for xml format checking.
 #
 proc insertdtd { } {