Add function deduplication and tests

Author: gbaraldi

src/StaticCompiler.jl

@@ -478,6 +478,10 @@ function native_llvm_module(funcs::Array; mangle_names = false, kwargs...)
             end
         end
     end
+    LLVM.ModulePassManager() do pass_manager #remove duplicate functions
+        LLVM.merge_functions!(pass_manager)
+        LLVM.run!(pass_manager, mod)
+    end
     return mod
 end
 

test/testcore.jl

@@ -292,3 +292,29 @@ end
     @test isa(r, Base.Process)
     @test r.exitcode == 0
 end
+
+
+@testset "Multiple Function Dylibs" begin
+
+    @noinline square(n) = n*n
+
+    function squaresquare(n)
+        square(square(n))
+    end
+
+    function squaresquaresquare(n)
+        square(squaresquare(n))
+    end
+
+    funcs = [(squaresquare,(Float64,)), (squaresquaresquare,(Float64,))]
+    filepath = compile_shlib(funcs, mangle_names=true)
+
+    ptr = Libdl.dlopen(filepath, Libdl.RTLD_LOCAL)
+
+    fptr2 = Libdl.dlsym(ptr, "squaresquare")
+    @test ccall(fptr2, Float64, (Float64,), 10.) == squaresquare(10.)
+
+    fptr = Libdl.dlsym(ptr, "squaresquaresquare")
+    @test ccall(fptr2, Float64, (Float64,), 10.) == squaresquaresquare(10.)
+    #Compile dylib
+end