From 3e509af89efb558191517fb918538b74efcfa17c Mon Sep 17 00:00:00 2001 From: Ben Elliston Date: Mon, 28 Mar 2016 17:01:13 +1100 Subject: This proc is never used. --xml sets $xml, and that's it. * lib/framework.exp (check_xml): Remove unused proc. --- ChangeLog | 4 ++++ lib/framework.exp | 14 +++----------- 2 files changed, 7 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4611aae..72aa084 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2016-03-28 Ben Elliston + + * lib/framework.exp (check_xml): Remove unused proc. + 2016-03-28 Rob Savoye * lib/dmucs.exp: New. diff --git a/lib/framework.exp b/lib/framework.exp index 8404b38..29a813e 100644 --- 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 { } { -- cgit v1.1