stgReallocBytes(DEBUG): don't fail when the ptr passed in is NULL

diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c
index eee7594..e9da59f 100644 (file)
--- a/rts/RtsUtils.c
+++ b/rts/RtsUtils.c
@@ -219,7 +219,7 @@ stgReallocBytes (void *p, int n, char *msg)
       stg_exit(EXIT_INTERNAL_ERROR);
     }
 #if defined(DEBUG)
-    removeAllocation(p, 0);
+    if (p != NULL) { removeAllocation(p, 0); }
     addAllocation(space, n2);
 #endif
     return space;