diff options
| author | Lukas Larsson <[email protected]> | 2018-12-17 10:59:50 +0100 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2019-02-21 16:37:59 +0100 |
| commit | 45c57256d06b14bae7a4f19978a375e360b609cf (patch) | |
| tree | c6b7ea9b6519038bb7002dba02a7cb377b45575b /erts/etc | |
| parent | 5c8f2bee9a427768c187a35a6ecd720faa860200 (diff) | |
| download | otp-45c57256d06b14bae7a4f19978a375e360b609cf.tar.gz otp-45c57256d06b14bae7a4f19978a375e360b609cf.tar.bz2 otp-45c57256d06b14bae7a4f19978a375e360b609cf.zip | |
erts: Yield later during process exit and allow free procs to run
OTP-15610
Diffstat (limited to 'erts/etc')
| -rw-r--r-- | erts/etc/unix/etp-commands.in | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/erts/etc/unix/etp-commands.in b/erts/etc/unix/etp-commands.in index 54b7628137..131e967816 100644 --- a/erts/etc/unix/etp-commands.in +++ b/erts/etc/unix/etp-commands.in @@ -2096,7 +2096,7 @@ define etp-process-info-int end end printf " Current function: " - if ($etp_proc->current) + if ($etp_proc->current && !($etp_proc->state.counter & 0x800)) etp-1 $etp_proc->current->module printf ":" etp-1 $etp_proc->current->function @@ -2167,7 +2167,7 @@ define etp-processes-int set $invalid_proc = &erts_invalid_process set $proc_decentile = $proc_max_ix / 10 set $proc_printile = $proc_decentile - while $proc_ix < $proc_max_ix && $proc_cnt > 0 + while $proc_ix < $proc_max_ix && $proc_cnt >= 0 set $proc = (Process *) *((UWord *) ($proc_tab + $proc_ix)) if ($proc != ((Process *) 0) && $proc != $invalid_proc) printf "---\n" |