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