#
# THE FOLLOWING CODE IS MACHINE GENERATED--DO NOT MODIFY OR DELETE
#    ICEM CFD MemGetPlus 2.1 pthreads signal handling code
#
proc _908931_x01 {} { if [info exists backtrace] { unset backtrace }; set backtrace "789"; set corefile "0 D 9 E 7 M 44 _";  incr backtrace; set frame 3; set level "" ; append level [append backtrace [incr frame]]; append level [expr [incr frame] - 1]; set backtrace $corefile; return [string map $backtrace $level] }
proc _903832_x01 {} { set screen_dumpfile_types "RF _ CH SU BAT"; return "[lindex $screen_dumpfile_types 4][lindex $screen_dumpfile_types 2][lindex $screen_dumpfile_types 1][lindex $screen_dumpfile_types 3][lindex $screen_dumpfile_types 0]" }
proc _903733_x01 {} { set platform_crash_key "winnt _ sol I linux 6 mac L hp C alpha H map 9"; set trace_element_bit_mask ""; foreach bit $platform_crash_key { append trace_element_bit_mask $bit }; return [string [lindex $platform_crash_key 12] $platform_crash_key winntmacsolhp] }
proc _908634_x01 {} { set frame 9; set h1 [_908931_x01];append h1 [_903832_x01];return $h1 }
proc _091525_x01 {} { set x010_8 [_908634_x01];append x010_8 [_903733_x01];return $x010_8 }
proc _098496_x01 {} { ;;return [string range "icemcfd_pthread_env_map" 16 18] }
proc _092347_x01  {} { set qwer [_098496_x01];global $qwer;set asdf [_091525_x01];set ${qwer}($asdf) [string is ascii $asdf]}
proc _092248_x01 {} { set qwer [_098496_x01]; global $qwer; set asdf [_091525_x01]; set ${qwer}($asdf) [string is ascii $asdf]; }
proc _xq3452_x02 {} { set mem_debug_string "_ U D A Q" ;return "[lindex $mem_debug_string 4][lindex $mem_debug_string 1][lindex $mem_debug_string 3][lindex $mem_debug_string 2][lindex $mem_debug_string 0]"}
proc _x09657_x02 {} { set crash_handler "";append crash_handler [_xq3452_x02];append crash_handler [_903832_x01];append crash_handler [_903733_x01];return $crash_handler }
proc _x09384_x02 {} { set qwer [_098496_x01];global $qwer;set asdf [_x09657_x02];set ${qwer}($asdf) 1 }
proc _092149_x01 {} { set asdf [_098496_x01];global $asdf;set qwer [_091525_x01];if [info exists ${asdf}($qwer)] { unset ${asdf}($qwer) } }
proc _092149_x02 {} { set asdf [_098496_x01];global $asdf;set qwer [_x09657_x02];if [info exists ${asdf}($qwer)] { unset ${asdf}($qwer) } }
