From 048ed1e5fd0743ad58cf7467514311822046b350 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 23 Nov 2014 07:12:10 -0800
Subject: [PATCH] tools.gc-decode: fix for 32-bit.
---
extra/tools/gc-decode/gc-decode-tests.factor | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/extra/tools/gc-decode/gc-decode-tests.factor b/extra/tools/gc-decode/gc-decode-tests.factor
index 8c432e2e71..49cc958f28 100644
--- 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