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_sparc_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_sparc_bifs.m4')
| -rw-r--r-- | erts/emulator/hipe/hipe_sparc_bifs.m4 | 36 |
1 files changed, 35 insertions, 1 deletions
diff --git a/erts/emulator/hipe/hipe_sparc_bifs.m4 b/erts/emulator/hipe/hipe_sparc_bifs.m4 index 2bfe3a4646..8dfb28c8e0 100644 --- a/erts/emulator/hipe/hipe_sparc_bifs.m4 +++ b/erts/emulator/hipe/hipe_sparc_bifs.m4 @@ -54,9 +54,10 @@ 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_3(nbif_name, cbif_name) * standard_bif_interface_0(nbif_name, cbif_name) * - * Generate native interface for a BIF with 0-3 parameters and + * Generate native interface for a BIF with 0-4 parameters and * standard failure mode. */ define(standard_bif_interface_1, @@ -146,6 +147,39 @@ $1: .type $1, #function #endif') +define(standard_bif_interface_4, +` +#ifndef HAVE_$1 +#`define' HAVE_$1 + .global $1 +$1: + /* Set up C argument registers. */ + mov P, %o0 + NBIF_ARG(%o1,4,0) + NBIF_ARG(%o2,4,1) + NBIF_ARG(%o3,4,2) + NBIF_ARG(%o4,4,3) + + /* Save caller-save registers and call the C function. */ + SAVE_CONTEXT_BIF + st %o1, [%o0+P_ARG0] ! Store BIF__ARGS in def_arg_reg + st %o2, [%o0+P_ARG1] + st %o3, [%o0+P_ARG2] + st %o4, [%o0+P_ARG3] + add %o0, P_ARG0, %o1 + CALL_BIF($2) + nop + TEST_GOT_MBUF + + /* Restore registers. Check for exception. */ + TEST_GOT_EXN(4) + RESTORE_CONTEXT_BIF + NBIF_RET(4) + HANDLE_GOT_MBUF(4) + .size $1, .-$1 + .type $1, #function +#endif') + define(standard_bif_interface_0, ` #ifndef HAVE_$1 |