1 #!/bin/sh 2 3 # Filters are not run for post-test check commands. 4 # Filter everything here. 5 6 echo "---Status---" 7 echo "::status" | /usr/bin/mdb vgcore.* | \ 8 perl -p -e 's/from \S*$/from .../' | \ 9 perl -0 -p -e 's/^file: .+?^(initial argv:)/$1/ms' | \ 10 sed '/^threading model:/ d' | \ 11 perl -p -e 's/addr=[0-9A-Fa-f]+/addr=......../g' 12 13 echo "\n---Registers---" 14 echo "::regs" | /usr/bin/mdb vgcore.* | \ 15 sed '/^%cs =/ d' | \ 16 sed '/^%ds =/ d' | \ 17 perl -p -e 's/%rip\s+=\s+0x[0-9A-Fa-f]+(.*)\+0x[0-9A-Fa-f]+$/%rip = 0x........ $1+0x......../' | \ 18 sed '/^%rbp/ d' | \ 19 sed '/^%rflags/ d' | \ 20 sed '/id=/ d' | \ 21 sed '/status=/ d' | \ 22 sed '/^%gsbase = / d' | \ 23 sed '/^%fsbase = / d' \ 24 25 echo "\n---Stack trace---" 26 echo "::stack ! perl -p -e 's/^(\S+)\+.*/\$1/g'" | /usr/bin/mdb vgcore.* 27
