diff options
-rw-r--r-- | rts/RtsUtils.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c index eee7594143..e9da59f545 100644 --- 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; |