From 3c4b57d9293d5beddcb87938e9de6abed4935a8f Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 20 Feb 1990 19:58:05 +0000
Subject: [PATCH] Changed reference to stack to control-stack and fixed random
 typos.

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

diff --git a/compiler/mips/values.lisp b/compiler/mips/values.lisp
index 545a9122d..71cbdc02d 100644
--- a/compiler/mips/values.lisp
+++ b/compiler/mips/values.lisp
@@ -51,12 +51,12 @@
       (let ((tn (tn-ref-tn val)))
 	(sc-case tn
 	  (descriptor-reg
-	   (st tn start-temp i))
-	  (stack
+	   (storew tn start-temp i))
+	  (control-stack
 	   (load-stack-tn temp tn)
-	   (st temp start-temp i)))))
+	   (storew temp start-temp i)))))
     (move start start-temp)
-    (inst ori count zero-tn nvals)))
+    (move count nvals)))
 
 
 ;;; Push a list of values on the stack, returning Start and Count as used in
-- 
GitLab