diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-10-19 10:11:29 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-10-19 10:11:29 +0000 |
| commit | 7cb0ffcb5a7e6f6ae4cce2adf61b3a3e78bbd78c (patch) | |
| tree | 59273b3edb41592f96e7d4ab0c2b2e328e9cb5d0 | |
| parent | 3633e894a07a1d198dfc964c51024853c2c96537 (diff) | |
| download | haskell-7cb0ffcb5a7e6f6ae4cce2adf61b3a3e78bbd78c.tar.gz | |
rename allocated_bytes() to allocatedBytes()
| -rw-r--r-- | includes/Storage.h | 4 | ||||
| -rw-r--r-- | rts/Storage.c | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/includes/Storage.h b/includes/Storage.h index 0b93378083..1346715ffb 100644 --- a/includes/Storage.h +++ b/includes/Storage.h @@ -137,7 +137,7 @@ extern void freeStorage(void); rtsBool doYouWantToGC(void) Returns True if the storage manager is ready to perform a GC, False otherwise. - lnat allocated_bytes(void) Returns the number of bytes allocated + lnat allocatedBytes(void) Returns the number of bytes allocated via allocate() since the last GC. Used in the reporting of statistics. @@ -148,7 +148,7 @@ extern void freeStorage(void); extern StgPtr allocate ( nat n ); extern StgPtr allocateLocal ( Capability *cap, nat n ); extern StgPtr allocatePinned ( nat n ); -extern lnat allocated_bytes ( void ); +extern lnat allocatedBytes ( void ); extern bdescr * RTS_VAR(small_alloc_list); extern bdescr * RTS_VAR(large_alloc_list); diff --git a/rts/Storage.c b/rts/Storage.c index 0c9c60e580..a657ce8d3e 100644 --- a/rts/Storage.c +++ b/rts/Storage.c @@ -615,7 +615,7 @@ allocate( nat n ) } lnat -allocated_bytes( void ) +allocatedBytes( void ) { lnat allocated; @@ -874,7 +874,7 @@ calcAllocated( void ) nat allocated; bdescr *bd; - allocated = allocated_bytes(); + allocated = allocatedBytes(); allocated += countNurseryBlocks() * BLOCK_SIZE_W; { |