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

Added interpreter stubs for 32bit-logical-{not,and,or,xor,nor}.

parent a5c406f5
No related branches found
No related tags found
No related merge requests found
......@@ -279,6 +279,24 @@
(merge-bits shift prev next))
;;; These are supported as primitives.
(defun 32bit-logical-not (x)
(32bit-logical-not x))
(defun 32bit-logical-and (x y)
(32bit-logical-and x y))
(defun 32bit-logical-or (x y)
(32bit-logical-or x y))
(defun 32bit-logical-xor (x y)
(32bit-logical-or x y))
(defun 32bit-logical-nor (x y)
(32bit-logical-nor x y))
;;; These are not supported as primitives.
(proclaim '(inline 32bit-logical-eqv 32bit-logical-nand 32bit-logical-andc1
......
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