From 3225cb661ef20c23dc984acb5848c91fc1d9ccf5 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 23 Feb 1990 20:22:52 +0000
Subject: [PATCH] Changed LOAD-CONSTANT-TN to use the new load-symbol macro.

---
 compiler/mips/move.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/mips/move.lisp b/compiler/mips/move.lisp
index 2d125987b..c9a325c28 100644
--- a/compiler/mips/move.lisp
+++ b/compiler/mips/move.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/move.lisp,v 1.6 1990/02/18 05:59:35 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/move.lisp,v 1.7 1990/02/23 20:22:52 wlott Exp $
 ;;;
 ;;;    This file contains the RT VM definition of operand loading/saving and
 ;;; the Move VOP.
@@ -39,7 +39,7 @@
 	   (null
 	    (move dest null-tn))
 	   (symbol
-	    (inst addi dest null-tn (initial-symbol-offset val)))
+	    (load-symbol dest val))
 	   (string-char
 	    (loadi dest (logior (ash (char-code val) type-bits)
 				character-type))))
-- 
GitLab