From: dias@eecs.tufts.edu <unknown>
Date: Fri, 3 Apr 2009 20:15:04 +0000 (+0000)
Subject: Debugging by Sesame Street:
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=dc9db2a839c7d05f119146a6294768e18efc04d6

Debugging by Sesame Street:

One of these things is not like the others:

stdPattern :: [LRep] -> Maybe StgHalfWord
stdPattern reps
  = case reps of
        []  -> Just ARG_NONE    -- just void args, probably
        [N] -> Just ARG_N
        [P] -> Just ARG_N
        [F] -> Just ARG_F
        [D] -> Just ARG_D
        [L] -> Just ARG_L

Today's debugging session was brought to you by the letter P.
---

diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs
index 8c7c434..9e7263c 100644
--- a/compiler/codeGen/StgCmmLayout.hs
+++ b/compiler/codeGen/StgCmmLayout.hs
@@ -350,7 +350,7 @@ stdPattern reps
   = case reps of
 	[]  -> Just ARG_NONE	-- just void args, probably
 	[N] -> Just ARG_N
-	[P] -> Just ARG_N
+	[P] -> Just ARG_P
 	[F] -> Just ARG_F
 	[D] -> Just ARG_D
 	[L] -> Just ARG_L