From: wolfgang <unknown>
Date: Sat, 7 May 2005 17:28:05 +0000 (+0000)
Subject: [project @ 2005-05-07 17:28:05 by wolfgang]
X-Git-Tag: Initial_conversion_from_CVS_complete~589
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=081dc0d925833f120fba56424513c9ae38192793;p=ghc-hetmet.git

[project @ 2005-05-07 17:28:05 by wolfgang]
GCC 4.0 Fix: Do not emit lvalue casts for foreign calls.

Note: This fix might break cmm code that directly assigns the result
      of a foreign call to a "strange type" register (but we don't do that).

MERGE TO STABLE
---

diff --git a/ghc/compiler/cmm/PprC.hs b/ghc/compiler/cmm/PprC.hs
index 7804fb6..1cb5366 100644
--- a/ghc/compiler/cmm/PprC.hs
+++ b/ghc/compiler/cmm/PprC.hs
@@ -701,7 +701,7 @@ pprCall ppr_fn cconv results args vols
   where 
      ppr_results []     = empty
      ppr_results [(one,hint)] 
-	 = pprExpr (CmmReg one) <> ptext SLIT(" = ")
+	 = pprReg one <> ptext SLIT(" = ")
 		 <> pprUnHint hint (cmmRegRep one)
      ppr_results _other = panic "pprCall: multiple results"