mattercontrol/Community.CsharpSqlite/src/malloc_c.cs
2015-04-08 15:20:10 -07:00

1143 lines
No EOL
31 KiB
C#

using System.Diagnostics;
namespace Community.CsharpSqlite
{
using System;
using sqlite3_int64 = System.Int64;
using u32 = System.UInt32;
public partial class Sqlite3
{
/*
** 2001 September 15
**
** The author disclaims copyright to this source code. In place of
** a legal notice, here is a blessing:
**
** May you do good and not evil.
** May you find forgiveness for yourself and forgive others.
** May you share freely, never taking more than you give.
**
*************************************************************************
**
** Memory allocation functions used throughout sqlite.
*************************************************************************
** Included in SQLite3 port to C#-SQLite; 2008 Noah B Hart
** C#-SQLite is an independent reimplementation of the SQLite software library
**
** SQLITE_SOURCE_ID: 2011-06-23 19:49:22 4374b7e83ea0a3fbc3691f9c0c936272862f32f2
**
*************************************************************************
*/
//#include "sqliteInt.h"
//#include <stdarg.h>
/*
** Attempt to release up to n bytes of non-essential memory currently
** held by SQLite. An example of non-essential memory is memory used to
** cache database pages that are not currently in use.
*/
private static int sqlite3_release_memory(int n)
{
#if SQLITE_ENABLE_MEMORY_MANAGEMENT
int nRet = 0;
nRet += sqlite3PcacheReleaseMemory(n-nRet);
return nRet;
#else
UNUSED_PARAMETER(n);
return SQLITE_OK;
#endif
}
/*
** State information local to the memory allocation subsystem.
*/
//static SQLITE_WSD struct Mem0Global {
public class Mem0Global
{/* Number of free pages for scratch and page-cache memory */
public int nScratchFree;
public int nPageFree;
public sqlite3_mutex mutex; /* Mutex to serialize access */
/*
** The alarm callback and its arguments. The mem0.mutex lock will
** be held while the callback is running. Recursive calls into
** the memory subsystem are allowed, but no new callbacks will be
** issued.
*/
public sqlite3_int64 alarmThreshold;
public dxalarmCallback alarmCallback; // (*alarmCallback)(void*, sqlite3_int64,int);
public object alarmArg;
/*
** Pointers to the end of sqlite3GlobalConfig.pScratch and
** sqlite3GlobalConfig.pPage to a block of memory that records
** which pages are available.
*/
//u32 *aScratchFree;
/*
** True if heap is nearly "full" where "full" is defined by the
** sqlite3_soft_heap_limit() setting.
*/
public bool nearlyFull;
public byte[][][] aByte;
public int[] aByteSize;
public int[] aByte_used;
public int[][] aInt;
public Mem[] aMem;
public BtCursor[] aBtCursor;
public struct memstat
{
public int alloc; // # of allocation requests
public int dealloc; // # of deallocations
public int cached; // # of cache hits
public int next; // # Next slot to use
public int max; // # Max slot used
}
public memstat msByte;
public memstat msInt;
public memstat msMem;
public memstat msBtCursor;
public Mem0Global()
{
}
public Mem0Global(int nScratchFree, int nPageFree, sqlite3_mutex mutex, sqlite3_int64 alarmThreshold, dxalarmCallback alarmCallback, object alarmArg, int Byte_Allocation, int Int_Allocation, int Mem_Allocation, int BtCursor_Allocation)
{
this.nScratchFree = nScratchFree;
this.nPageFree = nPageFree;
this.mutex = mutex;
this.alarmThreshold = alarmThreshold;
this.alarmCallback = alarmCallback;
this.alarmArg = alarmArg;
this.msByte.next = -1;
this.msInt.next = -1;
this.msMem.next = -1;
this.aByteSize = new int[] { 32, 256, 1024, 8192, 0 };
this.aByte_used = new int[] { -1, -1, -1, -1, -1 };
this.aByte = new byte[this.aByteSize.Length][][];
for (int i = 0; i < this.aByteSize.Length; i++)
this.aByte[i] = new byte[Byte_Allocation][];
this.aInt = new int[Int_Allocation][];
this.aMem = new Mem[Mem_Allocation <= 4 ? 4 : Mem_Allocation];
this.aBtCursor = new BtCursor[BtCursor_Allocation <= 4 ? 4 : BtCursor_Allocation];
this.nearlyFull = false;
}
}
//mem0 = { 0, 0, 0, 0, 0, 0, 0, 0 };
//#define mem0 GLOBAL(struct Mem0Global, mem0)
private static Mem0Global mem0 = new Mem0Global();
/*
** This routine runs when the memory allocator sees that the
** total memory allocation is about to exceed the soft heap
** limit.
*/
private static void softHeapLimitEnforcer(
object NotUsed,
sqlite3_int64 NotUsed2,
int allocSize
)
{
UNUSED_PARAMETER2(NotUsed, NotUsed2);
sqlite3_release_memory(allocSize);
}
#if !SQLITE_OMIT_DEPRECATED
/*
** Deprecated external interface. Internal/core SQLite code
** should call sqlite3MemoryAlarm.
*/
int sqlite3_memory_alarm(
void(*xCallback)(void *pArg, sqlite3_int64 used,int N),
void *pArg,
sqlite3_int64 iThreshold
){
return sqlite3MemoryAlarm(xCallback, pArg, iThreshold);
}
#endif
/*
** Set the soft heap-size limit for the library. Passing a zero or
** negative value indicates no limit.
*/
private static sqlite3_int64 sqlite3_soft_heap_limit64(sqlite3_int64 n)
{
sqlite3_int64 priorLimit;
sqlite3_int64 excess;
#if !SQLITE_OMIT_AUTOINIT
sqlite3_initialize();
#endif
sqlite3_mutex_enter(mem0.mutex);
priorLimit = mem0.alarmThreshold;
sqlite3_mutex_leave(mem0.mutex);
if (n < 0)
return priorLimit;
if (n > 0)
{
sqlite3MemoryAlarm(softHeapLimitEnforcer, 0, n);
}
else
{
sqlite3MemoryAlarm(null, 0, 0);
}
excess = sqlite3_memory_used() - n;
if (excess > 0)
sqlite3_release_memory((int)(excess & 0x7fffffff));
return priorLimit;
}
private void sqlite3_soft_heap_limit(int n)
{
if (n < 0)
n = 0;
sqlite3_soft_heap_limit64(n);
}
/*
** Initialize the memory allocation subsystem.
*/
private static int sqlite3MallocInit()
{
if (sqlite3GlobalConfig.m.xMalloc == null)
{
sqlite3MemSetDefault();
}
mem0 = new Mem0Global(0, 0, null, 0, null, null, 1, 1, 8, 8); //memset(&mem0, 0, sizeof(mem0));
if (sqlite3GlobalConfig.bCoreMutex)
{
mem0.mutex = sqlite3MutexAlloc(SQLITE_MUTEX_STATIC_MEM);
}
if (sqlite3GlobalConfig.pScratch != null && sqlite3GlobalConfig.szScratch >= 100
&& sqlite3GlobalConfig.nScratch >= 0)
{
int i;
sqlite3GlobalConfig.szScratch = ROUNDDOWN8(sqlite3GlobalConfig.szScratch - 4);
//mem0.aScratchFree = (u32)&((char)sqlite3GlobalConfig.pScratch)
// [sqlite3GlobalConfig.szScratch*sqlite3GlobalConfig.nScratch];
//for(i=0; i<sqlite3GlobalConfig.nScratch; i++){ mem0.aScratchFree[i] = i; }
//mem0.nScratchFree = sqlite3GlobalConfig.nScratch;
}
else
{
sqlite3GlobalConfig.pScratch = null;
sqlite3GlobalConfig.szScratch = 0;
}
if (sqlite3GlobalConfig.pPage == null || sqlite3GlobalConfig.szPage < 512
|| sqlite3GlobalConfig.nPage < 1)
{
sqlite3GlobalConfig.pPage = null;
sqlite3GlobalConfig.szPage = 0;
sqlite3GlobalConfig.nPage = 0;
}
return sqlite3GlobalConfig.m.xInit(sqlite3GlobalConfig.m.pAppData);
}
/*
** Return true if the heap is currently under memory pressure - in other
** words if the amount of heap used is close to the limit set by
** sqlite3_soft_heap_limit().
*/
private static bool sqlite3HeapNearlyFull()
{
return mem0.nearlyFull;
}
/*
** Deinitialize the memory allocation subsystem.
*/
private static void sqlite3MallocEnd()
{
if (sqlite3GlobalConfig.m.xShutdown != null)
{
sqlite3GlobalConfig.m.xShutdown(sqlite3GlobalConfig.m.pAppData);
}
mem0 = new Mem0Global();//memset(&mem0, 0, sizeof(mem0));
}
/*
** Return the amount of memory currently checked out.
*/
private static sqlite3_int64 sqlite3_memory_used()
{
int n = 0, mx = 0;
sqlite3_int64 res;
sqlite3_status(SQLITE_STATUS_MEMORY_USED, ref n, ref mx, 0);
res = (sqlite3_int64)n; /* Work around bug in Borland C. Ticket #3216 */
return res;
}
/*
** Return the maximum amount of memory that has ever been
** checked out since either the beginning of this process
** or since the most recent reset.
*/
private static sqlite3_int64 sqlite3_memory_highwater(int resetFlag)
{
int n = 0, mx = 0;
sqlite3_int64 res;
sqlite3_status(SQLITE_STATUS_MEMORY_USED, ref n, ref mx, resetFlag);
res = (sqlite3_int64)mx; /* Work around bug in Borland C. Ticket #3216 */
return res;
}
/*
** Change the alarm callback
*/
private static int sqlite3MemoryAlarm(
dxalarmCallback xCallback, //void(*xCallback)(object pArg, sqlite3_int64 used,int N),
object pArg,
sqlite3_int64 iThreshold
)
{
int nUsed;
sqlite3_mutex_enter(mem0.mutex);
mem0.alarmCallback = xCallback;
mem0.alarmArg = pArg;
mem0.alarmThreshold = iThreshold;
nUsed = sqlite3StatusValue(SQLITE_STATUS_MEMORY_USED);
mem0.nearlyFull = (iThreshold > 0 && iThreshold <= nUsed);
sqlite3_mutex_leave(mem0.mutex);
return SQLITE_OK;
}
/*
** Trigger the alarm
*/
private static void sqlite3MallocAlarm(int nByte)
{
dxalarmCallback xCallback;//void (*xCallback)(void*,sqlite3_int64,int);
sqlite3_int64 nowUsed;
object pArg;// void* pArg;
if (mem0.alarmCallback == null)
return;
xCallback = mem0.alarmCallback;
nowUsed = sqlite3StatusValue(SQLITE_STATUS_MEMORY_USED);
pArg = mem0.alarmArg;
mem0.alarmCallback = null;
sqlite3_mutex_leave(mem0.mutex);
xCallback(pArg, nowUsed, nByte);
sqlite3_mutex_enter(mem0.mutex);
mem0.alarmCallback = xCallback;
mem0.alarmArg = pArg;
}
/*
** Do a memory allocation with statistics and alarms. Assume the
** lock is already held.
*/
private static int mallocWithAlarm(int n, ref int[] pp)
{
int nFull;
int[] p;
Debug.Assert(sqlite3_mutex_held(mem0.mutex));
nFull = sqlite3GlobalConfig.m.xRoundup(n);
sqlite3StatusSet(SQLITE_STATUS_MALLOC_SIZE, n);
if (mem0.alarmCallback != null)
{
int nUsed = sqlite3StatusValue(SQLITE_STATUS_MEMORY_USED);
if (nUsed >= mem0.alarmThreshold - nFull)
{
mem0.nearlyFull = true;
sqlite3MallocAlarm(nFull);
}
else
{
mem0.nearlyFull = false;
}
}
p = sqlite3GlobalConfig.m.xMallocInt(nFull);
#if SQLITE_ENABLE_MEMORY_MANAGEMENT
if( p==null && mem0.alarmCallback!=null ){
sqlite3MallocAlarm(nFull);
p = sqlite3GlobalConfig.m.xMalloc(nFull);
}
#endif
if (p != null)
{
nFull = sqlite3MallocSize(p);
sqlite3StatusAdd(SQLITE_STATUS_MEMORY_USED, nFull);
}
pp = p;
return nFull;
}
private static int mallocWithAlarm(int n, ref byte[] pp)
{
int nFull;
byte[] p;
Debug.Assert(sqlite3_mutex_held(mem0.mutex));
nFull = sqlite3GlobalConfig.m.xRoundup(n);
sqlite3StatusSet(SQLITE_STATUS_MALLOC_SIZE, n);
if (mem0.alarmCallback != null)
{
int nUsed = sqlite3StatusValue(SQLITE_STATUS_MEMORY_USED);
if (nUsed + nFull >= mem0.alarmThreshold)
{
sqlite3MallocAlarm(nFull);
}
}
p = sqlite3GlobalConfig.m.xMalloc(nFull);
if (p == null && mem0.alarmCallback != null)
{
sqlite3MallocAlarm(nFull);
p = sqlite3GlobalConfig.m.xMalloc(nFull);
}
if (p != null)
{
nFull = sqlite3MallocSize(p);
sqlite3StatusAdd(SQLITE_STATUS_MEMORY_USED, nFull);
sqlite3StatusAdd(SQLITE_STATUS_MALLOC_COUNT, 1);
}
pp = p;
return nFull;
}
/*
** Allocate memory. This routine is like sqlite3_malloc() except that it
** assumes the memory subsystem has already been initialized.
*/
private static Mem sqlite3Malloc(Mem pMem)
{
return sqlite3GlobalConfig.m.xMallocMem(pMem);
}
private static int[] sqlite3Malloc(int[] pInt, u32 n)
{
return sqlite3Malloc(pInt, (int)n);
}
private static int[] sqlite3Malloc(int[] pInt, int n)
{
int[] p = null;
if (n < 0 || n >= 0x7fffff00)
{
/* A memory allocation of a number of bytes which is near the maximum
** signed integer value might cause an integer overflow inside of the
** xMalloc(). Hence we limit the maximum size to 0x7fffff00, giving
** 255 bytes of overhead. SQLite itself will never use anything near
** this amount. The only way to reach the limit is with sqlite3_malloc() */
p = null;
}
else if (sqlite3GlobalConfig.bMemstat)
{
sqlite3_mutex_enter(mem0.mutex);
mallocWithAlarm(n, ref p);
sqlite3_mutex_leave(mem0.mutex);
}
else
{
p = sqlite3GlobalConfig.m.xMallocInt(n);
}
return p;
}
private static byte[] sqlite3Malloc(u32 n)
{
return sqlite3Malloc((int)n);
}
private static byte[] sqlite3Malloc(int n)
{
byte[] p = null;
if (n < 0 || n >= 0x7fffff00)
{
/* A memory allocation of a number of bytes which is near the maximum
** signed integer value might cause an integer overflow inside of the
** xMalloc(). Hence we limit the maximum size to 0x7fffff00, giving
** 255 bytes of overhead. SQLite itself will never use anything near
** this amount. The only way to reach the limit is with sqlite3_malloc() */
p = null;
}
else if (sqlite3GlobalConfig.bMemstat)
{
sqlite3_mutex_enter(mem0.mutex);
mallocWithAlarm(n, ref p);
sqlite3_mutex_leave(mem0.mutex);
}
else
{
p = sqlite3GlobalConfig.m.xMalloc(n);
}
return p;
}
/*
** This version of the memory allocation is for use by the application.
** First make sure the memory subsystem is initialized, then do the
** allocation.
*/
static public byte[] sqlite3_malloc(int n)
{
#if !SQLITE_OMIT_AUTOINIT
if (sqlite3_initialize() != 0)
return null;
#endif
return sqlite3Malloc(n);
}
/*
** Each thread may only have a single outstanding allocation from
** xScratchMalloc(). We verify this constraint in the single-threaded
** case by setting scratchAllocOut to 1 when an allocation
** is outstanding clearing it when the allocation is freed.
*/
#if SQLITE_THREADSAFE && !(NDEBUG)
private static int scratchAllocOut = 0;
#endif
/*
** Allocate memory that is to be used and released right away.
** This routine is similar to alloca() in that it is not intended
** for situations where the memory might be held long-term. This
** routine is intended to get memory to old large transient data
** structures that would not normally fit on the stack of an
** embedded processor.
*/
private static byte[][] sqlite3ScratchMalloc(byte[][] apCell, int n)
{
apCell = sqlite3GlobalConfig.pScratch2;
if (apCell == null)
apCell = new byte[n < 200 ? 200 : n][];
else if (apCell.Length < n)
Array.Resize(ref apCell, n);
sqlite3GlobalConfig.pScratch2 = null;
return apCell;
}
private static byte[] sqlite3ScratchMalloc(int n)
{
byte[] p = null;
Debug.Assert(n > 0);
#if SQLITE_THREADSAFE && !(NDEBUG)
/* Verify that no more than two scratch allocation per thread
** is outstanding at one time. (This is only checked in the
** single-threaded case since checking in the multi-threaded case
** would be much more complicated.) */
Debug.Assert(scratchAllocOut <= 1);
#endif
if (sqlite3GlobalConfig.szScratch < n)
{
goto scratch_overflow;
}
else
{
sqlite3_mutex_enter(mem0.mutex);
if (mem0.nScratchFree == 0)
{
sqlite3_mutex_leave(mem0.mutex);
goto scratch_overflow;
}
else
{
int i;
//i = mem0.aScratchFree[--mem0.nScratchFree];
//i *= sqlite3GlobalConfig.szScratch;
for (i = 0; i < sqlite3GlobalConfig.pScratch.Length; i++)
{
if (sqlite3GlobalConfig.pScratch[i] == null || sqlite3GlobalConfig.pScratch[i].Length < n)
continue;
p = sqlite3GlobalConfig.pScratch[i];// (void)&((char)sqlite3GlobalConfig.pScratch)[i];
sqlite3GlobalConfig.pScratch[i] = null;
break;
}
sqlite3_mutex_leave(mem0.mutex);
if (p == null)
goto scratch_overflow;
sqlite3StatusAdd(SQLITE_STATUS_SCRATCH_USED, 1);
sqlite3StatusSet(SQLITE_STATUS_SCRATCH_SIZE, n);
//Debug.Assert( (((u8)p - (u8)0) & 7)==0 );
}
}
#if SQLITE_THREADSAFE && !(NDEBUG)
scratchAllocOut = (p != null ? 1 : 0);
#endif
return p;
scratch_overflow:
if (sqlite3GlobalConfig.bMemstat)
{
sqlite3_mutex_enter(mem0.mutex);
sqlite3StatusSet(SQLITE_STATUS_SCRATCH_SIZE, n);
n = mallocWithAlarm(n, ref p);
if (p != null)
sqlite3StatusAdd(SQLITE_STATUS_SCRATCH_OVERFLOW, n);
sqlite3_mutex_leave(mem0.mutex);
}
else
{
p = sqlite3GlobalConfig.m.xMalloc(n);
}
sqlite3MemdebugSetType(p, MEMTYPE_SCRATCH);
#if SQLITE_THREADSAFE && !(NDEBUG)
scratchAllocOut = (p != null) ? 1 : 0;
#endif
return p;
}
private static void sqlite3ScratchFree(byte[][] p)
{
if (p != null)
{
if (sqlite3GlobalConfig.pScratch2 == null || sqlite3GlobalConfig.pScratch2.Length < p.Length)
{
Debug.Assert(sqlite3MemdebugHasType(p, MEMTYPE_SCRATCH));
Debug.Assert(sqlite3MemdebugNoType(p, ~MEMTYPE_SCRATCH));
sqlite3MemdebugSetType(p, MEMTYPE_HEAP);
if (sqlite3GlobalConfig.bMemstat)
{
int iSize = sqlite3MallocSize(p);
sqlite3_mutex_enter(mem0.mutex);
sqlite3StatusAdd(SQLITE_STATUS_SCRATCH_OVERFLOW, -iSize);
sqlite3StatusAdd(SQLITE_STATUS_MEMORY_USED, -iSize);
sqlite3StatusAdd(SQLITE_STATUS_MALLOC_COUNT, -1);
sqlite3GlobalConfig.pScratch2 = p;// sqlite3GlobalConfig.m.xFree(ref p);
sqlite3_mutex_leave(mem0.mutex);
}
else
{
sqlite3GlobalConfig.pScratch2 = p;//sqlite3GlobalConfig.m.xFree(ref p);
}
}
else // larger Scratch 2 already in use, let the C# GC handle
{
//int i;
//i = (int)((u8)p - (u8)sqlite3GlobalConfig.pScratch);
//i /= sqlite3GlobalConfig.szScratch;
//Debug.Assert(i >= 0 && i < sqlite3GlobalConfig.nScratch);
//sqlite3_mutex_enter(mem0.mutex);
//Debug.Assert(mem0.nScratchFree < (u32)sqlite3GlobalConfig.nScratch);
//mem0.aScratchFree[mem0.nScratchFree++] = i;
//sqlite3StatusAdd(SQLITE_STATUS_SCRATCH_USED, -1);
//sqlite3_mutex_leave(mem0.mutex);
#if SQLITE_THREADSAFE && !(NDEBUG)
/* Verify that no more than two scratch allocation per thread
** is outstanding at one time. (This is only checked in the
** single-threaded case since checking in the multi-threaded case
** would be much more complicated.) */
Debug.Assert(scratchAllocOut >= 1 && scratchAllocOut <= 2);
scratchAllocOut = 0;
#endif
}
//if( p>=sqlite3GlobalConfig.pScratch && p<mem0.pScratchEnd ){
// /* Release memory from the SQLITE_CONFIG_SCRATCH allocation */
// ScratchFreeslot *pSlot;
// pSlot = (ScratchFreeslot)p;
// sqlite3_mutex_enter(mem0.mutex);
// pSlot->pNext = mem0.pScratchFree;
// mem0.pScratchFree = pSlot;
// mem0.nScratchFree++;
// Debug.Assert( mem0.nScratchFree <= (u32)sqlite3GlobalConfig.nScratch );
// sqlite3StatusAdd(SQLITE_STATUS_SCRATCH_USED, -1);
// sqlite3_mutex_leave(mem0.mutex);
//}else{
// /* Release memory back to the heap */
// Debug.Assert( sqlite3MemdebugHasType(p, MEMTYPE_SCRATCH) );
// Debug.Assert( sqlite3MemdebugNoType(p, ~MEMTYPE_SCRATCH) );
// sqlite3MemdebugSetType(p, MEMTYPE_HEAP);
// if( sqlite3GlobalConfig.bMemstat ){
// int iSize = sqlite3MallocSize(p);
// sqlite3_mutex_enter(mem0.mutex);
// sqlite3StatusAdd(SQLITE_STATUS_SCRATCH_OVERFLOW, -iSize);
// sqlite3StatusAdd(SQLITE_STATUS_MEMORY_USED, -iSize);
// sqlite3StatusAdd(SQLITE_STATUS_MALLOC_COUNT, -1);
// sqlite3GlobalConfig.m.xFree(p);
// sqlite3_mutex_leave(mem0.mutex);
// }else{
// sqlite3GlobalConfig.m.xFree(p);
// }
p = null;
}
}
/*
** TRUE if p is a lookaside memory allocation from db
*/
#if !SQLITE_OMIT_LOOKASIDE
static int isLookaside(sqlite3 db, object *p){
return p && p>=db.lookaside.pStart && p<db.lookaside.pEnd;
}
#else
//#define isLookaside(A,B) 0
private static bool isLookaside(sqlite3 db, object p)
{
return false;
}
#endif
/*
** Return the size of a memory allocation previously obtained from
** sqlite3Malloc() or sqlite3_malloc().
*/
//int sqlite3MallocSize(void* p)
//{
// Debug.Assert(sqlite3MemdebugHasType(p, MEMTYPE_HEAP));
// Debug.Assert( sqlite3MemdebugNoType(p, MEMTYPE_DB) );
// return sqlite3GlobalConfig.m.xSize(p);
//}
private static int sqlite3MallocSize(byte[][] p)
{
return p.Length * p[0].Length;
}
private static int sqlite3MallocSize(int[] p)
{
return p.Length;
}
private static int sqlite3MallocSize(byte[] p)
{
return sqlite3GlobalConfig.m.xSize(p);
}
private static int sqlite3DbMallocSize(sqlite3 db, byte[] p)
{
Debug.Assert(db == null || sqlite3_mutex_held(db.mutex));
if (db != null && isLookaside(db, p))
{
return db.lookaside.sz;
}
else
{
Debug.Assert(sqlite3MemdebugHasType(p, MEMTYPE_DB));
Debug.Assert(sqlite3MemdebugHasType(p, MEMTYPE_LOOKASIDE | MEMTYPE_HEAP));
Debug.Assert(db != null || sqlite3MemdebugNoType(p, MEMTYPE_LOOKASIDE));
return sqlite3GlobalConfig.m.xSize(p);
}
}
/*
** Free memory previously obtained from sqlite3Malloc().
*/
static public void sqlite3_free(ref byte[] p)
{
if (p == null)
return;
Debug.Assert(sqlite3MemdebugNoType(p, MEMTYPE_DB));
Debug.Assert(sqlite3MemdebugHasType(p, MEMTYPE_HEAP));
if (sqlite3GlobalConfig.bMemstat)
{
sqlite3_mutex_enter(mem0.mutex);
sqlite3StatusAdd(SQLITE_STATUS_MEMORY_USED, -sqlite3MallocSize(p));
sqlite3StatusAdd(SQLITE_STATUS_MALLOC_COUNT, -1);
sqlite3GlobalConfig.m.xFree(ref p);
sqlite3_mutex_leave(mem0.mutex);
}
else
{
sqlite3GlobalConfig.m.xFree(ref p);
}
p = null;
}
static public void sqlite3_free(ref Mem p)
{
if (p == null)
return;
if (sqlite3GlobalConfig.bMemstat)
{
sqlite3_mutex_enter(mem0.mutex);
//sqlite3StatusAdd( SQLITE_STATUS_MEMORY_USED, -sqlite3MallocSize( p ) );
sqlite3GlobalConfig.m.xFreeMem(ref p);
sqlite3_mutex_leave(mem0.mutex);
}
else
{
sqlite3GlobalConfig.m.xFreeMem(ref p);
}
p = null;
}
/*
** Free memory that might be associated with a particular database
** connection.
*/
private static void sqlite3DbFree(sqlite3 db, ref byte[] p)
{
Debug.Assert(db == null || sqlite3_mutex_held(db.mutex));
if (db != null)
{
//if ( db.pnBytesFreed != 0 )
//{
#if SQLITE_OMIT_LOOKASIDE
//db.pnBytesFreed += 1;
#else
db.pnBytesFreed += sqlite3DbMallocSize( db, p );
#endif
return;
//}
#if !SQLITE_OMIT_LOOKASIDE
if( isLookaside(db, p) ){
LookasideSlot *pBuf = (LookasideSlot)p;
pBuf.pNext = db.lookaside.pFree;
db.lookaside.pFree = pBuf;
db.lookaside.nOut--;
}else
#endif
//{
// Debug.Assert( sqlite3MemdebugHasType( p, MEMTYPE_DB ) );
// Debug.Assert( sqlite3MemdebugHasType( p, MEMTYPE_LOOKASIDE | MEMTYPE_HEAP ) );
// Debug.Assert( db != null || sqlite3MemdebugNoType( p, MEMTYPE_LOOKASIDE ) );
// sqlite3MemdebugSetType( p, MEMTYPE_HEAP );
// sqlite3_free( ref p );
//}
}
}
/*
** Change the size of an existing memory allocation
*/
private static byte[] sqlite3Realloc(byte[] pOld, int nBytes)
{
int nOld, nNew, nDiff;
byte[] pNew;
if (pOld == null)
{
pOld = sqlite3Malloc(nBytes);
return pOld;
}
if (nBytes < 0)
{
sqlite3_free(ref pOld);
return null;
}
if (nBytes >= 0x7fffff00)
{
/* The 0x7ffff00 limit term is explained in comments on sqlite3Malloc() */
return null;
}
nOld = sqlite3MallocSize(pOld);
nNew = sqlite3GlobalConfig.m.xRoundup(nBytes);
if (nOld == nNew)
{
pNew = pOld;
}
else if (sqlite3GlobalConfig.bMemstat)
{
sqlite3_mutex_enter(mem0.mutex);
sqlite3StatusSet(SQLITE_STATUS_MALLOC_SIZE, nBytes);
nDiff = nNew - nOld;
if (sqlite3StatusValue(SQLITE_STATUS_MEMORY_USED) >=
mem0.alarmThreshold - nDiff)
{
sqlite3MallocAlarm(nDiff);
}
Debug.Assert(sqlite3MemdebugHasType(pOld, MEMTYPE_HEAP));
Debug.Assert(sqlite3MemdebugNoType(pOld, ~MEMTYPE_HEAP));
pNew = sqlite3GlobalConfig.m.xRealloc(pOld, nNew);
if (pNew == null && mem0.alarmCallback != null)
{
sqlite3MallocAlarm(nBytes);
pNew = sqlite3GlobalConfig.m.xRealloc(pOld, nNew);
}
if (pNew != null)
{
nNew = sqlite3MallocSize(pNew);
sqlite3StatusAdd(SQLITE_STATUS_MEMORY_USED, nNew - nOld);
}
sqlite3_mutex_leave(mem0.mutex);
}
else
{
pNew = sqlite3GlobalConfig.m.xRealloc(pOld, nNew);
}
return pNew;
}
/*
** The public interface to sqlite3Realloc. Make sure that the memory
** subsystem is initialized prior to invoking sqliteRealloc.
*/
private static byte[] sqlite3_realloc(byte[] pOld, int n)
{
#if !SQLITE_OMIT_AUTOINIT
if (sqlite3_initialize() != 0)
return null;
#endif
return sqlite3Realloc(pOld, n);
}
/*
** Allocate and zero memory.
*/
private static byte[] sqlite3MallocZero(int n)
{
byte[] p = sqlite3Malloc(n);
if (p != null)
{
Array.Clear(p, 0, n);// memset(p, 0, n);
}
return p;
}
/*
** Allocate and zero memory. If the allocation fails, make
** the mallocFailed flag in the connection pointer.
*/
private static Mem sqlite3DbMallocZero(sqlite3 db, Mem m)
{
return new Mem();
}
private static byte[] sqlite3DbMallocZero(sqlite3 db, int n)
{
byte[] p = sqlite3DbMallocRaw(db, n);
if (p != null)
{
Array.Clear(p, 0, n);// memset(p, 0, n);
}
return p;
}
/*
** Allocate and zero memory. If the allocation fails, make
** the mallocFailed flag in the connection pointer.
**
** If db!=0 and db->mallocFailed is true (indicating a prior malloc
** failure on the same database connection) then always return 0.
** Hence for a particular database connection, once malloc starts
** failing, it fails consistently until mallocFailed is reset.
** This is an important assumption. There are many places in the
** code that do things like this:
**
** int *a = (int)sqlite3DbMallocRaw(db, 100);
** int *b = (int)sqlite3DbMallocRaw(db, 200);
** if( b ) a[10] = 9;
**
** In other words, if a subsequent malloc (ex: "b") worked, it is assumed
** that all prior mallocs (ex: "a") worked too.
*/
private static byte[] sqlite3DbMallocRaw(sqlite3 db, int n)
{
byte[] p;
Debug.Assert(db == null || sqlite3_mutex_held(db.mutex));
Debug.Assert(db == null || db.pnBytesFreed == 0);
#if !SQLITE_OMIT_LOOKASIDE
if( db ){
LookasideSlot *pBuf;
if( db->mallocFailed ){
return 0;
}
if( db->lookaside.bEnabled ){
if( n>db->lookaside.sz ){
db->lookaside.anStat[1]++;
}else if( (pBuf = db->lookaside.pFree)==0 ){
db->lookaside.anStat[2]++;
}else{
db->lookaside.pFree = pBuf->pNext;
db->lookaside.nOut++;
db->lookaside.anStat[0]++;
if( db->lookaside.nOut>db->lookaside.mxOut ){
db->lookaside.mxOut = db->lookaside.nOut;
}
return (void)pBuf;
}
}
}
#else
//if( db && db->mallocFailed ){
// return 0;
//}
#endif
p = sqlite3Malloc(n);
//if( null==p && db ){
// db->mallocFailed = 1;
//}
#if !SQLITE_OMIT_LOOKASIDE
sqlite3MemdebugSetType(p, MEMTYPE_DB |
((db !=null && db.lookaside.bEnabled) ? MEMTYPE_LOOKASIDE : MEMTYPE_HEAP));
#endif
return p;
}
/*
** Resize the block of memory pointed to by p to n bytes. If the
** resize fails, set the mallocFailed flag in the connection object.
*/
private static byte[] sqlite3DbRealloc(sqlite3 db, byte[] p, int n)
{
byte[] pNew = null;
Debug.Assert(db != null);
Debug.Assert(sqlite3_mutex_held(db.mutex));
//if( db->mallocFailed==0 ){
if (p == null)
{
return sqlite3DbMallocRaw(db, n);
}
#if !SQLITE_OMIT_LOOKASIDE
if( isLookaside(db, p) ){
if( n<=db->lookaside.sz ){
return p;
}
pNew = sqlite3DbMallocRaw(db, n);
if( pNew ){
memcpy(pNew, p, db->lookaside.sz);
sqlite3DbFree(db, ref p);
}
}else
#else
{
{
#endif
Debug.Assert(sqlite3MemdebugHasType(p, MEMTYPE_DB));
Debug.Assert(sqlite3MemdebugHasType(p, MEMTYPE_LOOKASIDE | MEMTYPE_HEAP));
sqlite3MemdebugSetType(p, MEMTYPE_HEAP);
pNew = sqlite3_realloc(p, n);
//if( null==pNew ){
//sqlite3MemdebugSetType(p, MEMTYPE_DB|MEMTYPE_HEAP);
// db->mallocFailed = 1;
//}
#if !SQLITE_OMIT_LOOKASIDE
sqlite3MemdebugSetType(pNew, MEMTYPE_DB |
(db.lookaside.bEnabled ? MEMTYPE_LOOKASIDE : MEMTYPE_HEAP));
#endif
}
}
return pNew;
}
/*
** Attempt to reallocate p. If the reallocation fails, then free p
** and set the mallocFailed flag in the database connection.
*/
private static byte[] sqlite3DbReallocOrFree(sqlite3 db, byte[] p, int n)
{
byte[] pNew;
pNew = sqlite3DbRealloc(db, p, n);
if (null == pNew)
{
sqlite3DbFree(db, ref p);
}
return pNew;
}
/*
** Make a copy of a string in memory obtained from sqliteMalloc(). These
** functions call sqlite3MallocRaw() directly instead of sqliteMalloc(). This
** is because when memory debugging is turned on, these two functions are
** called via macros that record the current file and line number in the
** ThreadData structure.
*/
//char *sqlite3DbStrDup(sqlite3 db, string z){
// string zNew;
// size_t n;
// if( z==0 ){
// return 0;
// }
// n = sqlite3Strlen30(z) + 1;
// Debug.Assert( (n&0x7fffffff)==n );
// zNew = sqlite3DbMallocRaw(db, (int)n);
// if( zNew ){
// memcpy(zNew, z, n);
// }
// return zNew;
//}
//char *sqlite3DbStrNDup(sqlite3 db, string z, int n){
// string zNew;
// if( z==0 ){
// return 0;
// }
// Debug.Assert( (n&0x7fffffff)==n );
// zNew = sqlite3DbMallocRaw(db, n+1);
// if( zNew ){
// memcpy(zNew, z, n);
// zNew[n] = 0;
// }
// return zNew;
//}
/*
** Create a string from the zFromat argument and the va_list that follows.
** Store the string in memory obtained from sqliteMalloc() and make pz
** point to that string.
*/
private static void sqlite3SetString(ref string pz, sqlite3 db, string zFormat, params string[] ap)
{
//va_list ap;
lock (lock_va_list)
{
string z;
va_start(ap, zFormat);
z = sqlite3VMPrintf(db, zFormat, ap);
va_end(ref ap);
sqlite3DbFree(db, ref pz);
pz = z;
}
}
/*
** This function must be called before exiting any API function (i.e.
** returning control to the user) that has called sqlite3_malloc or
** sqlite3_realloc.
**
** The returned value is normally a copy of the second argument to this
** function. However, if a malloc() failure has occurred since the previous
** invocation SQLITE_NOMEM is returned instead.
**
** If the first argument, db, is not NULL and a malloc() error has occurred,
** then the connection error-code (the value returned by sqlite3_errcode())
** is set to SQLITE_NOMEM.
*/
private static int sqlite3ApiExit(int zero, int rc)
{
sqlite3 db = null;
return sqlite3ApiExit(db, rc);
}
private static int sqlite3ApiExit(sqlite3 db, int rc)
{
/* If the db handle is not NULL, then we must hold the connection handle
** mutex here. Otherwise the read (and possible write) of db.mallocFailed
** is unsafe, as is the call to sqlite3Error().
*/
Debug.Assert(db == null || sqlite3_mutex_held(db.mutex));
if ( /*db != null && db.mallocFailed != 0 || */ rc == SQLITE_IOERR_NOMEM)
{
sqlite3Error(db, SQLITE_NOMEM, "");
//db.mallocFailed = 0;
rc = SQLITE_NOMEM;
}
return rc & (db != null ? db.errMask : 0xff);
}
}
}