From: simonmar <unknown>
Date: Tue, 21 Nov 2000 10:46:01 +0000 (+0000)
Subject: [project @ 2000-11-21 10:46:01 by simonmar]
X-Git-Tag: Approximately_9120_patches~3290
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fac3069a73e0fc42303769f6938e92dab156d3b0;p=ghc-hetmet.git

[project @ 2000-11-21 10:46:01 by simonmar]
fix some cut-n-pastos
---

diff --git a/ghc/compiler/ghci/StgInterp.lhs b/ghc/compiler/ghci/StgInterp.lhs
index f0f74ba..44ddf69 100644
--- a/ghc/compiler/ghci/StgInterp.lhs
+++ b/ghc/compiler/ghci/StgInterp.lhs
@@ -597,8 +597,8 @@ evalP (VarP v) de
 -- always has pointer rep.
 evalP (AppIP e1 e2) de  = unsafeCoerce# (evalP e1 de) (evalI e2 de)
 evalP (AppPP e1 e2) de  = unsafeCoerce# (evalP e1 de) (evalP e2 de)
-evalP (AppFP e1 e2) de  = unsafeCoerce# (evalF e1 de) (evalI e2 de)
-evalP (AppDP e1 e2) de  = unsafeCoerce# (evalD e1 de) (evalP e2 de)
+evalP (AppFP e1 e2) de  = unsafeCoerce# (evalP e1 de) (evalF e2 de)
+evalP (AppDP e1 e2) de  = unsafeCoerce# (evalP e1 de) (evalD e2 de)
 
 -- Lambdas always return P-rep, but we need to do different things
 -- depending on both the argument and result representations.
@@ -924,7 +924,7 @@ repOf (LitD _)         = RepD
 
 repOf (Native _)       = RepP
 
-repOf (VarP _)         = RepI
+repOf (VarP _)         = RepP
 repOf (VarI _)         = RepI
 repOf (VarF _)         = RepF
 repOf (VarD _)         = RepD