projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.13.47:
[sbcl.git]
/
src
/
compiler
/
codegen.lisp
diff --git
a/src/compiler/codegen.lisp
b/src/compiler/codegen.lisp
index
3b51f49
..
7a17680
100644
(file)
--- a/
src/compiler/codegen.lisp
+++ b/
src/compiler/codegen.lisp
@@
-123,7
+123,7
@@
(*trace-table-info* nil)
(*prev-segment* nil)
(*prev-vop* nil)
(*trace-table-info* nil)
(*prev-segment* nil)
(*prev-vop* nil)
- (*fixups* nil))
+ (*fixup-notes* nil))
(let ((label (sb!assem:gen-label)))
(setf *elsewhere-label* label)
(sb!assem:assemble (*elsewhere*)
(let ((label (sb!assem:gen-label)))
(setf *elsewhere-label* label)
(sb!assem:assemble (*elsewhere*)
@@
-153,7
+153,7
@@
(setf *elsewhere* nil)
(values (sb!assem:finalize-segment *code-segment*)
(nreverse *trace-table-info*)
(setf *elsewhere* nil)
(values (sb!assem:finalize-segment *code-segment*)
(nreverse *trace-table-info*)
- *fixups*)))
+ *fixup-notes*)))
(defun emit-label-elsewhere (label)
(sb!assem:assemble (*elsewhere*)
(defun emit-label-elsewhere (label)
(sb!assem:assemble (*elsewhere*)