Handle IND_STATIC in isRetainer

[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,
-                 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) {
-#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);