src/: Enhance `definst' to allow general BVL syntax.

[sod] / src / method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index c8b47ad90d67d674b56f04217c4fc29de3ac5d19..069f7e4d5fb7681776518ac64c2a04fe1c1adaef 100644 (file)
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -293,13 +293,11 @@ (defun invoke-method (codegen target arguments-tail direct-method)
                       (c-type-subtype (sod-method-type direct-method))
                       (lambda (var)
                         (ensure-var codegen *sod-tmp-ap* c-type-va-list)
                       (c-type-subtype (sod-method-type direct-method))
                       (lambda (var)
                         (ensure-var codegen *sod-tmp-ap* c-type-va-list)

-                        (emit-inst codegen
-                                   (make-va-copy-inst *sod-tmp-ap*
-                                                      *sod-ap*))
+                        (deliver-call codegen :void "va_copy"
+                                      *sod-tmp-ap* *sod-ap*)

                         (apply #'deliver-call codegen var
                                function arguments)
                         (apply #'deliver-call codegen var
                                function arguments)

-                        (emit-inst codegen
-                                   (make-va-end-inst *sod-tmp-ap*))))
+                        (deliver-call codegen :void "va_end" *sod-tmp-ap*)))

        (apply #'deliver-call codegen target function arguments))))
 
 (export 'ensure-ilayout-var)
        (apply #'deliver-call codegen target function arguments))))
 
 (export 'ensure-ilayout-var)