support unnamed call inst.

sellout · May 25, 2015 · 9e9e58e · 9e9e58e
1 parent 4069b95
commit 9e9e58e
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/src/core/instruction-builders.lisp b/src/core/instruction-builders.lisp
@@ -178,8 +178,14 @@
   (builder builder)
   (fn value) (args (carray value)) (num-args :unsigned-int)
   (name :string))
-(defun build-call (builder fn args name)
-  (%build-call builder fn args (length args) name))
+(defcfun (build-call-void "LLVMBuildCall") value
+  (builder builder)
+  (fn value) (args (carray value)) (num-args :unsigned-int))
+(defun build-call (builder fn args &optional name)
+  (if name
+      (%build-call builder fn args (length args) name)
+      (build-call-void builder fn args (length args))))
+
 (defcfun* "LLVMBuildSelect" value
   (builder builder) (if value) (then value) (else value) (name :string))
 (defcfun* "LLVMBuildVAArg" value