From: sof <unknown>
Date: Mon, 24 Mar 1997 06:03:28 +0000 (+0000)
Subject: [project @ 1997-03-24 06:03:28 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~724
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4e3eebb8179d89a4b5b42fee8f6e8f730af81dde;p=ghc-hetmet.git

[project @ 1997-03-24 06:03:28 by sof]
cygwin32 has leading underscores
---

diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs
index dd60a15..a3eb463 100644
--- a/ghc/compiler/nativeGen/MachMisc.lhs
+++ b/ghc/compiler/nativeGen/MachMisc.lhs
@@ -70,8 +70,10 @@ underscorePrefix
     ,{-else-} IF_ARCH_i386(
 	IF_OS_linuxaout(True
 	, IF_OS_freebsd(True
+	, IF_OS_cygwin32(True
 	, IF_OS_bsdi(True
 	, {-otherwise-} False)))
+        )
      ,{-else-}IF_ARCH_sparc(
 	IF_OS_sunos4(True, {-otherwise-} False)
      ,)))