Skip to content
Snippets Groups Projects
Commit 45f00b6c authored by wlott's avatar wlott
Browse files

Added defknowns for the four bit copying routines: bit-bash-copy,

copy-to-system-area, copy-from-system-area, and system-area-copy.
parent 744855a4
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.6 1990/05/14 01:59:03 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.7 1990/05/23 06:07:34 wlott Exp $
;;; ;;;
;;; This file defines the machine specific function signatures. ;;; This file defines the machine specific function signatures.
;;; ;;;
...@@ -129,3 +129,28 @@ ...@@ -129,3 +129,28 @@
(defknown (bignum::%ashl bignum::%ashr) (defknown (bignum::%ashl bignum::%ashr)
(bignum-element-type (mod 32)) bignum-element-type (bignum-element-type (mod 32)) bignum-element-type
(foldable flushable movable)) (foldable flushable movable))
;;;; Bit-bashing routines.
(defknown copy-to-system-area
((simple-unboxed-array (*)) index system-area-pointer index index)
null
())
(defknown copy-from-system-area
(system-area-pointer index (simple-unboxed-array (*)) index index)
null
())
(defknown system-area-copy
(system-area-pointer index system-area-pointer index index)
null
())
(defknown bit-bash-copy
((simple-unboxed-array (*)) index
(simple-unboxed-array (*)) index index)
null
())
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