QUALIFIED: crypto.aes.utils
QUALIFIED: effects
QUALIFIED: gml.coremath
-QUALIFIED: llvm.types
QUALIFIED: opencl
: normal? ( word -- ? )
[ [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info? ] reject
] unit-test
-! base-pointer-groups
-{ t } [
- \ llvm.types:resolve-types
- [ base-pointer-groups-expected ] [ base-pointer-groups-decoded ] bi =
-] unit-test
-
! Tough words #1227
-{ t } [
- \ llvm.types:resolve-types
- [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info?
-] unit-test
-
{ t } [
\ opencl:cl-queue-kernel
[ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info?