/[cmucl]/src/compiler/locall.lisp
ViewVC logotype

Diff of /src/compiler/locall.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.58 by rtoy, Tue Oct 25 21:14:14 2005 UTC revision 1.59 by rtoy, Tue Oct 2 15:21:26 2007 UTC
# Line 1049  Line 1049 
1049  ;;; -- There is a change in the cleanup between the call in the return, so we  ;;; -- There is a change in the cleanup between the call in the return, so we
1050  ;;;    might need to introduce cleanup code.  ;;;    might need to introduce cleanup code.
1051  ;;;  ;;;
1052    ;;;    If the the function is declared notinline, we don't convert the tail
1053    ;;; call either, so that we can trace the local call, if desired.
1054  (defun maybe-convert-tail-local-call (call)  (defun maybe-convert-tail-local-call (call)
1055    (declare (type combination call))    (declare (type combination call))
1056    (let ((return (continuation-dest (node-cont call))))    (let ((return (continuation-dest (node-cont call))))
# Line 1057  Line 1059 
1059                 (immediately-used-p (return-result return) call)                 (immediately-used-p (return-result return) call)
1060                 (not (eq (functional-kind (node-home-lambda call))                 (not (eq (functional-kind (node-home-lambda call))
1061                          :external))                          :external))
1062                   (not (functional-inlinep (node-home-lambda call)))
1063                 (only-harmless-cleanups (node-block call)                 (only-harmless-cleanups (node-block call)
1064                                         (node-block return)))                                         (node-block return)))
1065        (node-ends-block call)        (node-ends-block call)

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

  ViewVC Help
Powered by ViewVC 1.1.5