Print TCL error information

[Daniel Jacobowitz]

I'd like to see something "like" this in DejaGNU.  One of the absolute
most frequent mistakes I make is syntax errors in the TCL block
associated with some pattern; DejaGNU doesn't even give me a hint that
the pattern matched OK in the output, let alone what TCL's useful error
message was.

The output from the one below is obviously too loud and ugly, but I've
found it useful.

Thoughts?

Index: dejagnu/lib/remote.exp
===================================================================
RCS file: /cvs/src/src/dejagnu/lib/remote.exp,v
retrieving revision 1.6
diff -u -p -r1.6 remote.exp
--- dejagnu/lib/remote.exp      6 Mar 2003 03:50:24 -0000       1.6
+++ dejagnu/lib/remote.exp      4 Mar 2004 20:24:38 -0000
@@ -1259,6 +1259,7 @@ proc remote_expect { board timeout args 
     }
 
     if {$code == 1} {
+        if {[info exists string]} {send_user "ERROR OCCURED: $errorInfo 
$errorCode $string"}
        if { $error_sect != "" } {
            set code [catch {uplevel $error_sect} string];
        } else {


-- 
Daniel Jacobowitz
MontaVista Software                         Debian GNU/Linux Developer