From: sof <unknown>
Date: Tue, 4 Jun 2002 18:09:00 +0000 (+0000)
Subject: [project @ 2002-06-04 18:09:00 by sof]
X-Git-Tag: Approx_11550_changesets_converted~1993
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4d79f5b94dd64b124370fba5823d723f8d7044e4;p=ghc-hetmet.git

[project @ 2002-06-04 18:09:00 by sof]
loadDynamic: both mingw and cygwin slurp DLLs
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 9134440..162dfc2 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -#include "Linker.h" -#include "SchedAPI.h" #-}
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.124 2002/05/01 17:56:54 sof Exp $
+-- $Id: InteractiveUI.hs,v 1.125 2002/06/04 18:09:00 sof Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -1118,7 +1118,7 @@ locateOneObj (d:ds) lib
 -- ----------------------------------------------------------------------------
 -- Loading a dyanmic library (dlopen()-ish on Unix, LoadLibrary-ish on Win32)
 
-#ifdef mingw32_TARGET_OS
+#if defined(mingw32_TARGET_OS) || defined(cygwin32_TARGET_OS)
 loadDynamic paths rootname = addDLL rootname
   -- ignore paths on windows (why? --SDM)