Skip to content
Snippets Groups Projects
Commit 37daf6d4 authored by wlott's avatar wlott
Browse files

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.
parent 87c20586
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; 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 ;;; This file contains the VOPs and other necessary machine specific support
;;; routines for call-out to C. ;;; routines for call-out to C.
...@@ -49,7 +49,7 @@ ...@@ -49,7 +49,7 @@
(tns (c-call-wired-tn ptype stack-sc nargs)) (tns (c-call-wired-tn ptype stack-sc nargs))
(incf nargs))) (incf nargs)))
(values (tns) (values (tns)
(logandc2 (1+ nargs) 1))))) (* nargs word-bytes)))))
(def-vm-support-routine make-call-out-result-tn (type) (def-vm-support-routine make-call-out-result-tn (type)
(let ((offset nl0-offset)) (let ((offset nl0-offset))
......
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