~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
src/: Abolish the special `va-*' instructions.
[sod]
/
src
/
method-impl.lisp
diff --git
a/src/method-impl.lisp
b/src/method-impl.lisp
index
725a0ec
..
366d1dc
100644
(file)
--- a/
src/method-impl.lisp
+++ b/
src/method-impl.lisp
@@
-455,13
+455,11
@@
(ensure-var codegen *sod-ap* c-type-va-list)
(convert-stmts codegen entry-target return-type
(lambda (target)
(ensure-var codegen *sod-ap* c-type-va-list)
(convert-stmts codegen entry-target return-type
(lambda (target)
- (emit-inst codegen
- (make-va-start-inst
- *sod-ap*
- (argument-name parm-n)))
+ (deliver-call codegen :void "va_start"
+ *sod-ap* parm-n)
(deliver-expr codegen target call)
(deliver-expr codegen target call)
- (
emit-inst codegen
-
(make-va-end-inst *sod-ap*)
)))
+ (
deliver-call codegen :void "va_end"
+
*sod-ap*
)))
(codegen-pop-function codegen main main-type))))))
;; Generate the method body. We'll work out what to do with it later.
(codegen-pop-function codegen main main-type))))))
;; Generate the method body. We'll work out what to do with it later.