[project @ 2000-01-14 14:57:08 by sewardj]

checkCode: handle HP_CHK_UT_ALT.

diff --git a/ghc/compiler/nativeGen/StixMacro.lhs b/ghc/compiler/nativeGen/StixMacro.lhs
index 5ff2ea1..02fef7f 100644 (file)
--- 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}