Skip to content
Snippets Groups Projects
Commit fbb4bad4 authored by wlott's avatar wlott
Browse files

Fixed note-next-instruction to emit the debug-location on the original

pass, and just fill in the position in the back-patch instead of emitting
the debug-location itself during the back-patch.  Otherwise, the
debug-locations end up out of order.
parent 8ae269de
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/vmdef.lisp,v 1.44 1992/08/03 12:36:24 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/vmdef.lisp,v 1.45 1992/08/03 19:06:50 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -2456,6 +2456,8 @@ ...@@ -2456,6 +2456,8 @@
Similar to NOTE-THIS-LOCATION, except the use the location of the next Similar to NOTE-THIS-LOCATION, except the use the location of the next
instruction for the code location, wherever the scheduler decided to put instruction for the code location, wherever the scheduler decided to put
it." it."
(new-assem:emit-postit #'(lambda (segment posn) (let ((loc (note-debug-location vop nil kind)))
(declare (ignore segment)) (new-assem:emit-postit #'(lambda (segment posn)
(note-debug-location vop posn kind)))) (declare (ignore segment))
(setf (location-info-label loc) posn))))
(undefined-value))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment