From 45f00b6cf293a3744463986189b418073d9a93ab Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 23 May 1990 06:07:34 +0000 Subject: [PATCH] Added defknowns for the four bit copying routines: bit-bash-copy, copy-to-system-area, copy-from-system-area, and system-area-copy. --- compiler/generic/vm-fndb.lisp | 27 ++++++++++++++++++++++++++- 1 file changed, 26 insertions(+), 1 deletion(-) diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp index cc4568d3c..7ec7727c8 100644 --- a/compiler/generic/vm-fndb.lisp +++ b/compiler/generic/vm-fndb.lisp @@ -7,7 +7,7 @@ ;;; 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. ;;; @@ -129,3 +129,28 @@ (defknown (bignum::%ashl bignum::%ashr) (bignum-element-type (mod 32)) bignum-element-type (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 + ()) -- GitLab