projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix a non-portable printf format
[ghc-hetmet.git]
/
rts
/
RtsUtils.c
diff --git
a/rts/RtsUtils.c
b/rts/RtsUtils.c
index
1953e1e
..
9021909
100644
(file)
--- a/
rts/RtsUtils.c
+++ b/
rts/RtsUtils.c
@@
-138,8
+138,8
@@
static void addAllocation(void *addr, size_t len) {
/* This doesn't actually help as we haven't looked at the flags
* at the time that it matters (while running constructors) */
IF_DEBUG(sanity,
/* This doesn't actually help as we haven't looked at the flags
* at the time that it matters (while running constructors) */
IF_DEBUG(sanity,
- debugBelch("Ignoring allocation %p %zd as allocs is NULL\n",
- addr, len);)
+ debugBelch("Ignoring allocation %p %d as allocs is NULL\n",
+ addr, (int)len);)
}
}
}
}
@@
-369,7
+369,7
@@
heapCheckFail( void )
* genericRaise(), rather than raise(3).
*/
int genericRaise(int sig) {
* genericRaise(), rather than raise(3).
*/
int genericRaise(int sig) {
-#if defined(THREADED_RTS) && (defined(openbsd_HOST_OS) || defined(freebsd_HOST_OS))
+#if defined(THREADED_RTS) && (defined(openbsd_HOST_OS) || defined(freebsd_HOST_OS) || defined(dragonfly_HOST_OS))
return pthread_kill(pthread_self(), sig);
#else
return raise(sig);
return pthread_kill(pthread_self(), sig);
#else
return raise(sig);