diff options
author | Sverker Eriksson <[email protected]> | 2018-02-27 16:48:59 +0100 |
---|---|---|
committer | Sverker Eriksson <[email protected]> | 2018-02-27 16:48:59 +0100 |
commit | 36ac1daeaa8b730988cc2ddcdfb40460d891488f (patch) | |
tree | 817bc0dac3d017d65990030a7b6c816964212f06 /erts/emulator/beam/erl_bif_port.c | |
parent | 478b43211bbe96018b63cbf6c6d567550a6e8a2c (diff) | |
parent | 86863a184d94e9456f158eb0470c4bc5992c94b8 (diff) | |
download | otp-36ac1daeaa8b730988cc2ddcdfb40460d891488f.tar.gz otp-36ac1daeaa8b730988cc2ddcdfb40460d891488f.tar.bz2 otp-36ac1daeaa8b730988cc2ddcdfb40460d891488f.zip |
Merge branch 'sverker/master/erts/more-crash-dump-info/OTP-14820'
Diffstat (limited to 'erts/emulator/beam/erl_bif_port.c')
-rw-r--r-- | erts/emulator/beam/erl_bif_port.c | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/erts/emulator/beam/erl_bif_port.c b/erts/emulator/beam/erl_bif_port.c index 9f0c90ff7b..b184adedee 100644 --- a/erts/emulator/beam/erl_bif_port.c +++ b/erts/emulator/beam/erl_bif_port.c @@ -639,6 +639,27 @@ BIF_RETTYPE port_get_data_1(BIF_ALIST_1) BIF_RET(res); } +Eterm erts_port_data_read(Port* prt) +{ + Eterm res; + erts_aint_t data; + + data = erts_atomic_read_ddrb(&prt->data); + if (data == (erts_aint_t)NULL) + return am_undefined; /* Port terminated by racing thread */ + + if ((data & 0x3) != 0) { + res = (Eterm) (UWord) data; + ASSERT(is_immed(res)); + } + else { + ErtsPortDataHeap *pdhp = (ErtsPortDataHeap *) data; + res = pdhp->data; + } + return res; +} + + /* * Open a port. Most of the work is not done here but rather in * the file io.c. |