diff --git a/compiler/old-rt/assem-macs.lisp b/compiler/old-rt/assem-macs.lisp index ee457222d289c5122ad1a5462c6ff187fb3c5392..aa9b9a198a120e4bd69033b87b28f20764d0c6d6 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))))))))