From 3d982281f91ee40e20d03bd5c9607f032d9215a6 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 19 May 2010 14:05:52 +0000 Subject: [PATCH] Fix build on FreeBSD; patch from Gabor PALI --- rts/Linker.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 -- 1.7.10.4