Skip to content
Snippets Groups Projects
Commit f164e8a8 authored by ram's avatar ram
Browse files

Inline expand %MAKE-ALIEN and FREE-ALIEN to avoid spurious Alien-value consing.

parent 721b1f21
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/code/alieneval.lisp,v 1.25 1992/03/10 12:52:31 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.26 1992/05/14 23:17:06 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1472,6 +1472,7 @@ ...@@ -1472,6 +1472,7 @@
;;; Allocate a block of memory at least BITS bits long and return a system ;;; Allocate a block of memory at least BITS bits long and return a system
;;; area pointer to it. ;;; area pointer to it.
;;; ;;;
(declaim (inline %make-alien))
(defun %make-alien (bits) (defun %make-alien (bits)
(declare (type kernel:index bits) (optimize-interface (safety 2))) (declare (type kernel:index bits) (optimize-interface (safety 2)))
(alien-funcall (extern-alien "malloc" (function system-area-pointer unsigned)) (alien-funcall (extern-alien "malloc" (function system-area-pointer unsigned))
...@@ -1479,6 +1480,7 @@ ...@@ -1479,6 +1480,7 @@
;;; FREE-ALIEN -- public ;;; FREE-ALIEN -- public
;;; ;;;
(declaim (inline free-alien))
(defun free-alien (alien) (defun free-alien (alien)
"Dispose of the storage pointed to by ALIEN. ALIEN must have been allocated "Dispose of the storage pointed to by ALIEN. ALIEN must have been allocated
by MAKE-ALIEN or ``malloc''." by MAKE-ALIEN or ``malloc''."
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment