XCache is a fast, stable PHP opcode cacher that has been proven and is now running on production servers under high load.
https://xcache.lighttpd.net/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
158 lines
4.4 KiB
158 lines
4.4 KiB
dnl DEF_HASH_TABLE_FUNC(1:name, 2:datatype [, 3:dataname]) |
|
define(`DEF_HASH_TABLE_FUNC', ` |
|
DEF_STRUCT_P_FUNC(`HashTable', `$1', ` |
|
pushdefFUNC_NAME(`$2', `$3') |
|
dnl {{{ dasm |
|
IFDASM(` |
|
const Bucket *srcBucket; |
|
zval *zv; |
|
int bufsize = 2; |
|
char *buf = emalloc(bufsize); |
|
int keysize; |
|
|
|
define(`AUTOCHECK_SKIP') |
|
IFAUTOCHECK(`xc_autocheck_skip = 1;') |
|
|
|
DISABLECHECK(` |
|
for (srcBucket = SRC(`pListHead'); srcBucket != NULL; srcBucket = srcBucket->pListNext) { |
|
ALLOC_INIT_ZVAL(zv); |
|
array_init(zv); |
|
FUNC_NAME (dasm, zv, (($2*)srcBucket->pData) TSRMLS_CC); |
|
keysize = BUCKET_KEY_SIZE(srcBucket) + 2; |
|
if (keysize > bufsize) { |
|
do { |
|
bufsize *= 2; |
|
} while (keysize > bufsize); |
|
buf = erealloc(buf, bufsize); |
|
} |
|
memcpy(buf, BUCKET_KEY_S(srcBucket), keysize); |
|
buf[keysize - 2] = buf[keysize - 1] = ""[0]; |
|
keysize = srcBucket->nKeyLength; |
|
#ifdef IS_UNICODE |
|
if (BUCKET_KEY_TYPE(srcBucket) == IS_UNICODE) { |
|
if (buf[0] == ""[0] && buf[1] == ""[0]) { |
|
keysize ++; |
|
} |
|
} else |
|
#endif |
|
{ |
|
if (buf[0] == ""[0]) { |
|
keysize ++; |
|
} |
|
} |
|
add_u_assoc_zval_ex(dst, BUCKET_KEY_TYPE(srcBucket), ZSTR(buf), keysize, zv); |
|
} |
|
') |
|
|
|
efree(buf); |
|
', ` dnl IFDASM else |
|
dnl }}} |
|
Bucket *srcBucket; |
|
IFCOPY(`Bucket *dstBucket = NULL, *prev = NULL;') |
|
zend_bool first = 1; |
|
dnl only used for copy |
|
IFCOPY(`uint n;') |
|
IFCALCCOPY(`size_t bucketsize;') |
|
|
|
#if defined(HARDENING_PATCH_HASH_PROTECT) && HARDENING_PATCH_HASH_PROTECT |
|
IFRESTORE(`DST(`canary') = zend_hash_canary; DONE(canary)', ` |
|
dnl else |
|
PROCESS(unsigned int, canary) |
|
') |
|
#endif |
|
PROCESS(uint, nTableSize) |
|
PROCESS(uint, nTableMask) |
|
PROCESS(uint, nNumOfElements) |
|
PROCESS(ulong, nNextFreeElement) |
|
IFCOPY(`DST(`pInternalPointer') = NULL; /* Used for element traversal */') DONE(pInternalPointer) |
|
IFCOPY(`DST(`pListHead') = NULL;') DONE(pListHead) |
|
#ifdef ZEND_ENGINE_2_4 |
|
if (SRC(`nTableMask')) { |
|
#endif |
|
CALLOC(`DST(`arBuckets')', Bucket*, SRC(`nTableSize')) |
|
DONE(arBuckets) |
|
DISABLECHECK(` |
|
for (srcBucket = SRCPTR_EX(`Bucket', SRC(`pListHead')); srcBucket != NULL; srcBucket = SRCPTR_EX(`Bucket', `srcBucket->pListNext')) { |
|
IFCALCCOPY(`bucketsize = BUCKET_SIZE(srcBucket);') |
|
ALLOC(dstBucket, char, bucketsize, , Bucket) |
|
IFCOPY(` |
|
#ifdef ZEND_ENGINE_2_4 |
|
memcpy(dstBucket, srcBucket, BUCKET_HEAD_SIZE(Bucket)); |
|
if (BUCKET_KEY_SIZE(srcBucket)) { |
|
memcpy((char *) (dstBucket + 1), srcBucket->arKey, BUCKET_KEY_SIZE(srcBucket)); |
|
dstBucket->arKey = (const char *) (dstBucket + 1); |
|
} |
|
else { |
|
dstBucket->arKey = NULL; |
|
} |
|
#else |
|
memcpy(dstBucket, srcBucket, bucketsize); |
|
#endif |
|
n = srcBucket->h & SRC(`nTableMask'); |
|
/* dstBucket into hash node chain */ |
|
dstBucket->pLast = NULL; |
|
dstBucket->pNext = DST(`arBuckets[n]'); |
|
if (dstBucket->pNext) { |
|
dstBucket->pNext->pLast = dstBucket; |
|
} |
|
') |
|
IFDPRINT(` |
|
INDENT() |
|
fprintf(stderr, "$2:\""); |
|
xc_dprint_str_len(BUCKET_KEY_S(srcBucket), BUCKET_KEY_SIZE(srcBucket)); |
|
fprintf(stderr, "\" %d:h=%lu ", BUCKET_KEY_SIZE(srcBucket), srcBucket->h); |
|
') |
|
if (sizeof(void *) == sizeof($2)) { |
|
IFCOPY(`dstBucket->pData = &dstBucket->pDataPtr;') |
|
IFRELOCATE(`srcBucket->pData = &srcBucket->pDataPtr;') |
|
dnl $6 = ` ' to skip alloc, skip pointer fix |
|
STRUCT_P_EX(`$2', dstBucket->pData, (($2*)srcBucket->pData), `', `$3', ` ') |
|
FIXPOINTER_EX(`$2', dstBucket->pData) |
|
} |
|
else { |
|
STRUCT_P_EX(`$2', dstBucket->pData, (($2*)srcBucket->pData), `', `$3') |
|
IFCOPY(`dstBucket->pDataPtr = NULL;') |
|
} |
|
|
|
if (first) { |
|
IFCOPY(`DST(`pListHead') = dstBucket;') |
|
first = 0; |
|
} |
|
|
|
IFCOPY(` |
|
/* flat link */ |
|
dstBucket->pListLast = prev; |
|
dstBucket->pListNext = NULL; |
|
if (prev) { |
|
prev->pListNext = dstBucket; |
|
} |
|
prev = dstBucket; |
|
') |
|
FIXPOINTER_EX(`Bucket', `dstBucket') |
|
IFCOPY(` |
|
DST(`arBuckets[n]') = dstBucket; |
|
') |
|
} |
|
') dnl DISABLECHECK |
|
FIXPOINTER(Bucket *, arBuckets) |
|
#ifdef ZEND_ENGINE_2_4 |
|
} |
|
else { /* if (SRC(`nTableMask')) */ |
|
DONE(arBuckets) |
|
} |
|
#endif |
|
IFCOPY(`DST(`pListTail') = dstBucket;') DONE(pListTail) |
|
IFCOPY(`DST(`pDestructor') = SRC(`pDestructor');') DONE(pDestructor) |
|
PROCESS(zend_bool, persistent) |
|
#ifdef IS_UNICODE |
|
PROCESS(zend_bool, unicode) |
|
#endif |
|
PROCESS(unsigned char, nApplyCount) |
|
PROCESS(zend_bool, bApplyProtection) |
|
#if ZEND_DEBUG |
|
PROCESS(int, inconsistent) |
|
#endif |
|
')dnl IFDASM |
|
popdef(`FUNC_NAME') |
|
') |
|
')
|
|
|