From 37daf6d4c61947c6045d77bd7d1fac28cfbd6bee Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 21 Apr 1991 19:52:56 +0000
Subject: [PATCH] Fixed make-call-out-argument-tns to return the number of
 bytes needed for the stack because bytes is what allocate-number-stack-space
 wants.

---
 compiler/rt/c-call.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/rt/c-call.lisp b/compiler/rt/c-call.lisp
index 11e959b48..7bd6edbe1 100644
--- a/compiler/rt/c-call.lisp
+++ b/compiler/rt/c-call.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/c-call.lisp,v 1.2 1991/04/20 17:03:50 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/c-call.lisp,v 1.3 1991/04/21 19:52:56 wlott Exp $
 ;;;
 ;;; This file contains the VOPs and other necessary machine specific support
 ;;; routines for call-out to C.
@@ -49,7 +49,7 @@
 	  (tns (c-call-wired-tn ptype stack-sc nargs))
 	  (incf nargs)))
       (values (tns)
-	      (logandc2 (1+ nargs) 1)))))
+	      (* nargs word-bytes)))))
 
 (def-vm-support-routine make-call-out-result-tn (type)
   (let ((offset nl0-offset))
-- 
GitLab