From: sewardj Date: Fri, 19 May 2000 11:53:05 +0000 (+0000) Subject: [project @ 2000-05-19 11:53:05 by sewardj] X-Git-Tag: Approximately_9120_patches~4425 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cc31b821c13cca0d84bd6ff612dc049ed73cd2db;p=ghc-hetmet.git [project @ 2000-05-19 11:53:05 by sewardj] Fix sparc breakage caused by recent (DLLery) NCG hackery. :-) --- 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