From be77347832ff75aefbe9ee23a6a93b212f14b2c0 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 16 Apr 1990 10:56:36 +0000
Subject: [PATCH] Merged non-descriptor changes: revision 1.2.1.1 date:
 90/04/08 22:35:45;  author: ram;  state: Exp;  lines added/del: 2/2 cont-tn
 -> fp-tn

---
 compiler/old-rt/assem-macs.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/old-rt/assem-macs.lisp b/compiler/old-rt/assem-macs.lisp
index ee457222d..aa9b9a198 100644
--- a/compiler/old-rt/assem-macs.lisp
+++ b/compiler/old-rt/assem-macs.lisp
@@ -116,7 +116,7 @@
        ((any-reg descriptor-reg string-char-reg)
 	(sc-case ,n-stack
 	  ((stack string-char-stack)
-	   (loadw ,n-reg cont-tn (tn-offset ,n-stack))))))))
+	   (loadw ,n-reg fp-tn (tn-offset ,n-stack))))))))
 
 
 (defmacro store-stack-tn (stack reg)
@@ -126,7 +126,7 @@
        ((any-reg descriptor-reg string-char-reg)
 	(sc-case ,n-stack
 	  ((stack string-char-stack)
-	   (storew ,n-reg cont-tn (tn-offset ,n-stack))))))))
+	   (storew ,n-reg fp-tn (tn-offset ,n-stack))))))))
 
 
 
-- 
GitLab