steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.gc-decode.tests: tests for the troubles found in #1227

db4
Björn Lindqvist 2014-12-08 22:44:47 +01:00 committed by John Benediktsson
parent 971a157369
commit 5130954591
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
extra/tools/gc-decode/gc-decode-tests.factor
View File

@ -4,8 +4,11 @@ compiler.cfg.instructions compiler.cfg.stack-frame compiler.cfg.utilities
compiler.codegen.gc-maps generic kernel math namespaces random sequences compiler.codegen.gc-maps generic kernel math namespaces random sequences
sequences.generalizations slots.syntax tools.gc-decode tools.test vm vocabs sequences.generalizations slots.syntax tools.gc-decode tools.test vm vocabs
words compiler.cfg.linearization ; words compiler.cfg.linearization ;
QUALIFIED: cpu.x86.features.private
QUALIFIED: crypto.aes.utils
QUALIFIED: effects QUALIFIED: effects
QUALIFIED: llvm.types QUALIFIED: llvm.types
QUALIFIED: opencl
IN: tools.gc-decode.tests IN: tools.gc-decode.tests
! byte-array>bit-array ! byte-array>bit-array
@ -73,12 +76,6 @@ IN: tools.gc-decode.tests
[ struct-slot-values = ] [ struct-slot-values = ]
[ [ not ] dip return-address-count>> 0 = and ] 2bi or ; [ [ not ] dip return-address-count>> 0 = and ] 2bi or ;
! One of the few words that has derived roots.
{ t } [
\ llvm.types:resolve-types
[ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info?
] unit-test
! Do it also for a bunch of random words ! Do it also for a bunch of random words
: normal? ( word -- ? ) : normal? ( word -- ? )
{ [ generic? ] [ primitive? ] [ inline? ] [ no-compile? ] } 1|| not ; { [ generic? ] [ primitive? ] [ inline? ] [ no-compile? ] } 1|| not ;
@ -103,3 +100,24 @@ IN: tools.gc-decode.tests
\ llvm.types:resolve-types \ llvm.types:resolve-types
[ base-pointer-groups-expected ] [ base-pointer-groups-decoded ] bi = [ base-pointer-groups-expected ] [ base-pointer-groups-decoded ] bi =
] unit-test ] 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?
] unit-test
{ t } [
\ crypto.aes.utils:bytes>words
[ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info?
] unit-test
{ t } [
\ cpu.x86.features.private:(sse-version)
[ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info?
] unit-test