diff options
author | Sverker Eriksson <sverker@erlang.org> | 2011-07-13 12:31:32 +0200 |
---|---|---|
committer | Sverker Eriksson <sverker@erlang.org> | 2011-07-13 12:31:32 +0200 |
commit | 74e7bf593c302dccd2df1561a22ad25b91a4864b (patch) | |
tree | 129ef564368ce20848373bd6c7fe5bae889e808d /erts/emulator/beam/erl_nif.c | |
parent | 66829b77b0becadecb2fef480b66f69e95498bf7 (diff) | |
parent | 59c43904b029c5ccde511fcb83a809ed8370d887 (diff) | |
download | otp-74e7bf593c302dccd2df1561a22ad25b91a4864b.tar.gz otp-74e7bf593c302dccd2df1561a22ad25b91a4864b.tar.bz2 otp-74e7bf593c302dccd2df1561a22ad25b91a4864b.zip |
Merge branch 'dev' into major
Conflicts:
erts/emulator/test/nif_SUITE.erl
erts/emulator/test/nif_SUITE_data/nif_SUITE.c
sverker/enif_make_int64-halfword/OTP-9394
Diffstat (limited to 'erts/emulator/beam/erl_nif.c')
-rw-r--r-- | erts/emulator/beam/erl_nif.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/erts/emulator/beam/erl_nif.c b/erts/emulator/beam/erl_nif.c index aa6a024b35..ea781a6cd0 100644 --- a/erts/emulator/beam/erl_nif.c +++ b/erts/emulator/beam/erl_nif.c @@ -833,8 +833,11 @@ ERL_NIF_TERM enif_make_uint(ErlNifEnv* env, unsigned i) ERL_NIF_TERM enif_make_long(ErlNifEnv* env, long i) { + if (IS_SSMALL(i)) { + return make_small(i); + } #if SIZEOF_LONG == ERTS_SIZEOF_ETERM - return IS_SSMALL(i) ? make_small(i) : small_to_big(i, alloc_heap(env,2)); + return small_to_big(i, alloc_heap(env,2)); #elif SIZEOF_LONG == 8 ensure_heap(env,3); return erts_sint64_to_big(i, &env->hp); @@ -843,8 +846,11 @@ ERL_NIF_TERM enif_make_long(ErlNifEnv* env, long i) ERL_NIF_TERM enif_make_ulong(ErlNifEnv* env, unsigned long i) { + if (IS_USMALL(0,i)) { + return make_small(i); + } #if SIZEOF_LONG == ERTS_SIZEOF_ETERM - return IS_USMALL(0,i) ? make_small(i) : uint_to_big(i,alloc_heap(env,2)); + return uint_to_big(i,alloc_heap(env,2)); #elif SIZEOF_LONG == 8 ensure_heap(env,3); return erts_uint64_to_big(i, &env->hp); |