diff options
| author | Lukas Larsson <[email protected]> | 2016-02-29 15:09:26 +0100 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2016-04-15 15:07:38 +0200 |
| commit | 3738103d0b1195e570a7525c4370cd490a5368aa (patch) | |
| tree | 24fd26a93799a643c7d672ef0d794696057c0187 /erts/emulator/beam/erl_process.c | |
| parent | b8ca148ba2c98a2bec923dbac6ed52a80aa167ca (diff) | |
| download | otp-3738103d0b1195e570a7525c4370cd490a5368aa.tar.gz otp-3738103d0b1195e570a7525c4370cd490a5368aa.tar.bz2 otp-3738103d0b1195e570a7525c4370cd490a5368aa.zip | |
erts: Add 'spawned' trace event to 'procs' trace flag
OTP-13497
This trace event is triggered when a process is created from the
process that is created.
Diffstat (limited to 'erts/emulator/beam/erl_process.c')
| -rw-r--r-- | erts/emulator/beam/erl_process.c | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/erts/emulator/beam/erl_process.c b/erts/emulator/beam/erl_process.c index 1398bc9c61..a520005c35 100644 --- a/erts/emulator/beam/erl_process.c +++ b/erts/emulator/beam/erl_process.c @@ -11176,12 +11176,23 @@ erl_create_process(Process* parent, /* Parent of process (default group leader). locks &= ~(ERTS_PROC_LOCK_STATUS|ERTS_PROC_LOCK_TRACE); erts_smp_proc_unlock(p, ERTS_PROC_LOCK_STATUS|ERTS_PROC_LOCK_TRACE); erts_smp_proc_unlock(parent, ERTS_PROC_LOCK_STATUS|ERTS_PROC_LOCK_TRACE); - trace_proc_spawn(parent, p->common.id, mod, func, args); + trace_proc_spawn(parent, am_spawn, p->common.id, mod, func, args); if (so->flags & SPO_LINK) trace_proc(parent, locks, parent, am_link, p->common.id); } } + if (IS_TRACED_FL(p, F_TRACE_PROCS)) { + if (locks & (ERTS_PROC_LOCK_STATUS|ERTS_PROC_LOCK_TRACE)) { + locks &= ~(ERTS_PROC_LOCK_STATUS|ERTS_PROC_LOCK_TRACE); + erts_smp_proc_unlock(p, locks & (ERTS_PROC_LOCK_STATUS|ERTS_PROC_LOCK_TRACE)); + erts_smp_proc_unlock(parent, locks & (ERTS_PROC_LOCK_STATUS|ERTS_PROC_LOCK_TRACE)); + } + trace_proc_spawn(p, am_spawned, parent->common.id, mod, func, args); + if (so->flags & SPO_LINK) + trace_proc(p, locks, p, am_getting_linked, parent->common.id); + } + /* * Check if this process should be initially linked to its parent. */ |