diff --git a/src/eTpf.erl b/src/eTpf.erl index 2bafac0..5bba8df 100644 --- a/src/eTpf.erl +++ b/src/eTpf.erl @@ -41,9 +41,14 @@ , stop/1 ]). +-compile([export_all]). + sts() -> trace([{app, eSync}, {scope, [whereis(esSyncSrv)]}]). +sts1() -> + trace([test, {scope, [self()]}]). + stl() -> trace([{app, eSync}, {scope, [new_processes]}], tpTracerLog). @@ -197,7 +202,7 @@ traceInput([{scope, Scope} | Tail], TracerState, TraceOpts) -> [ begin %erlang:trace(PidPortSpec, true, [call, procs, arity, return_to, set_on_spawn, {tracer, tpTracerNif, TracerState} | ExtraFlags]) - erlang:trace(PidPortSpec, true, [call, arity, send, 'receive', set_on_spawn, {tracer, tpTracerNif, TracerState}]) + erlang:trace(PidPortSpec, true, [call, {tracer, tpTracerNif, TracerState}]) end || PidPortSpec <- Scope ], traceInput(Tail, TracerState, TraceOpts); @@ -212,5 +217,5 @@ traceInput([Mod | Tail], TracerState, TraceOpts) when is_atom(Mod) -> %% The module must be loaded before we attempt to trace it. _ = code:ensure_loaded(Mod), io:format("IMY****************** ~p~n ", [Mod]), - _ = erlang:trace_pattern({Mod, '_', '_'}, MatchSpec, [local]), + _ = erlang:trace_pattern({Mod, '_', '_'}, [{'_', [], [{message, {process_dump}}]}], [local]), traceInput(Tail, TracerState, TraceOpts). diff --git a/src/test.erl b/src/test.erl new file mode 100644 index 0000000..e07831e --- /dev/null +++ b/src/test.erl @@ -0,0 +1,12 @@ +-module(test). + +-export([test/1]). + +test(Args) -> + test2(Args). + +test2(Args) -> + test3(Args). + +test3(Args) -> + {ok, Args}.