From d65876021b559ce26b9ca4ebe8f23658112b622a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 23 Nov 2014 07:13:30 -0800
Subject: [PATCH] tools.gc-decode: fix for 64-bit.

---
 extra/tools/gc-decode/gc-decode-tests.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/extra/tools/gc-decode/gc-decode-tests.factor b/extra/tools/gc-decode/gc-decode-tests.factor
index 49cc958f28..b01229cee6 100644
--- a/extra/tools/gc-decode/gc-decode-tests.factor
+++ b/extra/tools/gc-decode/gc-decode-tests.factor
@@ -53,10 +53,10 @@ 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 5 }
-            { -1 -1 -1 -1 -1 -1 5 }
+            { -1 -1 -1 -1 -1 -1 4 }
+            { -1 -1 -1 -1 -1 -1 4 }
             { -1 -1 -1 -1 -1 -1 -1 }
-        }
+        } ! 64-bit
         {
             { -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 }
             { -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 }
@@ -73,7 +73,7 @@ IN: tools.gc-decode.tests
 { t } [
     \ 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 5 8 6 } ! 64-bit
         S{ gc-info f 0 2 2 1 9 12 6 } ! 32-bit
     } member?
 ] unit-test