diff options
| author | Kostis Sagonas <[email protected]> | 2014-02-26 00:06:11 +0100 |
|---|---|---|
| committer | Kostis Sagonas <[email protected]> | 2014-02-26 00:06:11 +0100 |
| commit | c82da93ca6408eff459c379234ca7f0789160c27 (patch) | |
| tree | 591dd3d667582af840c5dec28695564ccfede5a8 /lib/hipe/regalloc/hipe_ls_regalloc.erl | |
| parent | 98776a40609d1fa80292d2959708a8697f8cb756 (diff) | |
| download | otp-c82da93ca6408eff459c379234ca7f0789160c27.tar.gz otp-c82da93ca6408eff459c379234ca7f0789160c27.tar.bz2 otp-c82da93ca6408eff459c379234ca7f0789160c27.zip | |
Substitude uses of lists:reverse(L1) ++ L2 with lists:reverse(L1, L2)
Diffstat (limited to 'lib/hipe/regalloc/hipe_ls_regalloc.erl')
| -rw-r--r-- | lib/hipe/regalloc/hipe_ls_regalloc.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/hipe/regalloc/hipe_ls_regalloc.erl b/lib/hipe/regalloc/hipe_ls_regalloc.erl index 4276b8f968..7a00a0534a 100644 --- a/lib/hipe/regalloc/hipe_ls_regalloc.erl +++ b/lib/hipe/regalloc/hipe_ls_regalloc.erl @@ -722,7 +722,7 @@ is_free(R, Free) -> is_free(R, Free, []). is_free(R, [{R,_}|Rest], Acc) -> - {true,lists:reverse(Acc)++Rest}; + {true, lists:reverse(Acc, Rest)}; is_free(R, [X|Rs],Acc) -> is_free(R, Rs, [X|Acc]); is_free(_, [], _) -> @@ -733,7 +733,7 @@ exists_free_register(Start, Regs) -> exists_free_register(Start, [{Phys, Start0}|Rest], Acc) when Start > Start0 -> - {true, Phys, lists:reverse(Acc)++Rest}; + {true, Phys, lists:reverse(Acc, Rest)}; exists_free_register(Start, [Free|Rest], Acc) -> exists_free_register(Start, Rest, [Free|Acc]); exists_free_register(_, [], _) -> |