diff options
| author | Anthony Ramine <[email protected]> | 2014-05-09 16:00:54 +0200 |
|---|---|---|
| committer | Zandra Hird <[email protected]> | 2015-02-24 12:46:20 +0100 |
| commit | 0ec91ff571518e199aac7a4da961a80c153483b9 (patch) | |
| tree | 007240dc2af973c54d9c8ed605894c36157c4ecd /erts/emulator/hipe/hipe_x86_bifs.m4 | |
| parent | 4dae7cd0c0fc15f051ac90d6e1c4b19d94a27128 (diff) | |
| download | otp-0ec91ff571518e199aac7a4da961a80c153483b9.tar.gz otp-0ec91ff571518e199aac7a4da961a80c153483b9.tar.bz2 otp-0ec91ff571518e199aac7a4da961a80c153483b9.zip | |
Allow 4-ary BIFs
Diffstat (limited to 'erts/emulator/hipe/hipe_x86_bifs.m4')
| -rw-r--r-- | erts/emulator/hipe/hipe_x86_bifs.m4 | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/erts/emulator/hipe/hipe_x86_bifs.m4 b/erts/emulator/hipe/hipe_x86_bifs.m4 index a0f16efa33..b0064ee628 100644 --- a/erts/emulator/hipe/hipe_x86_bifs.m4 +++ b/erts/emulator/hipe/hipe_x86_bifs.m4 @@ -48,6 +48,7 @@ define(HANDLE_GOT_MBUF,` * standard_bif_interface_1(nbif_name, cbif_name) * standard_bif_interface_2(nbif_name, cbif_name) * standard_bif_interface_3(nbif_name, cbif_name) + * standard_bif_interface_4(nbif_name, cbif_name) * standard_bif_interface_0(nbif_name, cbif_name) * * Generate native interface for a BIF with 0-3 parameters and @@ -158,6 +159,43 @@ ASYM($1): TYPE_FUNCTION(ASYM($1)) #endif') +define(standard_bif_interface_4, +` +#ifndef HAVE_$1 +#`define' HAVE_$1 + TEXT + .align 4 + GLOBAL(ASYM($1)) +ASYM($1): + /* copy native stack pointer */ + NBIF_COPY_NSP(4) + + /* switch to C stack */ + SWITCH_ERLANG_TO_C + + /* make the call on the C stack */ + NBIF_ARG_REG(0,P) + NBIF_ARG(2,4,0) + NBIF_ARG(3,4,1) + NBIF_ARG(4,4,2) + NBIF_ARG(5,4,3) + lea 8(%esp), %eax + NBIF_ARG_REG(1,%eax) /* BIF__ARGS */ + CALL_BIF($2) + TEST_GOT_MBUF + + /* switch to native stack */ + SWITCH_C_TO_ERLANG + + /* throw exception if failure, otherwise return */ + TEST_GOT_EXN + jz nbif_4_simple_exception + NBIF_RET(4) + HANDLE_GOT_MBUF(4) + SET_SIZE(ASYM($1)) + TYPE_FUNCTION(ASYM($1)) +#endif') + define(standard_bif_interface_0, ` #ifndef HAVE_$1 |