From 69a527e39d08c77545742a3b2887331d8af29f95 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 21 May 1992 03:04:48 +0000 Subject: [PATCH] Missed adding the vop arg to a call to default-unknown-values. --- compiler/sparc/call.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/sparc/call.lisp b/compiler/sparc/call.lisp index 89f727049..70f15655c 100644 --- a/compiler/sparc/call.lisp +++ b/compiler/sparc/call.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.14 1992/05/21 02:20:39 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.15 1992/05/21 03:04:48 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -832,7 +832,8 @@ default-value-8 ,@(ecase return (:fixed '((emit-return-pc lra-label) - (default-unknown-values values nvals move-temp temp lra-label) + (default-unknown-values vop values nvals move-temp + temp lra-label) (when cur-nfp (load-stack-tn cur-nfp nfp-save)))) (:unknown -- GitLab