summaryrefslogtreecommitdiff
path: root/rts/RtsUtils.c
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2006-12-11 19:21:03 +0000
committerIan Lynagh <igloo@earth.li>2006-12-11 19:21:03 +0000
commitd6addf791a9a4131098354d6c59671b23c110be1 (patch)
tree72bb137ca6e54d08bcd709106a4573bcc9c641af /rts/RtsUtils.c
parentcf6b495d8f6d8f08fd6603c5ba2ec7a6acf7ac01 (diff)
downloadhaskell-d6addf791a9a4131098354d6c59671b23c110be1.tar.gz
Fix allocate name clash in the HEAD
Diffstat (limited to 'rts/RtsUtils.c')
-rw-r--r--rts/RtsUtils.c14
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);
}