From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 8 Sep 2008 14:24:14 +0000 (+0000)
Subject: FIX BUILD on non-Windows
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=55565d647cf2f0944f9254b319e8e233a5f532d8;hp=f34f333be856e8437e232fa413a284752c0ca83a;p=ghc-hetmet.git

FIX BUILD on non-Windows
---

diff --git a/rts/Linker.c b/rts/Linker.c
index 26d671e..3735a2e 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1091,16 +1091,17 @@ addDLL( char *dll_name )
    opened_dlls     = o_dll;
 
    return NULL;
-#  else
-   barf("addDLL: not implemented on this platform");
-#  endif
 
 error:
    stgFree(buf);
    sysErrorBelch(dll_name);
-               
+
    /* LoadLibrary failed; return a ptr to the error msg. */
    return "addDLL: could not load DLL";
+
+#  else
+   barf("addDLL: not implemented on this platform");
+#  endif
 }
 
 /* -----------------------------------------------------------------------------