From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 19 Oct 2006 10:11:29 +0000 (+0000)
Subject: rename allocated_bytes() to allocatedBytes()
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7cb0ffcb5a7e6f6ae4cce2adf61b3a3e78bbd78c;p=ghc-hetmet.git

rename allocated_bytes() to allocatedBytes()
---

diff --git a/includes/Storage.h b/includes/Storage.h
index 0b93378..1346715 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 0c9c60e..a657ce8 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;
   
   {