From eae082f43f6ed8ae280974036609871d57c59063 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 20 Jul 1990 00:42:03 +0000
Subject: [PATCH] Changed call-out to correspond to the new convention. Allow
 alloc-number-stack-space to return its result in an any-reg.

---
 compiler/mips/subprim.lisp | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/compiler/mips/subprim.lisp b/compiler/mips/subprim.lisp
index 305dcca80..a24847b1d 100644
--- a/compiler/mips/subprim.lisp
+++ b/compiler/mips/subprim.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/subprim.lisp,v 1.16 1990/07/03 06:31:15 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/subprim.lisp,v 1.17 1990/07/20 00:42:03 wlott Exp $
 ;;;
 ;;;    Linkage information for standard static functions, and random vops.
 ;;;
@@ -70,11 +70,11 @@
 
 (define-vop (call-out)
   (:args (args :more t))
-  (:ignore args)
+  (:results (results :more t))
+  (:ignore args results)
   (:save-p t)
   (:info function)
-  (:results (result :scs (sap-reg signed-reg unsigned-reg)))
-  (:temporary (:sc any-reg :offset 2) v0)
+  (:temporary (:sc any-reg :offset 2 :to (:result 0)) v0)
   (:temporary (:sc any-reg :offset lra-offset) lra)
   (:temporary (:sc any-reg :offset code-offset) code)
   (:temporary (:scs (non-descriptor-reg)) temp)
@@ -95,13 +95,12 @@
       (emit-label lra-label)
       (inst lra-header-word)
       (when cur-nfp
-	(load-stack-tn cur-nfp nfp-save))
-      (move result v0))))
+	(load-stack-tn cur-nfp nfp-save)))))
 
 
 (define-vop (alloc-number-stack-space)
   (:info amount)
-  (:results (result :scs (sap-reg)))
+  (:results (result :scs (sap-reg any-reg)))
   (:generator 0
     (inst addu nsp-tn nsp-tn (- (logandc2 (+ amount 7) 7)))
     (move result nsp-tn)))
-- 
GitLab