summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
243cffb)
It's not different from `entry-args'.
;; Effective method function details.
(emf-name (effective-method-function-name method))
(ilayout-type (c-type (* (struct (ilayout-struct-tag class)))))
;; Effective method function details.
(emf-name (effective-method-function-name method))
(ilayout-type (c-type (* (struct (ilayout-struct-tag class)))))
- (emf-arg-tail (sod-message-no-varargs-tail message))
(emf-type (c-type (fun (lisp return-type)
("sod__obj" (lisp ilayout-type))
(emf-type (c-type (fun (lisp return-type)
("sod__obj" (lisp ilayout-type))
(flet ((setup-entry (tail)
(let ((head (sod-class-chain-head tail)))
(flet ((setup-entry (tail)
(let ((head (sod-class-chain-head tail)))
(effective-method-class method))
(let ((call (apply #'make-call-inst emf-name "sod__obj"
(effective-method-class method))
(let ((call (apply #'make-call-inst emf-name "sod__obj"
- (mapcar #'argument-name emf-arg-tail))))
+ (mapcar #'argument-name entry-args))))
(dolist (tail chain-tails)
(setup-entry tail)
(deliver-expr codegen entry-target call)
(dolist (tail chain-tails)
(setup-entry tail)
(deliver-expr codegen entry-target call)