chiark
/
gitweb
/
~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
src/builtin.lisp (class-slot "init"): Fix declaration of temporaries.
[sod]
/
src
/
method-impl.lisp
diff --git
a/src/method-impl.lisp
b/src/method-impl.lisp
index 4c694e15f37b643f5da07f137f7fdb2d54e8fa45..6f22a142f92f9e487ca7858db4758fd3ff4a26e7 100644
(file)
--- a/
src/method-impl.lisp
+++ b/
src/method-impl.lisp
@@
-455,13
+455,15
@@
(defmethod compute-method-entry-functions ((method basic-effective-method))
. raw-entry-args))))
(codegen-push codegen)
(ensure-var codegen *sod-ap* (c-type va-list))
. raw-entry-args))))
(codegen-push codegen)
(ensure-var codegen *sod-ap* (c-type va-list))
- (emit-inst codegen
- (make-va-start-inst *sod-ap*
- (argument-name parm-n)))
(convert-stmts codegen entry-target return-type
(lambda (target)
(convert-stmts codegen entry-target return-type
(lambda (target)
- (deliver-expr codegen target call)))
- (emit-inst codegen (make-va-end-inst *sod-ap*))
+ (emit-inst codegen
+ (make-va-start-inst
+ *sod-ap*
+ (argument-name parm-n)))
+ (deliver-expr codegen target call)
+ (emit-inst codegen
+ (make-va-end-inst *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.