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