(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)
- (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)