diff options
author | Ian Lynagh <igloo@earth.li> | 2006-12-11 19:21:03 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2006-12-11 19:21:03 +0000 |
commit | d6addf791a9a4131098354d6c59671b23c110be1 (patch) | |
tree | 72bb137ca6e54d08bcd709106a4573bcc9c641af /rts/RtsUtils.c | |
parent | cf6b495d8f6d8f08fd6603c5ba2ec7a6acf7ac01 (diff) | |
download | haskell-d6addf791a9a4131098354d6c59671b23c110be1.tar.gz |
Fix allocate name clash in the HEAD
Diffstat (limited to 'rts/RtsUtils.c')
-rw-r--r-- | rts/RtsUtils.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c index 9f50e3a770..a8efe7928e 100644 --- a/rts/RtsUtils.c +++ b/rts/RtsUtils.c @@ -91,7 +91,7 @@ shutdownAllocator(void) #endif } -static void allocate(void *addr, size_t len) { +static void addAllocation(void *addr, size_t len) { Allocated *a; size_t alloc_size; @@ -109,7 +109,7 @@ static void allocate(void *addr, size_t len) { RELEASE_LOCK(&allocator_mutex); } -static void deallocate(void *addr) { +static void removeAllocation(void *addr) { Allocated *prev, *a; if (addr == NULL) { @@ -151,7 +151,7 @@ stgMallocBytes (int n, char *msg) stg_exit(EXIT_INTERNAL_ERROR); } #if defined(DEBUG) - allocate(space, n2); + addAllocation(space, n2); #endif return space; } @@ -169,8 +169,8 @@ stgReallocBytes (void *p, int n, char *msg) stg_exit(EXIT_INTERNAL_ERROR); } #if defined(DEBUG) - deallocate(p); - allocate(space, n2); + removeAllocation(p); + addAllocation(space, n2); #endif return space; } @@ -186,7 +186,7 @@ stgCallocBytes (int n, int m, char *msg) stg_exit(EXIT_INTERNAL_ERROR); } #if defined(DEBUG) - allocate(space, (size_t) n * (size_t) m); + addAllocation(space, (size_t) n * (size_t) m); #endif return space; } @@ -198,7 +198,7 @@ void stgFree(void* p) { #if defined(DEBUG) - deallocate(p); + removeAllocation(p); #endif free(p); } |