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

diff --git a/extra/tools/gc-decode/gc-decode-tests.factor b/extra/tools/gc-decode/gc-decode-tests.factor
index 16e609a63f8a67f704a76f3c683228243e485925..9463cfa018b99c63c8fbea2059d9af3cc75a9d22 100644 (file)
--- a/extra/tools/gc-decode/gc-decode-tests.factor
+++ b/extra/tools/gc-decode/gc-decode-tests.factor
@@ -33,23 +33,37 @@ IN: tools.gc-decode.tests
 ] unit-test
 
 ! decode-gc-maps
-{
-    {
-        { 151 { { ?{ } ?{ t t t } ?{ } ?{ } ?{ f t t t t } } { } } }
-    }
-} [
+{ t } [
     \ 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
 
-{
-    {
-        { 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 } ?{ } } { } } }
-    }
-} [
+{ t } [
     \ 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
 
 ! read-gc-maps
@@ -58,17 +72,26 @@ IN: tools.gc-decode.tests
 ] unit-test
 
 ! 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 }
-    }
-} [
+{ t } [
     \ 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