Commit 5698fe5f authored by simonmar's avatar simonmar
Browse files

[project @ 2005-04-23 22:02:31 by simonmar]

Fix comment
parent b591f92e
......@@ -89,7 +89,7 @@ make_constr_itbls cons
mk_itbl dcon conNo entry_addr
= let rep_args = [ (typeCgRep arg,arg)
| arg <- dataConRepArgTys dcon ]
(tot_wds, ptr_wds, _) = mkVirtHeapOffsets False {- TODO: WILD GUESS!!! -} rep_args
(tot_wds, ptr_wds, _) = mkVirtHeapOffsets False{-not a THUNK-} rep_args
ptrs = ptr_wds
nptrs = tot_wds - ptr_wds
......
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