fix missing bitfield (#811)

This commit is contained in:
water111
2021-09-01 21:02:16 -04:00
committed by GitHub
parent 9b0480c50d
commit 4616f436f1
14 changed files with 94 additions and 52 deletions
+9 -9
View File
@@ -203,31 +203,31 @@
;; definition (debug) for function stream<-process-mask
(defun-debug stream<-process-mask ((arg0 object) (arg1 process-mask))
(let ((s4-0 arg1))
(if (= (logand #x1000000 s4-0) (process-mask death))
(if (= (logand (process-mask death) s4-0) (process-mask death))
(format arg0 "death ")
)
(if (= (logand #x800000 s4-0) (process-mask attackable))
(if (= (logand (process-mask attackable) s4-0) (process-mask attackable))
(format arg0 "attackable ")
)
(if (= (logand #x400000 s4-0) (process-mask projectile))
(if (= (logand (process-mask projectile) s4-0) (process-mask projectile))
(format arg0 "projectile ")
)
(if (= (logand #x200000 s4-0) (process-mask entity))
(if (= (logand (process-mask entity) s4-0) (process-mask entity))
(format arg0 "entity ")
)
(if (= (logand #x100000 s4-0) (process-mask ambient))
(if (= (logand (process-mask ambient) s4-0) (process-mask ambient))
(format arg0 "ambient ")
)
(if (= (logand #x80000 s4-0) (process-mask platform))
(if (= (logand (process-mask platform) s4-0) (process-mask platform))
(format arg0 "platform ")
)
(if (= (logand #x40000 s4-0) (process-mask camera))
(if (= (logand (process-mask camera) s4-0) (process-mask camera))
(format arg0 "camera ")
)
(if (= (logand #x20000 s4-0) (process-mask enemy))
(if (= (logand (process-mask enemy) s4-0) (process-mask enemy))
(format arg0 "enemy ")
)
(if (= (logand #x10000 s4-0) (process-mask collectable))
(if (= (logand (process-mask collectable) s4-0) (process-mask collectable))
(format arg0 "collectable ")
)
(if (= (logand s4-0 (process-mask crate)) (process-mask crate))