Skip to content
Snippets Groups Projects
Commit 2a2c11b2 authored by ram's avatar ram
Browse files

Added :SCS (DESCRIPTOR-REG) to the more operand of full-call VOPs

for representation selection's benefit.
parent 8e215eb9
No related branches found
No related tags found
No related merge requests found
...@@ -662,7 +662,7 @@ default-value-5 ...@@ -662,7 +662,7 @@ default-value-5
(return-pc :scs (descriptor-reg control-stack) (return-pc :scs (descriptor-reg control-stack)
:target return-pc-pass))) :target return-pc-pass)))
,@(unless variable '((args :more t)))) ,@(unless variable '((args :more t :scs (descriptor-reg)))))
,@(when (eq return :fixed) ,@(when (eq return :fixed)
'((:results (values :more t)))) '((:results (values :more t))))
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.5 1991/05/16 16:07:40 ram Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.6 1991/11/08 15:22:10 ram Exp $
;;; ;;;
;;; This file contains the VM definition of function call for the SPARC. ;;; This file contains the VM definition of function call for the SPARC.
;;; ;;;
...@@ -654,7 +654,7 @@ default-value-8 ...@@ -654,7 +654,7 @@ default-value-8
'((old-fp :target old-fp-pass) '((old-fp :target old-fp-pass)
(return-pc :target return-pc-pass))) (return-pc :target return-pc-pass)))
,@(unless variable '((args :more t)))) ,@(unless variable '((args :more t :scs (descriptor-reg)))))
,@(when (eq return :fixed) ,@(when (eq return :fixed)
'((:results (values :more t)))) '((:results (values :more t))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment