From: Ian Lynagh <igloo@earth.li>
Date: Wed, 19 May 2010 14:05:52 +0000 (+0000)
Subject: Fix build on FreeBSD; patch from Gabor PALI
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=3d982281f91ee40e20d03bd5c9607f032d9215a6

Fix build on FreeBSD; patch from Gabor PALI
---

diff --git a/rts/Linker.c b/rts/Linker.c
index 07b2796..9833b31 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1230,11 +1230,12 @@ static OpenedDLL* opened_dlls = NULL;
 
 #  if defined(OBJFORMAT_ELF) || defined(OBJFORMAT_MACHO)
 
-static char *
+static const char *
 internal_dlopen(const char *dll_name)
 {
    void *hdl;
-   char *errmsg, *errmsg_copy;
+   const char *errmsg;
+   char *errmsg_copy;
 
    // omitted: RTLD_NOW
    // see http://www.haskell.org/pipermail/cvs-ghc/2007-September/038570.html
@@ -1274,7 +1275,7 @@ addDLL( char *dll_name )
 
 #define NMATCH 5
    regmatch_t match[NMATCH];
-   char *errmsg;
+   const char *errmsg;
    FILE* fp;
    size_t match_length;
 #define MAXLINE 1000