diff options
| author | Zandra Hird <[email protected]> | 2015-04-29 14:52:53 +0200 |
|---|---|---|
| committer | Zandra Hird <[email protected]> | 2015-04-29 14:52:53 +0200 |
| commit | 5758f481ea259d78004a0a770cea2cc23dbf282e (patch) | |
| tree | 5aa6cac60caab2d1e46f7a13c074b5514fdbd41a /erts/emulator/hipe/hipe_arm_bifs.m4 | |
| parent | de6ef63b143557558436b5c0213030a27d78da0d (diff) | |
| parent | 086af2a9f8fffefd8fb8330cc45bdf1e698809df (diff) | |
| download | otp-5758f481ea259d78004a0a770cea2cc23dbf282e.tar.gz otp-5758f481ea259d78004a0a770cea2cc23dbf282e.tar.bz2 otp-5758f481ea259d78004a0a770cea2cc23dbf282e.zip | |
Merge branch 'mikpe/hipe-unbreak-arity-4-bifs'
* mikpe/hipe-unbreak-arity-4-bifs:
erts/hipe: unbreak arity 4 BIFs
Diffstat (limited to 'erts/emulator/hipe/hipe_arm_bifs.m4')
| -rw-r--r-- | erts/emulator/hipe/hipe_arm_bifs.m4 | 36 |
1 files changed, 35 insertions, 1 deletions
diff --git a/erts/emulator/hipe/hipe_arm_bifs.m4 b/erts/emulator/hipe/hipe_arm_bifs.m4 index 884240be9c..6abc7545e0 100644 --- a/erts/emulator/hipe/hipe_arm_bifs.m4 +++ b/erts/emulator/hipe/hipe_arm_bifs.m4 @@ -42,9 +42,10 @@ define(TEST_GOT_MBUF,`ldr r1, [P, #P_MBUF] /* `TEST_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 1-3 parameters and + * Generate native interface for a BIF with 0-4 parameters and * standard failure mode. */ define(standard_bif_interface_1, @@ -134,6 +135,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 r0, P + NBIF_ARG(r1,4,0) + NBIF_ARG(r2,4,1) + NBIF_ARG(r3,4,2) + NBIF_ARG(r4,4,3) + + /* Save caller-save registers and call the C function. */ + SAVE_CONTEXT_BIF + str r1, [r0, #P_ARG0] /* Store BIF__ARGS in def_arg_reg[] */ + str r2, [r0, #P_ARG1] + str r3, [r0, #P_ARG2] + str r4, [r0, #P_ARG3] + add r1, r0, #P_ARG0 + CALL_BIF($2) + TEST_GOT_MBUF(4) + + /* Restore registers. Check for exception. */ + cmp r0, #THE_NON_VALUE + RESTORE_CONTEXT_BIF + beq nbif_4_simple_exception + NBIF_RET(4) + .ltorg + .size $1, .-$1 + .type $1, %function +#endif') + define(standard_bif_interface_0, ` #ifndef HAVE_$1 |