PSI sics-cvs-psi_pre-ansto

2003-06-13 00:00:00 +00:00
parent 2e3ddfb6c6
commit 3ffd0d8af4
1099 changed files with 318432 additions and 0 deletions
--- a/tcl/bgerror.tcl
+++ b/tcl/bgerror.tcl
@@ -0,0 +1,8 @@
+proc bgerror err {
+    global errorInfo
+    set info $errorInfo
+    
+    puts stdout $err
+    puts stdout "------------------------- StackTrace ---------------------"
+    puts $info
+}