X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=3735a2e558cd370597b7043a226e17cc6a48139f;hb=e235fc390df9b015216ebc62c9b9c9e1d40d586d;hp=26d671e6e9820c4cb0d6a97bd5ef8760c0ece728;hpb=b9110541efb85f9489b1f9a0c95445419e61d86d;p=ghc-hetmet.git

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
 }
 
 /* -----------------------------------------------------------------------------