622 lines
17 KiB
C
622 lines
17 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* The Fixed Memory API
|
|
*
|
|
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version, with one exception:
|
|
*
|
|
* The exception is that if you link the Harbour Runtime Library (HRL)
|
|
* and/or the Harbour Virtual Machine (HVM) with other files to produce
|
|
* an executable, this does not by itself cause the resulting executable
|
|
* to be covered by the GNU General Public License. Your use of that
|
|
* executable is in no way restricted on account of linking the HRL
|
|
* and/or HVM code into it.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
|
|
* their web site at http://www.gnu.org/).
|
|
*
|
|
*/
|
|
|
|
/*
|
|
* The following parts are Copyright of the individual authors.
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* Copyright 1999 David G. Holm <dholm@jsd-llc.com>
|
|
* hb_xmemcpy()
|
|
* hb_xmemset()
|
|
*
|
|
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
|
|
* hb_xquery()
|
|
* HB_MEMORY()
|
|
*
|
|
* See doc/license.txt for licensing terms.
|
|
*
|
|
*/
|
|
|
|
/* NOTE: If you turn this on, the memory subsystem will collect information
|
|
about several statistical data about memory management, it will show
|
|
these on exit if memory seem to have leaked.
|
|
This should be normally turned off in a final release
|
|
[vszakats] */
|
|
#define HB_FM_STATISTICS
|
|
|
|
#define HB_OS_WIN_32_USED
|
|
|
|
#ifndef __MPW__
|
|
#include <malloc.h>
|
|
#endif
|
|
|
|
#include "hbapi.h"
|
|
#include "hbapierr.h"
|
|
#include "hbmemory.ch"
|
|
|
|
#if defined(HB_FM_STATISTICS) && !defined(HB_TR_LEVEL)
|
|
#define HB_TR_LEVEL HB_TR_ERROR
|
|
#endif
|
|
|
|
#ifdef HB_FM_STATISTICS
|
|
|
|
#define HB_MEMINFO_SIGNATURE 0x19730403
|
|
|
|
typedef struct _HB_MEMINFO
|
|
{
|
|
ULONG ulSignature;
|
|
ULONG ulSize;
|
|
USHORT uiProcLine;
|
|
char szProcName[ HB_SYMBOL_NAME_LEN + 1 ];
|
|
struct _HB_MEMINFO * pPrevBlock;
|
|
struct _HB_MEMINFO * pNextBlock;
|
|
} HB_MEMINFO, * PHB_MEMINFO;
|
|
|
|
static LONG s_lMemoryBlocks = 0; /* memory blocks used */
|
|
static LONG s_lMemoryMaxBlocks = 0; /* maximum number of used memory blocks */
|
|
static LONG s_lMemoryMaxConsumed = 0; /* memory size consumed */
|
|
static LONG s_lMemoryConsumed = 0; /* memory max size consumed */
|
|
|
|
static PHB_MEMINFO s_pFirstBlock = NULL;
|
|
static PHB_MEMINFO s_pLastBlock = NULL;
|
|
|
|
#endif
|
|
|
|
void * hb_xalloc( ULONG ulSize ) /* allocates fixed memory, returns NULL on failure */
|
|
{
|
|
#ifdef HB_FM_STATISTICS
|
|
|
|
void * pMem;
|
|
|
|
/* NOTE: we cannot use here HB_TRACE because it will overwrite the
|
|
* function name/line number of code which called hb_xalloc/hb_xgrab
|
|
*/
|
|
HB_TRACE_STEALTH(HB_TR_DEBUG, ("hb_xalloc(%lu)", ulSize));
|
|
|
|
pMem = malloc( ulSize + sizeof( HB_MEMINFO ) );
|
|
|
|
if( ! pMem )
|
|
return pMem;
|
|
|
|
if( ! s_pFirstBlock )
|
|
{
|
|
( ( PHB_MEMINFO ) pMem )->pPrevBlock = NULL;
|
|
s_pFirstBlock = ( PHB_MEMINFO ) pMem;
|
|
}
|
|
else
|
|
{
|
|
( ( PHB_MEMINFO ) pMem )->pPrevBlock = s_pLastBlock;
|
|
s_pLastBlock->pNextBlock = ( PHB_MEMINFO ) pMem;
|
|
}
|
|
s_pLastBlock = ( PHB_MEMINFO ) pMem;
|
|
( ( PHB_MEMINFO ) pMem )->pNextBlock = NULL;
|
|
|
|
( ( PHB_MEMINFO ) pMem )->ulSignature = HB_MEMINFO_SIGNATURE;
|
|
( ( PHB_MEMINFO ) pMem )->ulSize = ulSize; /* size of the memory block */
|
|
|
|
if( hb_tr_level() >= HB_TR_DEBUG )
|
|
{
|
|
/* NOTE: PRG line number/procname is not very useful during hunting
|
|
* for memory leaks - this is why we are using the previously stored
|
|
* function/line info - this is a location of code that called
|
|
* hb_xalloc/hb_xgrab
|
|
*/
|
|
( ( PHB_MEMINFO ) pMem )->uiProcLine = hb_tr_line_; /* C line number */
|
|
strcpy( ( ( PHB_MEMINFO ) pMem )->szProcName, hb_tr_file_ );
|
|
}
|
|
else
|
|
{
|
|
if( hb_stack.pItems && ( hb_stack.pBase != hb_stack.pItems ) )
|
|
{
|
|
( ( PHB_MEMINFO ) pMem )->uiProcLine = hb_stack.pBase->item.asSymbol.lineno; /* PRG line number */
|
|
strcpy( ( ( PHB_MEMINFO ) pMem )->szProcName,
|
|
hb_stack.pBase->item.asSymbol.value->szName ); /* PRG ProcName */
|
|
}
|
|
else
|
|
{
|
|
( ( PHB_MEMINFO ) pMem )->uiProcLine = 0; /* PRG line number */
|
|
( ( PHB_MEMINFO ) pMem )->szProcName[ 0 ] = '\0'; /* PRG ProcName */
|
|
}
|
|
}
|
|
|
|
s_lMemoryConsumed += ulSize;
|
|
if( s_lMemoryMaxConsumed < s_lMemoryConsumed )
|
|
s_lMemoryMaxConsumed = s_lMemoryConsumed;
|
|
s_lMemoryBlocks++;
|
|
if( s_lMemoryMaxBlocks < s_lMemoryBlocks )
|
|
s_lMemoryMaxBlocks = s_lMemoryBlocks;
|
|
|
|
return ( char * ) pMem + sizeof( HB_MEMINFO );
|
|
|
|
#else
|
|
|
|
HB_TRACE(HB_TR_DEBUG, ("hb_xalloc(%lu)", ulSize));
|
|
|
|
return malloc( ulSize );
|
|
|
|
#endif
|
|
}
|
|
|
|
void * hb_xgrab( ULONG ulSize ) /* allocates fixed memory, exits on failure */
|
|
{
|
|
void * pMem;
|
|
|
|
/* NOTE: we cannot use here HB_TRACE because it will overwrite the
|
|
* function name/line number of code which called hb_xalloc/hb_xgrab
|
|
*/
|
|
HB_TRACE_STEALTH(HB_TR_DEBUG, ("hb_xgrab(%lu)", ulSize));
|
|
|
|
#ifdef HB_FM_STATISTICS
|
|
|
|
pMem = malloc( ulSize + sizeof( HB_MEMINFO ) );
|
|
|
|
if( ! pMem )
|
|
hb_errInternal( 9999, "hb_xgrab can't allocate memory", NULL, NULL );
|
|
|
|
if( ! s_pFirstBlock )
|
|
{
|
|
( ( PHB_MEMINFO ) pMem )->pPrevBlock = NULL;
|
|
s_pFirstBlock = ( PHB_MEMINFO ) pMem;
|
|
}
|
|
else
|
|
{
|
|
( ( PHB_MEMINFO ) pMem )->pPrevBlock = s_pLastBlock;
|
|
s_pLastBlock->pNextBlock = ( PHB_MEMINFO ) pMem;
|
|
}
|
|
s_pLastBlock = ( PHB_MEMINFO ) pMem;
|
|
( ( PHB_MEMINFO ) pMem )->pNextBlock = NULL;
|
|
|
|
( ( PHB_MEMINFO ) pMem )->ulSignature = HB_MEMINFO_SIGNATURE;
|
|
( ( PHB_MEMINFO ) pMem )->ulSize = ulSize; /* size of the memory block */
|
|
|
|
if( hb_tr_level() >= HB_TR_DEBUG )
|
|
{
|
|
/* NOTE: PRG line number/procname is not very useful during hunting
|
|
* for memory leaks - this is why we are using the previously stored
|
|
* function/line info - this is a location of code that called
|
|
* hb_xalloc/hb_xgrab
|
|
*/
|
|
( ( PHB_MEMINFO ) pMem )->uiProcLine = hb_tr_line_; /* C line number */
|
|
strcpy( ( ( PHB_MEMINFO ) pMem )->szProcName, hb_tr_file_ );
|
|
}
|
|
else
|
|
{
|
|
if( hb_stack.pItems && ( hb_stack.pBase != hb_stack.pItems ) )
|
|
{
|
|
( ( PHB_MEMINFO ) pMem )->uiProcLine = hb_stack.pBase->item.asSymbol.lineno; /* PRG line number */
|
|
strcpy( ( ( PHB_MEMINFO ) pMem )->szProcName,
|
|
hb_stack.pBase->item.asSymbol.value->szName ); /* PRG ProcName */
|
|
}
|
|
else
|
|
{
|
|
( ( PHB_MEMINFO ) pMem )->uiProcLine = 0; /* PRG line number */
|
|
( ( PHB_MEMINFO ) pMem )->szProcName[ 0 ] = '\0'; /* PRG ProcName */
|
|
}
|
|
}
|
|
|
|
s_lMemoryConsumed += ulSize;
|
|
if( s_lMemoryMaxConsumed < s_lMemoryConsumed )
|
|
s_lMemoryMaxConsumed = s_lMemoryConsumed;
|
|
s_lMemoryBlocks++;
|
|
if( s_lMemoryMaxBlocks < s_lMemoryBlocks )
|
|
s_lMemoryMaxBlocks = s_lMemoryBlocks;
|
|
|
|
return ( char * ) pMem + sizeof( HB_MEMINFO );
|
|
|
|
#else
|
|
|
|
pMem = malloc( ulSize );
|
|
|
|
if( ! pMem )
|
|
hb_errInternal( 9999, "hb_xgrab can't allocate memory", NULL, NULL );
|
|
|
|
return pMem;
|
|
|
|
#endif
|
|
}
|
|
|
|
void * hb_xrealloc( void * pMem, ULONG ulSize ) /* reallocates memory */
|
|
{
|
|
#ifdef HB_FM_STATISTICS
|
|
|
|
PHB_MEMINFO pMemBlock;
|
|
ULONG ulMemSize;
|
|
|
|
HB_TRACE_STEALTH(HB_TR_DEBUG, ("hb_xrealloc(%p, %lu)", pMem, ulSize));
|
|
|
|
if( ! pMem )
|
|
hb_errInternal( 9999, "hb_xrealloc called with a NULL pointer", NULL, NULL );
|
|
|
|
pMemBlock = ( PHB_MEMINFO ) ( ( char * ) pMem - sizeof( HB_MEMINFO ) );
|
|
|
|
if( pMemBlock->ulSignature != HB_MEMINFO_SIGNATURE )
|
|
hb_errInternal( 9999, "hb_xrealloc called with an invalid pointer", NULL, NULL );
|
|
|
|
ulMemSize = pMemBlock->ulSize;
|
|
|
|
pMem = realloc( pMemBlock, ulSize + sizeof( HB_MEMINFO ) );
|
|
|
|
s_lMemoryConsumed += ( ulSize - ulMemSize );
|
|
if( s_lMemoryMaxConsumed < s_lMemoryConsumed )
|
|
s_lMemoryMaxConsumed = s_lMemoryConsumed;
|
|
|
|
if( ! pMem )
|
|
hb_errInternal( 9999, "hb_xrealloc can't reallocate memory", NULL, NULL );
|
|
|
|
( ( PHB_MEMINFO ) pMem )->ulSize = ulSize; /* size of the memory block */
|
|
if( ( ( PHB_MEMINFO ) pMem )->pPrevBlock )
|
|
( ( PHB_MEMINFO ) pMem )->pPrevBlock->pNextBlock = ( PHB_MEMINFO ) pMem;
|
|
if( ( ( PHB_MEMINFO ) pMem )->pNextBlock )
|
|
( ( PHB_MEMINFO ) pMem )->pNextBlock->pPrevBlock = ( PHB_MEMINFO ) pMem;
|
|
|
|
if( s_pFirstBlock == pMemBlock )
|
|
s_pFirstBlock = ( PHB_MEMINFO ) pMem;
|
|
if( s_pLastBlock == pMemBlock )
|
|
s_pLastBlock = ( PHB_MEMINFO ) pMem;
|
|
|
|
return ( char * ) pMem + sizeof( HB_MEMINFO );
|
|
|
|
#else
|
|
|
|
HB_TRACE(HB_TR_DEBUG, ("hb_xrealloc(%p, %lu)", pMem, ulSize));
|
|
|
|
if( ! pMem )
|
|
hb_errInternal( 9999, "hb_xrealloc called with a NULL pointer", NULL, NULL );
|
|
|
|
pMem = realloc( pMem, ulSize );
|
|
|
|
if( ! pMem )
|
|
hb_errInternal( 9999, "hb_xrealloc can't reallocate memory", NULL, NULL );
|
|
|
|
return pMem;
|
|
|
|
#endif
|
|
}
|
|
|
|
void hb_xfree( void * pMem ) /* frees fixed memory */
|
|
{
|
|
#ifdef HB_FM_STATISTICS
|
|
|
|
HB_TRACE_STEALTH(HB_TR_DEBUG, ("hb_xfree(%p)", pMem));
|
|
|
|
if( pMem )
|
|
{
|
|
PHB_MEMINFO pMemBlock = ( PHB_MEMINFO ) ( ( char * ) pMem - sizeof( HB_MEMINFO ) );
|
|
|
|
if( pMemBlock->ulSignature != HB_MEMINFO_SIGNATURE )
|
|
hb_errInternal( 9999, "hb_xfree called with an invalid pointer", NULL, NULL );
|
|
|
|
s_lMemoryConsumed -= pMemBlock->ulSize;
|
|
s_lMemoryBlocks--;
|
|
|
|
if( pMemBlock->pPrevBlock )
|
|
pMemBlock->pPrevBlock->pNextBlock = pMemBlock->pNextBlock;
|
|
else
|
|
s_pFirstBlock = pMemBlock->pNextBlock;
|
|
|
|
if( pMemBlock->pNextBlock )
|
|
pMemBlock->pNextBlock->pPrevBlock = pMemBlock->pPrevBlock;
|
|
else
|
|
s_pLastBlock = pMemBlock->pPrevBlock;
|
|
|
|
free( ( void * ) pMemBlock );
|
|
}
|
|
else
|
|
hb_errInternal( 9999, "hb_xfree called with a NULL pointer", NULL, NULL );
|
|
|
|
#else
|
|
|
|
HB_TRACE(HB_TR_DEBUG, ("hb_xfree(%p)", pMem));
|
|
|
|
if( pMem )
|
|
free( pMem );
|
|
else
|
|
hb_errInternal( 9999, "hb_xfree called with a NULL pointer", NULL, NULL );
|
|
|
|
#endif
|
|
}
|
|
|
|
/* NOTE: Debug function, it will always return 0 when HB_FM_STATISTICS is
|
|
not defined, don't use it for final code [vszakats] */
|
|
|
|
ULONG hb_xsize( void * pMem ) /* returns the size of an allocated memory block */
|
|
{
|
|
HB_TRACE(HB_TR_DEBUG, ("hb_xsize(%p)", pMem));
|
|
|
|
#ifdef HB_FM_STATISTICS
|
|
return ( ( PHB_MEMINFO ) ( ( char * ) pMem - sizeof( HB_MEMINFO ) ) )->ulSize;
|
|
#else
|
|
return 0;
|
|
#endif
|
|
}
|
|
|
|
void hb_xinit( void ) /* Initialize fixed memory subsystem */
|
|
{
|
|
HB_TRACE(HB_TR_DEBUG, ("hb_xinit()"));
|
|
}
|
|
|
|
void hb_xexit( void ) /* Deinitialize fixed memory subsystem */
|
|
{
|
|
HB_TRACE(HB_TR_DEBUG, ("hb_xexit()"));
|
|
|
|
#ifdef HB_FM_STATISTICS
|
|
if( s_lMemoryBlocks || hb_cmdargCheck( "INFO" ) )
|
|
{
|
|
PHB_MEMINFO pMemBlock;
|
|
USHORT ui;
|
|
char buffer[ 100 ];
|
|
|
|
hb_outerr( hb_consoleGetNewLine(), 0 );
|
|
hb_outerr( "----------------------------------------", 0 );
|
|
hb_outerr( hb_consoleGetNewLine(), 0 );
|
|
sprintf( buffer, "Total memory allocated: %li bytes (%li blocks)", s_lMemoryMaxConsumed, s_lMemoryMaxBlocks );
|
|
hb_outerr( buffer, 0 );
|
|
|
|
if( s_lMemoryBlocks )
|
|
{
|
|
hb_outerr( hb_consoleGetNewLine(), 0 );
|
|
sprintf( buffer, "WARNING! Memory allocated but not released: %li bytes (%li blocks)", s_lMemoryConsumed, s_lMemoryBlocks );
|
|
hb_outerr( buffer, 0 );
|
|
}
|
|
|
|
hb_outerr( hb_consoleGetNewLine(), 0 );
|
|
|
|
for( ui = 1, pMemBlock = s_pFirstBlock; pMemBlock; pMemBlock = pMemBlock->pNextBlock )
|
|
HB_TRACE( HB_TR_ERROR, ( "Block %i (size %lu) %s(%i)",
|
|
ui++,
|
|
pMemBlock->ulSize,
|
|
pMemBlock->szProcName,
|
|
pMemBlock->uiProcLine ) );
|
|
}
|
|
#endif
|
|
}
|
|
|
|
#if UINT_MAX != ULONG_MAX
|
|
|
|
/* hb_xmemcpy and hb_xmemset are only needed when
|
|
unsigned int and unsigned long differ in length */
|
|
|
|
void * hb_xmemcpy( void * pDestArg, void * pSourceArg, ULONG ulLen )
|
|
{
|
|
BYTE * pDest;
|
|
BYTE * pSource;
|
|
ULONG ulRemaining;
|
|
int iCopySize;
|
|
|
|
HB_TRACE(HB_TR_DEBUG, ("hb_xmemcpy(%p, %p, %lu)", pDestArg, pSourceArg, ulLen));
|
|
|
|
pDest = ( BYTE * ) pDestArg;
|
|
pSource = ( BYTE * ) pSourceArg;
|
|
ulRemaining = ulLen;
|
|
|
|
while( ulRemaining )
|
|
{
|
|
/* Overcome the memcpy() size_t limitation */
|
|
if( ulRemaining > UINT_MAX )
|
|
{
|
|
iCopySize = UINT_MAX;
|
|
ulRemaining -= ( ULONG ) iCopySize;
|
|
}
|
|
else
|
|
{
|
|
iCopySize = ( int ) ulRemaining;
|
|
ulRemaining = 0;
|
|
}
|
|
memcpy( pDest, pSource, iCopySize );
|
|
pDest += iCopySize;
|
|
pSource += iCopySize;
|
|
}
|
|
return pDestArg;
|
|
}
|
|
|
|
void * hb_xmemset( void * pDestArg, int iFill, ULONG ulLen )
|
|
{
|
|
BYTE * pDest;
|
|
ULONG ulRemaining;
|
|
int iSetSize;
|
|
|
|
HB_TRACE(HB_TR_DEBUG, ("hb_xmemset(%p, %d, %lu)", pDestArg, iFill, ulLen));
|
|
|
|
pDest = ( BYTE * ) pDestArg;
|
|
ulRemaining = ulLen;
|
|
|
|
while( ulRemaining )
|
|
{
|
|
/* Overcome the memset() size_t limitation */
|
|
if( ulRemaining > UINT_MAX )
|
|
{
|
|
iSetSize = UINT_MAX;
|
|
ulRemaining -= ( ULONG ) iSetSize;
|
|
}
|
|
else
|
|
{
|
|
iSetSize = ( int ) ulRemaining;
|
|
ulRemaining = 0;
|
|
}
|
|
memset( pDest, iFill, iSetSize );
|
|
pDest += iSetSize;
|
|
}
|
|
return pDestArg;
|
|
}
|
|
|
|
#endif
|
|
|
|
ULONG hb_xquery( USHORT uiMode )
|
|
{
|
|
ULONG ulResult;
|
|
|
|
HB_TRACE(HB_TR_DEBUG, ("hb_xquery(%hu)", uiMode));
|
|
|
|
/* TODO: Return the correct values instead of 9999 [vszakats] */
|
|
|
|
switch( uiMode )
|
|
{
|
|
case HB_MEM_CHAR: /* (Free Variable Space [KB]) */
|
|
#if defined(HB_OS_WIN_32)
|
|
{
|
|
MEMORYSTATUS memorystatus;
|
|
GlobalMemoryStatus( &memorystatus );
|
|
ulResult = memorystatus.dwAvailPhys / 1024;
|
|
}
|
|
#else
|
|
ulResult = 9999;
|
|
#endif
|
|
break;
|
|
|
|
case HB_MEM_BLOCK: /* (Largest String [KB]) */
|
|
#if defined(HB_OS_WIN_32)
|
|
{
|
|
MEMORYSTATUS memorystatus;
|
|
GlobalMemoryStatus( &memorystatus );
|
|
ulResult = HB_MIN( memorystatus.dwAvailPhys, ULONG_MAX ) / 1024;
|
|
}
|
|
#else
|
|
ulResult = 9999;
|
|
#endif
|
|
break;
|
|
|
|
case HB_MEM_RUN: /* (RUN Memory [KB]) */
|
|
#if defined(HB_OS_WIN_32)
|
|
{
|
|
MEMORYSTATUS memorystatus;
|
|
GlobalMemoryStatus( &memorystatus );
|
|
ulResult = memorystatus.dwAvailPhys / 1024;
|
|
}
|
|
#else
|
|
ulResult = 9999;
|
|
#endif
|
|
break;
|
|
|
|
case HB_MEM_VM: /* UNDOCUMENTED! (Virtual Memory [KB]) */
|
|
#if defined(HB_OS_WIN_32)
|
|
{
|
|
MEMORYSTATUS memorystatus;
|
|
GlobalMemoryStatus( &memorystatus );
|
|
ulResult = memorystatus.dwAvailVirtual / 1024;
|
|
}
|
|
#else
|
|
ulResult = 9999;
|
|
#endif
|
|
break;
|
|
|
|
case HB_MEM_EMS: /* UNDOCUMENTED! (Free Expanded Memory [KB]) (?) */
|
|
#if defined(HB_OS_WIN_32)
|
|
ulResult = 0;
|
|
#else
|
|
ulResult = 9999;
|
|
#endif
|
|
break;
|
|
|
|
case HB_MEM_FM: /* UNDOCUMENTED! (Fixed Memory/Heap [KB]) (?) */
|
|
#if defined(HB_OS_WIN_32)
|
|
{
|
|
MEMORYSTATUS memorystatus;
|
|
GlobalMemoryStatus( &memorystatus );
|
|
ulResult = memorystatus.dwTotalPhys / 1024;
|
|
}
|
|
#else
|
|
ulResult = 9999;
|
|
#endif
|
|
break;
|
|
|
|
case HB_MEM_FMSEGS: /* UNDOCUMENTED! (Segments in Fixed Memory/Heap) (?) */
|
|
#if defined(HB_OS_WIN_32)
|
|
ulResult = 1;
|
|
#else
|
|
ulResult = 9999;
|
|
#endif
|
|
break;
|
|
|
|
case HB_MEM_SWAP: /* UNDOCUMENTED! (Free Swap Memory [KB]) */
|
|
#if defined(HB_OS_WIN_32)
|
|
{
|
|
MEMORYSTATUS memorystatus;
|
|
GlobalMemoryStatus( &memorystatus );
|
|
ulResult = memorystatus.dwAvailPageFile / 1024;
|
|
}
|
|
#else
|
|
ulResult = 9999;
|
|
#endif
|
|
break;
|
|
|
|
case HB_MEM_CONV: /* UNDOCUMENTED! (Free Conventional [KB]) */
|
|
#if defined(HB_OS_WIN_32)
|
|
ulResult = 0;
|
|
#else
|
|
ulResult = 9999;
|
|
#endif
|
|
break;
|
|
|
|
case HB_MEM_EMSUSED: /* UNDOCUMENTED! (Used Expanded Memory [KB]) (?) */
|
|
ulResult = 0;
|
|
break;
|
|
|
|
case HB_MEM_USED: /* Harbour extension (Memory used [bytes]) */
|
|
#ifdef HB_FM_STATISTICS
|
|
ulResult = s_lMemoryConsumed;
|
|
#else
|
|
ulResult = 0;
|
|
#endif
|
|
break;
|
|
|
|
case HB_MEM_USEDMAX: /* Harbour extension (Maximum memory used [bytes]) */
|
|
#ifdef HB_FM_STATISTICS
|
|
ulResult = s_lMemoryMaxConsumed;
|
|
#else
|
|
ulResult = 0;
|
|
#endif
|
|
break;
|
|
|
|
case HB_MEM_STACKITEMS: /* Harbour extension (Total items on the stack) */
|
|
ulResult = hb_stack.wItems;
|
|
break;
|
|
|
|
case HB_MEM_STACK: /* Harbour extension (Total memory size used by the stack [bytes]) */
|
|
ulResult = hb_stack.wItems * sizeof( HB_ITEM );
|
|
break;
|
|
|
|
default:
|
|
ulResult = 0;
|
|
}
|
|
|
|
return ulResult;
|
|
}
|
|
|
|
HB_FUNC( MEMORY )
|
|
{
|
|
hb_retnl( hb_xquery( hb_parni( 1 ) ) );
|
|
}
|
|
|