log 2 compat

Need to support math:log2 in early versions of OTP (for Riak)

rebar.config

@@ -1,8 +1,10 @@
 {erl_opts, [warnings_as_errors,
 	    {platform_define, "^2[0-1]{1}", fsm_deprecated},
             {platform_define, "^1[7-8]{1}", old_rand},
+            {platform_define, "^17", no_log2},
             {platform_define, "^R", no_sync},
             {platform_define, "^R", old_rand},
+            {platform_define, "^R", no_log2},
             {platform_define, "^R", slow_test}]}.
 
 {xref_checks, [undefined_function_calls,undefined_functions]}.

src/leveled_math.erl

@@ -0,0 +1,38 @@
+%% Handle missing log2 prior to OTP18
+
+-module(leveled_math).
+
+%% API
+-export([
+         log2/1
+        ]).
+
+
+-include_lib("eunit/include/eunit.hrl").
+
+%%%===================================================================
+%%% Use log2
+%%%===================================================================
+-ifndef(no_log2).
+
+log2(X) ->
+    math:log2(X).
+
+-else.
+%%%===================================================================
+%%% Old (r18) random style functions
+%%%===================================================================
+
+log2(X) ->
+    math:log(X) / 0.6931471805599453.
+
+-endif.
+
+
+-ifdef(TEST).
+
+log2_test() ->
+    ?assertMatch(8, round(log2(256))),
+    ?assertMatch(16, round(log2(65536))).
+
+-endif.

src/leveled_tictac.erl

@@ -413,7 +413,7 @@ adjust_segmentmatch_list(SegmentList, CompareSize, StoreSize) ->
     StoreSizeI = get_size(StoreSize),
     if CompareSizeI =< StoreSizeI ->
         ExpItems = StoreSizeI div CompareSizeI - 1,
-        ShiftFactor = trunc(math:log2(CompareSizeI * ?L2_CHUNKSIZE)),
+        ShiftFactor = round(leveled_math:log2(CompareSizeI * ?L2_CHUNKSIZE)),
         ExpList = 
             lists:map(fun(X) -> X bsl ShiftFactor end, lists:seq(1, ExpItems)),
         UpdSegmentList =