diff options
| author | Loïc Hoguin <[email protected]> | 2013-04-05 13:06:24 +0200 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2013-04-05 13:06:24 +0200 |
| commit | c82e9fad33302ff24fdddbd50f110c06d4eb81d4 (patch) | |
| tree | 710881076aed3f2a387acee1a70444a0515c51fb /lib/tools/src/fprof.erl | |
| parent | e72043e3519cb14aabf461849eba959b97e07410 (diff) | |
| download | otp-c82e9fad33302ff24fdddbd50f110c06d4eb81d4.tar.gz otp-c82e9fad33302ff24fdddbd50f110c06d4eb81d4.tar.bz2 otp-c82e9fad33302ff24fdddbd50f110c06d4eb81d4.zip | |
Use erlang:demonitor(Ref, [flush]) where applicable
Diffstat (limited to 'lib/tools/src/fprof.erl')
| -rw-r--r-- | lib/tools/src/fprof.erl | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lib/tools/src/fprof.erl b/lib/tools/src/fprof.erl index 4cbb910f11..877218bda0 100644 --- a/lib/tools/src/fprof.erl +++ b/lib/tools/src/fprof.erl @@ -1226,10 +1226,7 @@ spawn_3step(Spawn, FunPrelude, FunAck, FunBody) MRef = erlang:monitor(process, Parent), receive {Parent, Ref, Go} -> - erlang:demonitor(MRef), - receive {'DOWN', MRef, _, _, _} -> ok - after 0 -> ok - end, + erlang:demonitor(MRef, [flush]), FunBody(Go); {'DOWN', MRef, _, _, _} -> ok @@ -1238,8 +1235,7 @@ spawn_3step(Spawn, FunPrelude, FunAck, FunBody) MRef = erlang:monitor(process, Child), receive {Child, Ref, Ack} -> - erlang:demonitor(MRef), - receive {'DOWN', MRef, _, _, _} -> ok after 0 -> ok end, + erlang:demonitor(MRef, [flush]), try FunAck(Ack) of {Result, Go} -> catch Child ! {Parent, Ref, Go}, |