320 lines
7.4 KiB
C
320 lines
7.4 KiB
C
|
/*
|
||
|
|
Expression Evaluator Library (NS-EEL) v2
|
||
|
|
Copyright (C) 2004-2008 Cockos Incorporated
|
||
|
|
Copyright (C) 1999-2003 Nullsoft, Inc.
|
||
|
|
|
||
|
|
This software is provided 'as-is', without any express or implied
|
||
|
|
warranty. In no event will the authors be held liable for any damages
|
||
|
|
arising from the use of this software.
|
||
|
|
|
||
|
|
Permission is granted to anyone to use this software for any purpose,
|
||
|
|
including commercial applications, and to alter it and redistribute it
|
||
|
|
freely, subject to the following restrictions:
|
||
|
|
|
||
|
|
1. The origin of this software must not be misrepresented; you must not
|
||
|
|
claim that you wrote the original software. If you use this software
|
||
|
|
in a product, an acknowledgment in the product documentation would be
|
||
|
|
appreciated but is not required.
|
||
|
|
2. Altered source versions must be plainly marked as such, and must not be
|
||
|
|
misrepresented as being the original software.
|
||
|
|
3. This notice may not be removed or altered from any source distribution.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "ns-eel.h"
|
||
|
|
#include "ns-eel-int.h"
|
||
|
|
#include <math.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
|
||
|
|
|
||
|
|
#ifdef _WIN32
|
||
|
|
#include <malloc.h>
|
||
|
|
#endif
|
||
|
|
|
||
|
|
unsigned int NSEEL_RAM_limitmem=0;
|
||
|
|
unsigned int NSEEL_RAM_memused=0;
|
||
|
|
int NSEEL_RAM_memused_errors=0;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
int NSEEL_VM_wantfreeRAM(NSEEL_VMCTX ctx)
|
||
|
|
{
|
||
|
|
if (ctx)
|
||
|
|
{
|
||
|
|
compileContext *c=(compileContext*)ctx;
|
||
|
|
if (c->ram_needfree)
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
void NSEEL_VM_freeRAMIfCodeRequested(NSEEL_VMCTX ctx) // check to see if our free flag was set
|
||
|
|
{
|
||
|
|
if (ctx)
|
||
|
|
{
|
||
|
|
compileContext *c=(compileContext*)ctx;
|
||
|
|
if (c->ram_needfree)
|
||
|
|
{
|
||
|
|
NSEEL_HOSTSTUB_EnterMutex();
|
||
|
|
if (c->ram_blocks)
|
||
|
|
{
|
||
|
|
INT_PTR startpos=((INT_PTR)c->ram_needfree)-1;
|
||
|
|
EEL_F **blocks = (EEL_F **)c->ram_blocks;
|
||
|
|
INT_PTR pos=0;
|
||
|
|
int x;
|
||
|
|
for (x = 0; x < NSEEL_RAM_BLOCKS; x ++)
|
||
|
|
{
|
||
|
|
if (pos >= startpos)
|
||
|
|
{
|
||
|
|
if (blocks[x])
|
||
|
|
{
|
||
|
|
if (NSEEL_RAM_memused >= sizeof(EEL_F) * NSEEL_RAM_ITEMSPERBLOCK)
|
||
|
|
NSEEL_RAM_memused -= sizeof(EEL_F) * NSEEL_RAM_ITEMSPERBLOCK;
|
||
|
|
else NSEEL_RAM_memused_errors++;
|
||
|
|
}
|
||
|
|
free(blocks[x]);
|
||
|
|
blocks[x]=0;
|
||
|
|
}
|
||
|
|
pos+=NSEEL_RAM_ITEMSPERBLOCK;
|
||
|
|
}
|
||
|
|
if (!startpos)
|
||
|
|
{
|
||
|
|
free(blocks);
|
||
|
|
c->ram_blocks=0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
c->ram_needfree=0;
|
||
|
|
NSEEL_HOSTSTUB_LeaveMutex();
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
EEL_F * NSEEL_CGEN_CALL __NSEEL_RAMAllocGMEM(EEL_F ***blocks, int w)
|
||
|
|
{
|
||
|
|
static EEL_F * volatile gmembuf;
|
||
|
|
if (blocks) return __NSEEL_RAMAlloc(blocks,w);
|
||
|
|
|
||
|
|
if (!gmembuf)
|
||
|
|
{
|
||
|
|
NSEEL_HOSTSTUB_EnterMutex();
|
||
|
|
if (!gmembuf) gmembuf=(EEL_F*)calloc(sizeof(EEL_F),NSEEL_SHARED_GRAM_SIZE);
|
||
|
|
NSEEL_HOSTSTUB_LeaveMutex();
|
||
|
|
|
||
|
|
if (!gmembuf) return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
return gmembuf+(((unsigned int)w)&((NSEEL_SHARED_GRAM_SIZE)-1));
|
||
|
|
}
|
||
|
|
|
||
|
|
EEL_F * NSEEL_CGEN_CALL __NSEEL_RAMAlloc(EEL_F ***blocks, int w)
|
||
|
|
{
|
||
|
|
int whichblock;
|
||
|
|
EEL_F **pblocks=*blocks;
|
||
|
|
|
||
|
|
int is_locked=0;
|
||
|
|
|
||
|
|
if (!pblocks)
|
||
|
|
{
|
||
|
|
if (!is_locked) { is_locked=1; NSEEL_HOSTSTUB_EnterMutex(); }
|
||
|
|
|
||
|
|
if (!(pblocks=*blocks))
|
||
|
|
{
|
||
|
|
pblocks = *blocks = (EEL_F **)calloc(sizeof(EEL_F *),NSEEL_RAM_BLOCKS);
|
||
|
|
if (!pblocks) {
|
||
|
|
if (is_locked) NSEEL_HOSTSTUB_LeaveMutex();
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// fprintf(stderr,"got request at %d, %d\n",w/NSEEL_RAM_ITEMSPERBLOCK, w&(NSEEL_RAM_ITEMSPERBLOCK-1));
|
||
|
|
if (w >= 0 && (whichblock = w/NSEEL_RAM_ITEMSPERBLOCK) < NSEEL_RAM_BLOCKS)
|
||
|
|
{
|
||
|
|
EEL_F *p=pblocks[whichblock];
|
||
|
|
if (!p)
|
||
|
|
{
|
||
|
|
if (!is_locked) { is_locked=1; NSEEL_HOSTSTUB_EnterMutex(); }
|
||
|
|
|
||
|
|
if (!(p=pblocks[whichblock]))
|
||
|
|
{
|
||
|
|
|
||
|
|
const int msize=sizeof(EEL_F) * NSEEL_RAM_ITEMSPERBLOCK;
|
||
|
|
if (!NSEEL_RAM_limitmem || NSEEL_RAM_memused+msize < NSEEL_RAM_limitmem)
|
||
|
|
{
|
||
|
|
p=pblocks[whichblock]=(EEL_F *)calloc(sizeof(EEL_F),NSEEL_RAM_ITEMSPERBLOCK);
|
||
|
|
if (p) NSEEL_RAM_memused+=msize;
|
||
|
|
}
|
||
|
|
if (!p) w=0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (is_locked) NSEEL_HOSTSTUB_LeaveMutex();
|
||
|
|
return p + (w&(NSEEL_RAM_ITEMSPERBLOCK-1));
|
||
|
|
}
|
||
|
|
if (is_locked) NSEEL_HOSTSTUB_LeaveMutex();
|
||
|
|
// fprintf(stderr,"ret 0\n");
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
EEL_F * NSEEL_CGEN_CALL __NSEEL_RAM_MemFree(EEL_F ***blocks, EEL_F *which)
|
||
|
|
{
|
||
|
|
int d=EEL_F2int(*which);
|
||
|
|
if (d < 0) d=0;
|
||
|
|
if (d < NSEEL_RAM_BLOCKS*NSEEL_RAM_ITEMSPERBLOCK) ((INT_PTR *)blocks)[1]=1+d;
|
||
|
|
return which;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
EEL_F * NSEEL_CGEN_CALL __NSEEL_RAM_MemCpy(EEL_F ***blocks,EEL_F *dest, EEL_F *src, EEL_F *lenptr)
|
||
|
|
{
|
||
|
|
int dest_offs = EEL_F2int(*dest + 0.0001);
|
||
|
|
int src_offs = EEL_F2int(*src + 0.0001);
|
||
|
|
int len = EEL_F2int(*lenptr + 0.0001);
|
||
|
|
|
||
|
|
// trim to front
|
||
|
|
if (src_offs<0)
|
||
|
|
{
|
||
|
|
len += src_offs;
|
||
|
|
dest_offs -= src_offs;
|
||
|
|
src_offs=0;
|
||
|
|
}
|
||
|
|
if (dest_offs<0)
|
||
|
|
{
|
||
|
|
len += dest_offs;
|
||
|
|
src_offs -= dest_offs;
|
||
|
|
dest_offs=0;
|
||
|
|
}
|
||
|
|
|
||
|
|
while (len > 0)
|
||
|
|
{
|
||
|
|
EEL_F *srcptr,*destptr;
|
||
|
|
int copy_len = len;
|
||
|
|
int maxdlen=NSEEL_RAM_ITEMSPERBLOCK - (dest_offs&(NSEEL_RAM_ITEMSPERBLOCK-1));
|
||
|
|
int maxslen=NSEEL_RAM_ITEMSPERBLOCK - (src_offs&(NSEEL_RAM_ITEMSPERBLOCK-1));
|
||
|
|
|
||
|
|
if (dest_offs >= NSEEL_RAM_BLOCKS*NSEEL_RAM_ITEMSPERBLOCK ||
|
||
|
|
src_offs >= NSEEL_RAM_BLOCKS*NSEEL_RAM_ITEMSPERBLOCK) break;
|
||
|
|
|
||
|
|
if (copy_len > maxdlen) copy_len=maxdlen;
|
||
|
|
if (copy_len > maxslen) copy_len=maxslen;
|
||
|
|
|
||
|
|
if (copy_len<1) break;
|
||
|
|
|
||
|
|
srcptr = __NSEEL_RAMAlloc(blocks,src_offs);
|
||
|
|
destptr = __NSEEL_RAMAlloc(blocks,dest_offs);
|
||
|
|
if (!srcptr || !destptr) break;
|
||
|
|
|
||
|
|
memmove(destptr,srcptr,sizeof(EEL_F)*copy_len);
|
||
|
|
src_offs+=copy_len;
|
||
|
|
dest_offs+=copy_len;
|
||
|
|
len-=copy_len;
|
||
|
|
}
|
||
|
|
return dest;
|
||
|
|
}
|
||
|
|
|
||
|
|
EEL_F * NSEEL_CGEN_CALL __NSEEL_RAM_MemSet(EEL_F ***blocks,EEL_F *dest, EEL_F *v, EEL_F *lenptr)
|
||
|
|
{
|
||
|
|
int offs = EEL_F2int(*dest + 0.0001);
|
||
|
|
int len = EEL_F2int(*lenptr + 0.0001);
|
||
|
|
EEL_F t;
|
||
|
|
if (offs<0)
|
||
|
|
{
|
||
|
|
len += offs;
|
||
|
|
offs=0;
|
||
|
|
}
|
||
|
|
if (offs >= NSEEL_RAM_BLOCKS*NSEEL_RAM_ITEMSPERBLOCK) return dest;
|
||
|
|
|
||
|
|
if (offs+len > NSEEL_RAM_BLOCKS*NSEEL_RAM_ITEMSPERBLOCK) len = NSEEL_RAM_BLOCKS*NSEEL_RAM_ITEMSPERBLOCK - offs;
|
||
|
|
|
||
|
|
if (len < 1) return dest;
|
||
|
|
|
||
|
|
|
||
|
|
t=*v; // set value
|
||
|
|
|
||
|
|
// int lastBlock=-1;
|
||
|
|
while (len > 0)
|
||
|
|
{
|
||
|
|
int lcnt;
|
||
|
|
EEL_F *ptr=__NSEEL_RAMAlloc(blocks,offs);
|
||
|
|
if (!ptr) break;
|
||
|
|
|
||
|
|
lcnt=NSEEL_RAM_ITEMSPERBLOCK-(offs&(NSEEL_RAM_ITEMSPERBLOCK-1));
|
||
|
|
if (lcnt > len) lcnt=len;
|
||
|
|
|
||
|
|
len -= lcnt;
|
||
|
|
offs += lcnt;
|
||
|
|
|
||
|
|
while (lcnt--)
|
||
|
|
{
|
||
|
|
*ptr++=t;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return dest;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
void NSEEL_VM_SetGRAM(NSEEL_VMCTX ctx, void **gram)
|
||
|
|
{
|
||
|
|
if (ctx)
|
||
|
|
{
|
||
|
|
compileContext *c=(compileContext*)ctx;
|
||
|
|
c->gram_blocks = gram;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
void NSEEL_VM_freeRAM(NSEEL_VMCTX ctx)
|
||
|
|
{
|
||
|
|
if (ctx)
|
||
|
|
{
|
||
|
|
int x;
|
||
|
|
compileContext *c=(compileContext*)ctx;
|
||
|
|
if (c->ram_blocks)
|
||
|
|
{
|
||
|
|
EEL_F **blocks = (EEL_F **)c->ram_blocks;
|
||
|
|
for (x = 0; x < NSEEL_RAM_BLOCKS; x ++)
|
||
|
|
{
|
||
|
|
if (blocks[x])
|
||
|
|
{
|
||
|
|
if (NSEEL_RAM_memused >= sizeof(EEL_F) * NSEEL_RAM_ITEMSPERBLOCK)
|
||
|
|
NSEEL_RAM_memused -= sizeof(EEL_F) * NSEEL_RAM_ITEMSPERBLOCK;
|
||
|
|
else NSEEL_RAM_memused_errors++;
|
||
|
|
}
|
||
|
|
free(blocks[x]);
|
||
|
|
blocks[x]=0;
|
||
|
|
}
|
||
|
|
free(blocks);
|
||
|
|
c->ram_blocks=0;
|
||
|
|
}
|
||
|
|
c->ram_needfree=0; // no need to free anymore
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void NSEEL_VM_FreeGRAM(void **ufd)
|
||
|
|
{
|
||
|
|
if (ufd[0])
|
||
|
|
{
|
||
|
|
EEL_F **blocks = (EEL_F **)ufd[0];
|
||
|
|
int x;
|
||
|
|
for (x = 0; x < NSEEL_RAM_BLOCKS; x ++)
|
||
|
|
{
|
||
|
|
if (blocks[x])
|
||
|
|
{
|
||
|
|
if (NSEEL_RAM_memused >= sizeof(EEL_F) * NSEEL_RAM_ITEMSPERBLOCK)
|
||
|
|
NSEEL_RAM_memused -= sizeof(EEL_F) * NSEEL_RAM_ITEMSPERBLOCK;
|
||
|
|
else NSEEL_RAM_memused_errors++;
|
||
|
|
}
|
||
|
|
free(blocks[x]);
|
||
|
|
blocks[x]=0;
|
||
|
|
}
|
||
|
|
free(blocks);
|
||
|
|
ufd[0]=0;
|
||
|
|
}
|
||
|
|
}
|