tools.gc-decode: fix for 32-bit.

diff --git a/extra/tools/gc-decode/gc-decode-tests.factor b/extra/tools/gc-decode/gc-decode-tests.factor
index 8c432e2e711aa49c972e95fe899691f0e55340e2..49cc958f28a3099aefd5f6ab519cce3d1be44076 100644 (file)
--- a/extra/tools/gc-decode/gc-decode-tests.factor
+++ b/extra/tools/gc-decode/gc-decode-tests.factor
@@ -58,13 +58,13 @@ IN: tools.gc-decode.tests
             { -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 }
-        }
+            { -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 8 }
+            { -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 8 }
+            { -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 }
+        } ! 32-bit
     } member?
 ] unit-test
 
@@ -74,6 +74,6 @@ IN: tools.gc-decode.tests
     \ llvm.types:resolve-types word>gc-info
     {
         S{ gc-info f 0 2 2 1 6 7 6 } ! 64-bit
-        S{ gc-info f 0 2 2 1 10 11 6 } ! 32-bit
+        S{ gc-info f 0 2 2 1 9 12 6 } ! 32-bit
     } member?
 ] unit-test