diff options
author | Sverker Eriksson <[email protected]> | 2018-02-20 20:36:55 +0100 |
---|---|---|
committer | Sverker Eriksson <[email protected]> | 2018-02-22 20:39:40 +0100 |
commit | 86863a184d94e9456f158eb0470c4bc5992c94b8 (patch) | |
tree | 0c32b45c3717b02d6c943371835e2ac4a8d8d59d /erts/emulator/beam/erl_bif_port.c | |
parent | 6221c73942b158081a5d3e498631d758409b6b62 (diff) | |
parent | 2e2d1ea0affa72b613d291f4d9002292d878fc2b (diff) | |
download | otp-86863a184d94e9456f158eb0470c4bc5992c94b8.tar.gz otp-86863a184d94e9456f158eb0470c4bc5992c94b8.tar.bz2 otp-86863a184d94e9456f158eb0470c4bc5992c94b8.zip |
Merge 'sverker/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. |