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