diff options
| author | Sverker Eriksson <[email protected]> | 2014-09-04 17:41:56 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2014-09-04 17:41:56 +0200 |
| commit | 6a986c1f076ef75b124ac75286479aaaa94fd226 (patch) | |
| tree | 74cdb25bd2c06cda1ddb94961e4d533ba1530bef /erts/emulator/beam/bif.c | |
| parent | e7f6333070080a3b71c5bba4b88c167220508b64 (diff) | |
| parent | f5036330d46d2cc1d5995e89ae86d1b09ac83ac4 (diff) | |
| download | otp-6a986c1f076ef75b124ac75286479aaaa94fd226.tar.gz otp-6a986c1f076ef75b124ac75286479aaaa94fd226.tar.bz2 otp-6a986c1f076ef75b124ac75286479aaaa94fd226.zip | |
Merge branch 'maint'
Diffstat (limited to 'erts/emulator/beam/bif.c')
| -rw-r--r-- | erts/emulator/beam/bif.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/erts/emulator/beam/bif.c b/erts/emulator/beam/bif.c index bc56143def..5370b592f3 100644 --- a/erts/emulator/beam/bif.c +++ b/erts/emulator/beam/bif.c @@ -1,7 +1,7 @@ /* * %CopyrightBegin% * - * Copyright Ericsson AB 1996-2013. All Rights Reserved. + * Copyright Ericsson AB 1996-2014. All Rights Reserved. * * The contents of this file are subject to the Erlang Public License, * Version 1.1, (the "License"); you may not use this file except in @@ -2891,9 +2891,6 @@ static int do_list_to_integer(Process *p, Eterm orig_list, res = big_plus_small(res, m, hp); } - if (is_big(res)) /* check if small */ - res = big_plus_small(res, 0, hp); /* includes conversion to small */ - if (neg) { if (is_small(res)) res = make_small(-signed_val(res)); @@ -2903,8 +2900,12 @@ static int do_list_to_integer(Process *p, Eterm orig_list, } } - if (is_big(res)) { - hp += (big_arity(res)+1); + if (is_not_small(res)) { + res = big_plus_small(res, 0, hp); /* includes conversion to small */ + + if (is_not_small(res)) { + hp += (big_arity(res)+1); + } } HRelease(p,hp_end,hp); } |