Commit 023f179b authored by sewardj's avatar sewardj
Browse files

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

checkCode: handle HP_CHK_UT_ALT.
parent 7c192354
......@@ -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}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment