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

Fixed MAKE-LOAD-TIME-CONSTANT-TN to quit looking once it found an matching

constant, so that it actually uses the same constant slot for the same
value.
parent b9ce72b4
Branches
Tags
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/tn.lisp,v 1.15 1991/11/24 23:47:32 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/tn.lisp,v 1.16 1992/06/27 21:51:42 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -295,7 +295,8 @@
(when (and (consp entry)
(eq (car entry) kind)
(eq (cdr entry) info))
(setf (tn-offset res) i))))
(setf (tn-offset res) i)
(return))))
(push-in tn-next res (ir2-component-constant-tns component))
res))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment