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

Changed %raw-bits to 32 bits. Added 32-bit unsigned logical ops.

parent 7c15ceec
No related branches found
No related tags found
No related merge requests found
......@@ -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))
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