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
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/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 @@ ...@@ -295,7 +295,8 @@
(when (and (consp entry) (when (and (consp entry)
(eq (car entry) kind) (eq (car entry) kind)
(eq (cdr entry) info)) (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)) (push-in tn-next res (ir2-component-constant-tns component))
res)) res))
......
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