projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
636c275
)
Fix build on FreeBSD; patch from Gabor PALI
author
Ian Lynagh
<igloo@earth.li>
Wed, 19 May 2010 14:05:52 +0000
(14:05 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Wed, 19 May 2010 14:05:52 +0000
(14:05 +0000)
rts/Linker.c
patch
|
blob
|
history
diff --git
a/rts/Linker.c
b/rts/Linker.c
index
07b2796
..
9833b31
100644
(file)
--- a/
rts/Linker.c
+++ b/
rts/Linker.c
@@
-1230,11
+1230,12
@@
static OpenedDLL* opened_dlls = NULL;
# if defined(OBJFORMAT_ELF) || defined(OBJFORMAT_MACHO)
# if defined(OBJFORMAT_ELF) || defined(OBJFORMAT_MACHO)
-static char *
+static const char *
internal_dlopen(const char *dll_name)
{
void *hdl;
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
// 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];
#define NMATCH 5
regmatch_t match[NMATCH];
- char *errmsg;
+ const char *errmsg;
FILE* fp;
size_t match_length;
#define MAXLINE 1000
FILE* fp;
size_t match_length;
#define MAXLINE 1000