Skip to content
Snippets Groups Projects
Commit 6b01fec5 authored by cwang's avatar cwang
Browse files

Fix dynamic extent allocation

parent d4eef541
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/macros.lisp,v 1.1 2004/05/24 22:35:00 cwang Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/macros.lisp,v 1.2 2004/06/10 01:39:53 cwang Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -234,9 +234,10 @@ ...@@ -234,9 +234,10 @@
;;; Allocate SIZE bytes from the stack, storing a pointer to the ;;; Allocate SIZE bytes from the stack, storing a pointer to the
;;; allocated memory in ALLOC-TN. ;;; allocated memory in ALLOC-TN.
;;; ;;;
(defun dynamic-extent-allocation (alloc-tn nbytes) (defun dynamic-extent-allocation (alloc-tn nbytes temp-tn)
(inst sub rsp-tn nbytes) (inst sub rsp-tn nbytes)
(inst and rsp-tn #xfffffffffffffff0) ; alignment (inst mov temp-tn #xfffffffffffffff0)
(inst and rsp-tn temp-tn) ; alignment
(inst mov alloc-tn rsp-tn) (inst mov alloc-tn rsp-tn)
(values)) (values))
...@@ -247,7 +248,7 @@ ...@@ -247,7 +248,7 @@
speed vs size decision. If Dynamic-Extent is true, and otherwise speed vs size decision. If Dynamic-Extent is true, and otherwise
appropriate, allocate from the stack." appropriate, allocate from the stack."
(cond (dynamic-extent (cond (dynamic-extent
(dynamic-extent-allocation alloc-tn size)) (dynamic-extent-allocation alloc-tn size temp-tn))
((and *maybe-use-inline-allocation* ((and *maybe-use-inline-allocation*
(or (null inline) (or (null inline)
(policy inline (>= speed space))) (policy inline (>= speed space)))
......
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