From: Nikodemus Siivola Date: Sat, 16 May 2009 11:26:36 +0000 (+0000) Subject: 1.0.28.50: better source locations for failure-to-stack-allocate notes X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=4587c7fe254c3abf45ad0255b94b3a0f78f0046e;p=sbcl.git 1.0.28.50: better source locations for failure-to-stack-allocate notes --- diff --git a/src/compiler/physenvanal.lisp b/src/compiler/physenvanal.lisp index ee3874e..e43bf9e 100644 --- a/src/compiler/physenvanal.lisp +++ b/src/compiler/physenvanal.lisp @@ -342,8 +342,9 @@ (t (do-uses (use lvar) (unless (ref-p use) - (compiler-notify "could not stack allocate the result of ~S" - (find-original-source (node-source-path use))))) + (let ((*compiler-error-context* use)) + (compiler-notify "could not stack allocate the result of ~S" + (find-original-source (node-source-path use)))))) (setf (lvar-dynamic-extent lvar) nil))))) (node ; DX closure (let* ((call what) diff --git a/version.lisp-expr b/version.lisp-expr index b311c6b..ba90147 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.28.49" +"1.0.28.50"