From 202254a08735f1e1b0ba4cc518c6ddcbbe698b77 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 12 Sep 2014 12:07:26 -0700
Subject: [PATCH] tools.gc-decode: Fix unit tests for 32bit.

---
 extra/tools/gc-decode/gc-decode-tests.factor | 69 +++++++++++++-------
 1 file changed, 46 insertions(+), 23 deletions(-)

diff --git a/extra/tools/gc-decode/gc-decode-tests.factor b/extra/tools/gc-decode/gc-decode-tests.factor
index 16e609a63f..9463cfa018 100644
--- 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