Commit 0fd760c2 authored by simonmar's avatar simonmar
Browse files

[project @ 2002-04-02 12:22:37 by simonmar]

oops, accidentally committed some untested (and non-working) cleanups
in the last commit.  This commit fixes it up again.

(fixes the ByteCodeGen panic in GHCi on the HEAD)
parent 1dc6b07e
......@@ -643,9 +643,12 @@ schemeT d s p app
-- Case 2
| [arg1,arg2] <- args_r_to_l,
let isVoidRepAtom (_, AnnVar v) = VoidRep == typePrimRep (idType v)
let
isVoidRepAtom (_, AnnVar v) = typePrimRep (idType v) == VoidRep
isVoidRepAtom (_, AnnNote n e) = isVoidRepAtom e
in isVoidRepAtom arg2
isVoidRepAtom _ = False
in
isVoidRepAtom arg2
= --trace (if isSingleton args_r_to_l
-- then "schemeT: unboxed singleton"
-- else "schemeT: unboxed pair with Void first component") (
......
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