diff options
author | Henrik Nord <[email protected]> | 2014-03-19 08:48:32 +0100 |
---|---|---|
committer | Henrik Nord <[email protected]> | 2014-03-19 08:48:32 +0100 |
commit | d623f60a150e52f77491331529e172780dbc80ca (patch) | |
tree | 101da5f483c47ae4d74a5c3f82f4d56c2f812dcb /lib/hipe/regalloc/hipe_ls_regalloc.erl | |
parent | aab1afa8a63081f2c30f83ebe8b6caaac979795c (diff) | |
parent | 5795a20244dde1de8236eed8a0f43bc976bd1e0c (diff) | |
download | otp-d623f60a150e52f77491331529e172780dbc80ca.tar.gz otp-d623f60a150e52f77491331529e172780dbc80ca.tar.bz2 otp-d623f60a150e52f77491331529e172780dbc80ca.zip |
Merge branch 'kostis/hipe-rc2-patch'
* kostis/hipe-rc2-patch:
Cleanup and make sure warnings are treated as errors
Add specs for exported functions (to shut off a warning) and types in some record fields
Introduce and use a hipe_icode:icode() type
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(_, [], _) -> |