From 0738137069e820b53625c091cdcf903aae0dc5d3 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 27 Apr 1990 19:25:01 +0000
Subject: [PATCH] Changed %raw-bits to 32 bits.  Added 32-bit unsigned logical
 ops.

---
 compiler/generic/vm-fndb.lisp | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp
index 755530406..b218f2d28 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.2 1990/03/29 21:32:30 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.3 1990/04/27 19:25:01 wlott Exp $
 ;;;
 ;;; This file defines the machine specific function signatures.
 ;;;
@@ -38,8 +38,24 @@
   (foldable flushable))
 
 
-(defknown %raw-bits (t fixnum) (unsigned-byte 16)
+(defknown %raw-bits (t fixnum) (unsigned-byte 32)
   (foldable flushable))
-(defknown ((setf %raw-bits)) (t fixnum (unsigned-byte 16)) (unsigned-byte 16)
+(defknown ((setf %raw-bits)) (t fixnum (unsigned-byte 32)) (unsigned-byte 32)
   (unsafe))
 
+
+
+;;;; 32bit logical operations
+
+(defknown merge-bits ((unsigned-byte 5) (unsigned-byte 32) (unsigned-byte 32))
+  (unsigned-byte 32)
+  (foldable flushable movable))
+
+(defknown 32bit-logical-not ((unsigned-byte 32)) (unsigned-byte 32)
+  (foldable flushable movable))
+
+(defknown (32bit-logical-and 32bit-logical-or 32bit-logical-xor
+			     32bit-logical-nor)
+	  ((unsigned-byte 32) (unsigned-byte 32)) (unsigned-byte 32)
+  (foldable flushable movable))
+
-- 
GitLab