+
+buildExpr (Call callee params) = do
+ paramOps <- mapM buildExpr params
+ let nam = fromString callee
+ -- get a pointer to the function
+ typ = FunctionType Type.double (replicate (length params) Type.double) False
+ ptrTyp = Type.PointerType typ (AddrSpace 0)
+ ref = GlobalReference ptrTyp nam
+ call (ConstantOperand ref) (zip paramOps (repeat []))