From 023f179bdf8ab5ce96f449885b0fcb12a8202560 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 14 Jan 2000 14:57:08 +0000
Subject: [PATCH] [project @ 2000-01-14 14:57:08 by sewardj] checkCode: handle
 HP_CHK_UT_ALT.

---
 ghc/compiler/nativeGen/StixMacro.lhs |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/nativeGen/StixMacro.lhs b/ghc/compiler/nativeGen/StixMacro.lhs
index 5ff2ea1..02fef7f 100644
--- a/ghc/compiler/nativeGen/StixMacro.lhs
+++ b/ghc/compiler/nativeGen/StixMacro.lhs
@@ -260,7 +260,9 @@ checkCode macro args assts
 			    assts (gc_d1 : join : xs))
 
 	HP_CHK_UT_ALT  -> 
-		error "unimplemented check"
+                let [words,ptrs,nonptrs,r,ret] = args_stix
+                in (\xs -> assign_hp words : cjmp_hp :
+                           assts (assign_ret r ret : gc_ut ptrs nonptrs : join : xs))
 
 	HP_CHK_GEN     -> 
 		error "unimplemented check"
@@ -276,4 +278,7 @@ gc_unbx_r1         = StJump (StLitLbl (ptext SLIT("stg_gc_unbx_r1")))
 gc_f1              = StJump (StLitLbl (ptext SLIT("stg_gc_f1")))
 gc_d1              = StJump (StLitLbl (ptext SLIT("stg_gc_d1")))
 
+gc_ut (StInt p) (StInt np)
+                   = StJump (StLitLbl (ptext SLIT("stg_gc_ut_") <> int (fromInteger p) 
+                                       <> char '_' <> int (fromInteger np)))
 \end{code}
-- 
1.7.10.4