Changeset 1188 for trunk/gsascmds.tcl


Ignore:
Timestamp:
Jan 26, 2012 10:47:43 AM (9 years ago)
Author:
toby
Message:

update to match bug fixs in sandbox

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    r1175 r1188  
    604604}
    605605
     606# for use in debugging -- how did I get here!
     607proc ShowCallStack {} {
     608    puts "\n================== ShowCallStack ==============="
     609    set n [info level]
     610    incr n -1
     611    while {$n > 0} {
     612        puts "level $n: [info level $n]"
     613        incr n -1
     614    }
     615}
    606616#------------------------------------------------------------------------------
    607617# profile/symmetry routines
     
    27872797
    27882798proc ExplainEXPerror {parent message file} {
     2799    #ShowCallStack
    27892800    if {$parent == "."} {
    27902801        set w .experr
Note: See TracChangeset for help on using the changeset viewer.