1 USING: bit-arrays classes.struct tools.gc-decode tools.test ;
4 QUALIFIED: unix.process
5 IN: tools.gc-decode.tests
14 B{ 239 1 } byte-array>bit-array
17 { ?{ t t t t t t t t } } [ B{ 255 } byte-array>bit-array ] unit-test
21 ?{ t t t t f t t t t }
23 \ effects:<effect> word>gc-info scrub-bits
29 \ decode-gc-maps word>gc-info scrub-bits
35 { 151 { { ?{ t } ?{ t t t } ?{ f t t t t } } { } } }
38 \ effects:<effect> decode-gc-maps
43 { 82 { { ?{ t f f } ?{ t f } ?{ } } { } } }
44 { 244 { { ?{ t f f } ?{ f f } ?{ } } { } } }
45 { 522 { { ?{ t t f } ?{ t f } ?{ } } { } } }
48 \ unix.process:fork-process decode-gc-maps
53 \ decode-gc-maps decode-gc-maps
60 { -1 -1 -1 -1 -1 -1 -1 }
61 { -1 -1 -1 -1 -1 -1 -1 }
62 { -1 -1 -1 -1 -1 -1 5 }
63 { -1 -1 -1 -1 -1 -1 5 }
66 \ llvm.types:resolve-types word>gc-info base-pointer-groups
70 ! One of the few words that has derived roots.
72 S{ gc-info f 0 2 6 7 4 }
74 \ llvm.types:resolve-types word>gc-info