From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 18 Jul 2015 15:51:26 +0000 (-0700)
Subject: Revert "tools.image-analyzer.gc-info: don't use unmaintained llvm."
X-Git-Tag: unmaintained~2383
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=3b3e349a9971d2ec7a47fa6736c94b433d206abe

Revert "tools.image-analyzer.gc-info: don't use unmaintained llvm."

This reverts commit 3ddfd9d92cbc82ad0ed1151b7f52ba27e6bd6663.
---

diff --git a/extra/tools/image-analyzer/gc-info/gc-info-tests.factor b/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
index a96bfc0f4f..d5a178ed99 100644
--- a/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
+++ b/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
@@ -11,6 +11,7 @@ QUALIFIED: cpu.x86.features.private
 QUALIFIED: crypto.aes.utils
 QUALIFIED: effects
 QUALIFIED: gml.coremath
+QUALIFIED: llvm.types
 QUALIFIED: opencl
 
 : normal? ( word -- ? )
@@ -85,7 +86,18 @@ QUALIFIED: opencl
     [ [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info? ] reject
 ] unit-test
 
+! base-pointer-groups
+{ t } [
+    \ llvm.types:resolve-types
+    [ base-pointer-groups-expected ] [ base-pointer-groups-decoded ] bi =
+] unit-test
+
 ! Tough words #1227
+{ t } [
+    \ llvm.types:resolve-types
+    [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info?
+] unit-test
+
 { t } [
     \ opencl:cl-queue-kernel
     [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info?