fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Antonio Linares
1999-10-22 06:31:25 +00:00
parent 964da8b34b
commit 6d8fcd61cf
1 changed files with 19 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
harbour/source/rtl/fm.c
View File

@@ -82,9 +82,11 @@ void * hb_xalloc( ULONG ulSize ) /* allocates fixed memory, returns NULL
#ifdef HB_FM_STATISTICS
s_ulMemoryConsumed += ulSize;
s_ulMemoryMaxConsumed += ulSize;
if( s_ulMemoryConsumed > s_ulMemoryMaxConsumed )
s_ulMemoryMaxConsumed = s_ulMemoryConsumed;
s_ulMemoryBlocks++;
s_ulMemoryMaxBlocks++;
if( s_ulMemoryBlocks > s_ulMemoryMaxBlocks )
s_ulMemoryMaxBlocks = s_ulMemoryBlocks;
#endif
return ( char * ) pMem + sizeof( ULONG );
@@ -107,9 +109,11 @@ void * hb_xgrab( ULONG ulSize ) /* allocates fixed memory, exits on fail
#ifdef HB_FM_STATISTICS
s_ulMemoryConsumed += ulSize;
s_ulMemoryMaxConsumed += ulSize;
if( s_ulMemoryConsumed > s_ulMemoryMaxConsumed )
s_ulMemoryMaxConsumed = s_ulMemoryConsumed;
s_ulMemoryBlocks++;
s_ulMemoryMaxBlocks++;
if( s_ulMemoryBlocks > s_ulMemoryMaxBlocks )
s_ulMemoryMaxBlocks = s_ulMemoryBlocks;
#endif
return ( char * ) pMem + sizeof( ULONG );
@@ -137,8 +141,8 @@ void * hb_xrealloc( void * pMem, ULONG ulSize ) /* reallocates memory */
s_ulMemoryBlocks--;
s_ulMemoryConsumed += ( ulSize - ulMemSize );
if( ulSize > ulMemSize )
s_ulMemoryMaxConsumed += ulSize - ulMemSize;
if( s_ulMemoryConsumed > s_ulMemoryMaxConsumed )
s_ulMemoryMaxConsumed = s_ulMemoryConsumed;
#endif
return ( char * ) pResult + sizeof( ULONG );
@@ -277,3 +281,12 @@ HARBOUR HB_MEMORY( void )
hb_retni( 9999 );
}
HARBOUR HB_MEMUSED()
{
hb_retnl( s_ulMemoryConsumed );
}
HARBOUR HB_MEMMAX()
{
hb_retnl( s_ulMemoryMaxConsumed );
}