also match ccalls against (lib, function) (#236)

Author: KristofferC

src/optimize.jl

@@ -176,7 +176,9 @@ function optimize!(code::CodeInfo, scope)
                 f = string(uuid1(rng))
             elseif isexpr(f, :call)
                 length(f.args) == 3 || continue
-                f.args[1] === tuple || continue
+                if !(f.args[1] === tuple || f.args[1] == :($(QuoteNode(tuple))))
+                    continue
+                end
                 lib = f.args[3] isa String ? f.args[3] : f.args[3].value
                 prefix = f.args[2] isa String ? f.args[2] : f.args[2].value
                 f = Symbol(prefix, '_', lib)

test/interpret.jl

@@ -463,3 +463,11 @@ function call_cf()
     ccall(cf[1], Int, (Int, Int), 1, 2)
 end
 @test (@interpret call_cf()) == call_cf()
+
+f() = ccall((:clock, "libc"), Int32, ())
+# See that the method gets compiled
+try @interpret f()
+catch
+end
+compiled_calls = names(JuliaInterpreter.CompiledCalls; all=true)
+@test any(x -> startswith(string(x), "ccall_clock_libc"), compiled_calls)