Adds the function log10

vult-dsp · Oct 21, 2019 · 6040d92 · 6040d92
1 parent eeaf896
commit 6040d92
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 1 deletion.
diff --git a/src/core/env.ml b/src/core/env.ml
@@ -585,6 +585,7 @@ let builtin_table =
    ; [ "makeArray" ], Scope.Function, Typ.Const.array_make (), false
    ; [ "abs" ], Scope.Function, Typ.Const.freal_freal (), false
    ; [ "exp" ], Scope.Function, Typ.Const.freal_freal (), false
+   ; [ "log10" ], Scope.Function, Typ.Const.freal_freal (), false
    ; [ "sin" ], Scope.Function, Typ.Const.freal_freal (), false
    ; [ "cos" ], Scope.Function, Typ.Const.freal_freal (), false
    ; [ "floor" ], Scope.Function, Typ.Const.freal_freal (), false

diff --git a/src/core/interpreter.ml b/src/core/interpreter.ml
@@ -547,6 +547,7 @@ let builtinFunctions (a : Args.args) env =
    in
    let functions =
       [ "abs", Env.Builtin (real_real abs_float)
+      ; "log10", Env.Builtin (real_real log10)
       ; "exp", Env.Builtin (real_real exp)
       ; "sin", Env.Builtin (real_real sin)
       ; "cos", Env.Builtin (real_real cos)

diff --git a/src/generators/defaultReplacements.ml b/src/generators/defaultReplacements.ml
@@ -128,6 +128,7 @@ module Default = struct
          ; ("msu", "float"), "float_msu"
          ; ("abs", "float"), "fabsf"
          ; ("exp", "float"), "expf"
+         ; ("log10", "float"), "log10f"
          ; ("floor", "float"), "floorf"
          ; ("max", "float"), "fmax"
          ; ("min", "float"), "fmin"

diff --git a/src/version.ml b/src/version.ml
@@ -1 +1 @@
-let version = "\nv0.4.4\n"
+let version = "\nv0.4.5\n"