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