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