diff options
| author | Zandra <[email protected]> | 2016-02-02 11:35:58 +0100 |
|---|---|---|
| committer | Zandra <[email protected]> | 2016-02-02 11:35:58 +0100 |
| commit | 1a1eaec544987f439061622f0177e424dfd6306a (patch) | |
| tree | 05454189fc353121a038027255a6559e7bd2eaa2 /erts/emulator/hipe/hipe_native_bif.c | |
| parent | b937e14a5b656b025f9b369656bfd03dadd481b5 (diff) | |
| parent | 61ef7511c5ffae0b061d7cc45e9d564b02b891db (diff) | |
| download | otp-1a1eaec544987f439061622f0177e424dfd6306a.tar.gz otp-1a1eaec544987f439061622f0177e424dfd6306a.tar.bz2 otp-1a1eaec544987f439061622f0177e424dfd6306a.zip | |
Merge branch 'maint'
Conflicts:
erts/emulator/beam/beam_emu.c
Diffstat (limited to 'erts/emulator/hipe/hipe_native_bif.c')
| -rw-r--r-- | erts/emulator/hipe/hipe_native_bif.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/erts/emulator/hipe/hipe_native_bif.c b/erts/emulator/hipe/hipe_native_bif.c index 1bfee94e9e..16cc70234d 100644 --- a/erts/emulator/hipe/hipe_native_bif.c +++ b/erts/emulator/hipe/hipe_native_bif.c @@ -513,6 +513,18 @@ int hipe_bs_validate_unicode_retract(ErlBinMatchBuffer* mb, Eterm arg) return 1; } +BIF_RETTYPE hipe_is_divisible(BIF_ALIST_2) +{ + /* Arguments are Eterm-sized unsigned integers */ + Uint dividend = BIF_ARG_1; + Uint divisor = BIF_ARG_2; + if (dividend % divisor) { + BIF_ERROR(BIF_P, BADARG); + } else { + return NIL; + } +} + /* This is like the loop_rec_fr BEAM instruction */ Eterm hipe_check_get_msg(Process *c_p) |