diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2012-10-02 18:44:03 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2012-10-15 20:49:43 +0200 |
| commit | 6aa87d58b756ef65650ee793ad4ece8add7b70fb (patch) | |
| tree | e40745a989254631a2f921942ea74ffb76a4337a /lib | |
| parent | 952db27ba0a5b87a2a47f3a7034a9bf92e3651e5 (diff) | |
| download | otp-6aa87d58b756ef65650ee793ad4ece8add7b70fb.tar.gz otp-6aa87d58b756ef65650ee793ad4ece8add7b70fb.tar.bz2 otp-6aa87d58b756ef65650ee793ad4ece8add7b70fb.zip | |
erts, heart: Ensure erl_crash.dump is written
When a crash dump is about to be written and we have
heartbeat enabled on a system. We need time to write it
before heart explicitly kills the beam.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/kernel/src/heart.erl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/kernel/src/heart.erl b/lib/kernel/src/heart.erl index 28452a377e..de287bfa43 100644 --- a/lib/kernel/src/heart.erl +++ b/lib/kernel/src/heart.erl @@ -42,6 +42,7 @@ -define(CLEAR_CMD, 5). -define(GET_CMD, 6). -define(HEART_CMD, 7). +-define(PREPARING_CRASH, 8). % Used in beam vm -define(TIMEOUT, 5000). -define(CYCLE_TIMEOUT, 10000). @@ -130,6 +131,8 @@ start_portprogram() -> Port when is_port(Port) -> case wait_ack(Port) of ok -> + %% register port so the vm can find it if need be + register(heart_port, Port), {ok, Port}; {error, Reason} -> report_problem({{port_problem, Reason}, |