diff mbox

Fix lto.exp dg-final error catching

Message ID alpine.LSU.2.11.1403131045110.6041@zhemvz.fhfr.qr
State New
Headers show

Commit Message

Richard Biener March 13, 2014, 9:46 a.m. UTC 
While trying cleanup-saved-temps in a LTO testcase (which of course
doesn't work ... error executing dg-final: bad level "5" (!??)) I
ran into a TCL error printing the error - we use bogus variables.

Fixed as obvious.

Richard.

2014-03-13  Richard Biener  <rguenther@suse.de>

	* lib/lto.exp (lto-execute): Fix error catching for dg-final.
diff mbox

Patch

Index: gcc/testsuite/lib/lto.exp
===================================================================
--- gcc/testsuite/lib/lto.exp	(revision 208532)
+++ gcc/testsuite/lib/lto.exp	(working copy)
@@ -559,11 +559,11 @@  proc lto-execute { src1 sid } {
 	    verbose "Running dg-final tests." 3
 	    verbose "dg-final-proc:\n[info body dg-final-proc]" 4
 	    if [catch "dg-final-proc $src1" errmsg] {
-		perror "$name: error executing dg-final: $errmsg"
+		perror "$src1: error executing dg-final: $errmsg"
 		# ??? The call to unresolved here is necessary to clear
 		# `errcnt'.  What we really need is a proc like perror that
 		# doesn't set errcnt.  It should also set exit_status to 1.
-		unresolved "$name: error executing dg-final: $errmsg"
+		unresolved "$src1: error executing dg-final: $errmsg"
 	    }
 	}