diff options
| author | Siri Hansen <[email protected]> | 2016-04-20 11:43:08 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2016-05-19 15:21:51 +0200 |
| commit | 96175f1ebfd109f1268898d68a735ec5a16e9933 (patch) | |
| tree | 10e9556b2b94525371f266b8353258a3c64704a3 /lib/observer/src | |
| parent | 37b60d5b365e814c83974cdac0f1eed04dab0ad3 (diff) | |
| download | otp-96175f1ebfd109f1268898d68a735ec5a16e9933.tar.gz otp-96175f1ebfd109f1268898d68a735ec5a16e9933.tar.bz2 otp-96175f1ebfd109f1268898d68a735ec5a16e9933.zip | |
[ttb] Set trace patterns on messages
Functions ttb:tpe/2 and ttb:ctpe/1 are added.
Diffstat (limited to 'lib/observer/src')
| -rw-r--r-- | lib/observer/src/ttb.erl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/observer/src/ttb.erl b/lib/observer/src/ttb.erl index 4d6eb3ba8d..32c2fad775 100644 --- a/lib/observer/src/ttb.erl +++ b/lib/observer/src/ttb.erl @@ -25,7 +25,8 @@ -export([tracer/0,tracer/1,tracer/2,p/2,stop/0,stop/1,start_trace/4]). -export([get_et_handler/0]). -export([tp/2, tp/3, tp/4, ctp/0, ctp/1, ctp/2, ctp/3, tpl/2, tpl/3, tpl/4, - ctpl/0, ctpl/1, ctpl/2, ctpl/3, ctpg/0, ctpg/1, ctpg/2, ctpg/3]). + ctpl/0, ctpl/1, ctpl/2, ctpl/3, ctpg/0, ctpg/1, ctpg/2, ctpg/3, + tpe/2, ctpe/1]). -export([seq_trigger_ms/0,seq_trigger_ms/1]). -export([write_trace_info/2]). -export([write_config/2,write_config/3,run_config/1,run_config/2,list_config/1]). @@ -479,6 +480,11 @@ tpl(A,B,C,D) -> store(tpl,[A,B,C,ms(D)]), dbg:tpl(A,B,C,ms(D)). +tpe(A,B) -> + ensure_no_overloaded_nodes(), + store(tpe,[A,ms(B)]), + dbg:tpe(A,ms(B)). + ctp() -> store(ctp,[]), dbg:ctp(). @@ -518,6 +524,10 @@ ctpg(A,B,C) -> store(ctpg,[A,B,C]), dbg:ctpg(A,B,C). +ctpe(A) -> + store(ctpe,[A]), + dbg:ctpe(A). + ms(return) -> [{'_',[],[{return_trace}]}]; ms(caller) -> |