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