Commit 6a0b3f67 authored by sof's avatar sof
Browse files

[project @ 2001-11-09 18:40:52 by sof]

lookupInstEnv: "#ifdef DEBUG"-protect trace code
that got included in prev. commit.

(I'm guessing it either should be removed or moved
into the ASSERT, but I'll let the original committer
decide which).
parent 579b46fe
......@@ -286,9 +286,11 @@ lookupInstEnv env key_cls key_tys
Nothing -> find rest
Just _ -> NoMatch (any_match rest)
Just (subst, leftovers) -> ASSERT( null leftovers )
#ifdef DEBUG
pprTrace "lookupInst" (vcat [text "look:" <+> ppr key_cls <+> ppr key_tys,
text "found:" <+> ppr dfun_id,
text "env:" <+> ppr (classInstEnv env key_cls)]) $
#endif
FoundInst subst dfun_id
any_match rest = or [ maybeToBool (matchTys tvs tpl key_tys)
......
Markdown is supported
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