From cc31b821c13cca0d84bd6ff612dc049ed73cd2db Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 19 May 2000 11:53:05 +0000
Subject: [PATCH] [project @ 2000-05-19 11:53:05 by sewardj] Fix sparc
 breakage caused by recent (DLLery) NCG hackery.  :-)

---
 ghc/compiler/nativeGen/MachCode.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index f8fc8ac..d4195d7 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -2411,7 +2411,7 @@ genCCall fn cconv kind args
     -- ToDo:needed (WDP 96/03) ???
     fn__2 = case (_HEAD_ fn) of
 	      '.' -> ImmLit (ptext fn)
-	      _   -> ImmLab (ptext fn)
+	      _   -> ImmLab False (ptext fn)
 
     ------------------------------------
     {-  Try to get a value into a specific register (or registers) for
-- 
1.7.10.4