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

tools.gc-decode: Fix unit tests for 32bit.

db4
Doug Coleman 2014-09-12 12:07:26 -07:00
parent e62370395e
commit 202254a087
1 changed files with 46 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,23 +33,37 @@ IN: tools.gc-decode.tests
] unit-test ] unit-test
! decode-gc-maps ! decode-gc-maps
{ { t } [
{
{ 151 { { ?{ } ?{ t t t } ?{ } ?{ } ?{ f t t t t } } { } } }
}
} [
\ effects:<effect> decode-gc-maps \ effects:<effect> decode-gc-maps
{
{
{ 151 { { ?{ } ?{ t t t } ?{ } ?{ } ?{ f t t t t } } { } } }
}
{
{ 124 { { ?{ } ?{ t t t } ?{ } ?{ } ?{ f f f f f t t t t } } { } } }
}
} member?
] unit-test ] unit-test
{ { t } [
{
{ 82 { { ?{ t f } ?{ t } ?{ f } ?{ f f } ?{ } } { } } }
{ 244 { { ?{ f f } ?{ f } ?{ f } ?{ t f } ?{ } } { } } }
{ 445 { { ?{ f f } ?{ f } ?{ t } ?{ t t } ?{ } } { } } }
{ 522 { { ?{ t t } ?{ f } ?{ f } ?{ t f } ?{ } } { } } }
}
} [
\ unix.process:fork-process decode-gc-maps \ unix.process:fork-process decode-gc-maps
{
{
{ 82 { { ?{ t f } ?{ t } ?{ f } ?{ f f } ?{ } } { } } }
{ 244 { { ?{ f f } ?{ f } ?{ f } ?{ t f } ?{ } } { } } }
{ 445 { { ?{ f f } ?{ f } ?{ t } ?{ t t } ?{ } } { } } }
{ 522 { { ?{ t t } ?{ f } ?{ f } ?{ t f } ?{ } } { } } }
}
{
{ 57 { { ?{ t f } ?{ t } ?{ f } ?{ f f } ?{ f f f f f f f } } { } } }
{ 90 { { ?{ t f } ?{ t } ?{ f } ?{ f f } ?{ f f f f f f t } } { } } }
{ 207 { { ?{ f f } ?{ f } ?{ f } ?{ t f } ?{ f f f f f f f } } { } } }
{ 231 { { ?{ f f } ?{ f } ?{ f } ?{ t f } ?{ f f f f f f f } } { } } }
{ 437 { { ?{ f f } ?{ f } ?{ t } ?{ t t } ?{ f f f f f f f } } { } } }
{ 495 { { ?{ t t } ?{ f } ?{ f } ?{ t f } ?{ f f f f f f f } } { } } }
{ 519 { { ?{ t t } ?{ f } ?{ f } ?{ t f } ?{ f f f f f f f } } { } } }
}
} member?
] unit-test ] unit-test
! read-gc-maps ! read-gc-maps
@ -58,17 +72,26 @@ IN: tools.gc-decode.tests
] unit-test ] unit-test
! base-pointer-groups ! base-pointer-groups
{ { t } [
{
{ -1 -1 -1 -1 -1 -1 -1 }
{ -1 -1 -1 -1 -1 -1 -1 }
{ -1 -1 -1 -1 -1 -1 -1 }
{ -1 -1 -1 -1 -1 -1 5 }
{ -1 -1 -1 -1 -1 -1 5 }
{ -1 -1 -1 -1 -1 -1 -1 }
}
} [
\ llvm.types:resolve-types word>gc-info base-pointer-groups \ llvm.types:resolve-types word>gc-info base-pointer-groups
{
{
{ -1 -1 -1 -1 -1 -1 -1 }
{ -1 -1 -1 -1 -1 -1 -1 }
{ -1 -1 -1 -1 -1 -1 -1 }
{ -1 -1 -1 -1 -1 -1 5 }
{ -1 -1 -1 -1 -1 -1 5 }
{ -1 -1 -1 -1 -1 -1 -1 }
}
{
{ -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 }
{ -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 }
{ -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 }
{ -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 9 }
{ -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 9 }
{ -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 }
}
} member?
] unit-test ] unit-test