xcache
/
xcache
1
0
Fork 0
Code Releases Activity

adds class const support for {{{__FILE__ __DIR__}}}

Browse Source 
git-svn-id: svn://svn.lighttpd.net/xcache/trunk@1530 c26eb9a1-5813-0410-bd6c-c2e55f420ca7
master
Xuefer 8 years ago
parent 70ad55bed7
commit 46d274fba2
6 changed files with 299 additions and 276 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 1
      ChangeLog
  2. 2
      NEWS
  3. 9
      lib/Decompiler.class.php
  4. 48
      mod_cacher/xc_cache.h
  5. 455
      mod_cacher/xc_cacher.c
  6. 60
      processor/processor.m4

1
ChangeLog
Unescape View File

@ -9,6 +9,7 @@ ChangeLog
* cacher:
* (WIP) defragment
* (WIP) cache to disk
* added class const support for __FILE__ __DIR__
* disassembler, decompiler:
* PHP_5_6 support
* misc:

2
NEWS
Unescape View File

@ -2,6 +2,8 @@
========
* api updates
* cache defragment, cache to disk
* added class const support for __FILE__ __DIR__
* updated disassembler decompiler support
3.2.1 2013-??-??
========

9
lib/Decompiler.class.php
Unescape View File

@ -586,6 +586,7 @@ class Decompiler
var $namespace;
var $namespaceDecided;
var $activeFile;
var $activeDir;
var $activeClass;
var $activeMethod;
var $activeFunction;
@ -1516,6 +1517,9 @@ class Decompiler
if (isset($this->activeFile)) {
$EX['value2constant'][$this->activeFile] = '__FILE__';
}
if (isset($this->activeDir)) {
$EX['value2constant'][$this->activeDir] = '__DIR__';
}
if (isset($this->activeClass)) {
$EX['value2constant'][$this->activeClass] = '__CLASS__';
}
@ -2791,6 +2795,7 @@ class Decompiler
return false;
}
$this->activeFile = null;
$this->activeDir = null;
return true;
}
// }}}
@ -2802,6 +2807,9 @@ class Decompiler
return false;
}
$this->activeFile = realpath($file);
if (ZEND_ENGINE_2_3) {
$this->activeDir = dirname($this->activeFile);
}
return true;
}
// }}}
@ -2809,6 +2817,7 @@ class Decompiler
{
$this->dc = $content;
$this->activeFile = null;
$this->activeDir = null;
return true;
}
// }}}

48
mod_cacher/xc_cache.h
Unescape View File

@ -16,21 +16,16 @@ typedef struct _xc_entry_data_php_t xc_entry_data_php_t;
struct _xc_lock_t;
struct _xc_shm_t;
/* {{{ xc_op_array_info_detail_t */
/* {{{ xc_constant_info_t */
typedef struct {
zend_uint index;
zend_uint info;
} xc_op_array_info_detail_t;
} xc_constant_info_t;
/* }}} */
/* {{{ xc_op_array_info_t */
typedef struct {
#ifdef ZEND_ENGINE_2_4
zend_uint literalinfo_cnt;
xc_op_array_info_detail_t *literalinfos;
#else
zend_uint oplineinfo_cnt;
xc_op_array_info_detail_t *oplineinfos;
#endif
zend_uint constantinfo_cnt;
xc_constant_info_t *constantinfos;
} xc_op_array_info_t;
/* }}} */
/* {{{ xc_classinfo_t */
@ -43,6 +38,10 @@ typedef struct {
ulong h;
zend_uint methodinfo_cnt;
xc_op_array_info_t *methodinfos;
#ifdef ZEND_ENGINE_2
zend_uint constantinfo_cnt;
xc_constant_info_t *constantinfos;
#endif
xc_cest_t cest;
#ifndef ZEND_COMPILE_DELAYED_BINDING
int oplineno;
@ -147,6 +146,18 @@ struct _xc_entry_t {
xc_entry_name_t name;
};
typedef struct {
char *str;
size_t len;
} xc_constant_string_t;
#ifdef IS_UNICODE
typedef struct {
UChar *str;
size_t len;
} xc_constant_u_string_t;
#endif
typedef struct {
xc_entry_t entry;
xc_entry_data_php_t *php;
@ -157,19 +168,13 @@ typedef struct {
size_t file_device;
size_t file_inode;
size_t filepath_len;
ZEND_24(NOTHING, const) char *filepath;
xc_constant_string_t filepath;
#ifdef ZEND_ENGINE_2_3
size_t dirpath_len;
char *dirpath;
xc_constant_string_t dirpath;
#endif
#ifdef IS_UNICODE
int ufilepath_len;
UChar *ufilepath;
# ifdef ZEND_ENGINE_2_3
int udirpath_len;
UChar *udirpath;
# endif
xc_constant_u_string_t u_filepath;
xc_constant_u_string_t u_dirpath;
#endif
} xc_entry_php_t;
@ -204,6 +209,9 @@ typedef struct {
} xc_gc_op_array_t;
/* }}} */
void xc_gc_add_op_array(xc_gc_op_array_t *gc_op_array TSRMLS_DC);
void xc_fix_op_array_info(const xc_entry_php_t *xce, const xc_entry_data_php_t *php, zend_op_array *op_array, int shallow_copy, const xc_op_array_info_t *op_array_info TSRMLS_DC);
#ifdef ZEND_ENGINE_2
void xc_fix_class_info(const xc_entry_php_t *entry_php, xc_classinfo_t *classinfo, int shallow_copy TSRMLS_DC);
#endif
void xc_fix_op_array_info(const xc_entry_php_t *xce, zend_op_array *op_array, int shallow_copy, const xc_op_array_info_t *op_array_info TSRMLS_DC);
#endif /* XC_CACHE_H_684B099102B4651FB10058EF6F7E80CE */

455
mod_cacher/xc_cacher.c
Unescape View File

@ -1,4 +1,4 @@
#if 0
#if 1
#define XCACHE_DEBUG
#endif
@ -942,12 +942,12 @@ static void xc_entry_free_key_php(xc_entry_php_t *entry_php TSRMLS_DC) /* {{{ */
} \
} while (0)
#ifdef ZEND_ENGINE_2_3
X_FREE(dirpath);
X_FREE(dirpath.str);
#endif
#ifdef IS_UNICODE
X_FREE(ufilepath);
X_FREE(u_filepath.str);
# ifdef ZEND_ENGINE_2_3
X_FREE(udirpath);
X_FREE(u_dirpath.str);
# endif
#endif
@ -1269,15 +1269,13 @@ static int xc_entry_php_init_key(xc_compiler_t *compiler TSRMLS_DC) /* {{{ */
, &xc_php_hentry);
}
compiler->new_entry.filepath = NULL;
compiler->new_entry.filepath.str = NULL;
#ifdef ZEND_ENGINE_2_3
compiler->new_entry.dirpath = NULL;
compiler->new_entry.dirpath.str = NULL;
#endif
#ifdef IS_UNICODE
compiler->new_entry.ufilepath = NULL;
# ifdef ZEND_ENGINE_2_3
compiler->new_entry.udirpath = NULL;
# endif
compiler->new_entry.u_filepath.str = NULL;
compiler->new_entry.u_dirpath.str = NULL;
#endif
return SUCCESS;
@ -1330,17 +1328,15 @@ static int xc_entry_data_php_init_md5(xc_cache_t *cache, xc_compiler_t *compiler
/* }}} */
static void xc_entry_php_init(xc_entry_php_t *entry_php, const char *filepath TSRMLS_DC) /* {{{*/
{
entry_php->filepath = ZEND_24((char *), NOTHING) filepath;
entry_php->filepath_len = strlen(entry_php->filepath);
entry_php->filepath.str = ZEND_24((char *), NOTHING) filepath;
entry_php->filepath.len = strlen(entry_php->filepath.str);
#ifdef ZEND_ENGINE_2_3
entry_php->dirpath = estrndup(entry_php->filepath, entry_php->filepath_len);
entry_php->dirpath_len = zend_dirname(entry_php->dirpath, entry_php->filepath_len);
entry_php->dirpath.str = estrndup(entry_php->filepath.str, entry_php->filepath.len);
entry_php->dirpath.len = zend_dirname(entry_php->dirpath.str, entry_php->filepath.len);
#endif
#ifdef IS_UNICODE
zend_string_to_unicode(ZEND_U_CONVERTER(UG(runtime_encoding_conv)), &entry_php->ufilepath, &entry_php->ufilepath_len, entry_php->filepath, entry_php->filepath_len TSRMLS_CC);
# ifdef ZEND_ENGINE_2_3
zend_string_to_unicode(ZEND_U_CONVERTER(UG(runtime_encoding_conv)), &entry_php->udirpath, &entry_php->udirpath_len, entry_php->dirpath, entry_php->dirpath_len TSRMLS_CC);
# endif
zend_string_to_unicode(ZEND_U_CONVERTER(UG(runtime_encoding_conv)), &entry_php->u_filepath.str, &entry_php->u_filepath.len, entry_php->filepath.str, entry_php->filepath.len TSRMLS_CC);
zend_string_to_unicode(ZEND_U_CONVERTER(UG(runtime_encoding_conv)), &entry_php->u_dirpath.str, &entry_php->u_dirpath.len, entry_php->dirpath.str, entry_php->dirpath.len TSRMLS_CC);
#endif
}
/* }}} */
@ -1376,30 +1372,77 @@ static void xc_cache_early_binding_class_cb(zend_op *opline, int oplineno, void
#endif
/* {{{ Constant Usage */
#ifdef ZEND_ENGINE_2_4
# define xcache_literal_is_file 1
# define xcache_literal_is_dir 2
#else
# define xcache_op1_is_file 1
# define xcache_op2_is_file 2
# ifdef ZEND_ENGINE_2_3
# define xcache_op1_is_dir 4
# define xcache_op2_is_dir 8
# endif
#define xcache_constant_is_file 1
#ifdef ZEND_ENGINE_2_3
# define xcache_constant_is_dir 2
#endif
#define xcache_constant_info_mask 0x0F
#define xcache_constant_info_shift 4
typedef struct {
zend_bool filepath_used;
#ifdef ZEND_ENGINE_2_3
zend_bool dirpath_used;
#endif
#ifdef IS_UNICODE
zend_bool ufilepath_used;
zend_bool u_filepath_used;
# ifdef ZEND_ENGINE_2_3
zend_bool udirpath_used;
zend_bool u_dirpath_used;
# endif
#endif
} xc_const_usage_t;
#define XCACHE_ANALYZE_CONSTANT(type, u_, shift) \
if (zend_##u_##binary_strcmp(Z_STRVAL_P(constant), Z_STRLEN_P(constant), compiler->new_entry.u_##type##path.str, compiler->new_entry.u_##type##path.len) == 0) { \
usage->u_##type##path_used = 1; \
constantinfo |= xcache_constant_is_##type << (shift * xcache_constant_info_shift); \
TRACE("found %s constant %s", #type, Z_STRVAL_P(constant)); \
}
/* }}} */
#ifdef ZEND_ENGINE_2
static void xc_collect_class_constant_info(xc_compiler_t *compiler, xc_const_usage_t *usage, xc_classinfo_t *classinfo, HashTable *constants TSRMLS_DC) /* {{{ */
{
zend_uint count = 0;
uint index;
xc_vector_t constantinfos;
xc_vector_init(xc_constant_info_t, &constantinfos);
for (index = 0; index < constants->nTableSize; ++index) {
Bucket *bucket;
zend_uint index2 = 0;
for (bucket = constants->arBuckets[index]; bucket; bucket = bucket->pNext, ++index2) {
zval *constant = *(zval **) bucket->pData;
zend_uint constantinfo = 0;
assert(constant);
if ((Z_TYPE_P(constant) & IS_CONSTANT_TYPE_MASK) == IS_STRING) {
XCACHE_ANALYZE_CONSTANT(file, , 0)
else XCACHE_ANALYZE_CONSTANT(dir, , 0)
}
# ifdef IS_UNICODE
else if ((Z_TYPE_P(constant) & IS_CONSTANT_TYPE_MASK) == IS_UNICODE) {
XCACHE_ANALYZE_CONSTANT(file, u_, 0)
else XCACHE_ANALYZE_CONSTANT(dir, u_, 0)
}
# endif
if (constantinfo) {
xc_constant_info_t detail;
detail.index = index2 * constants->nTableSize + index;
detail.info = constantinfo;
xc_vector_add(xc_constant_info_t, &constantinfos, detail);
}
}
}
classinfo->constantinfo_cnt = constantinfos.cnt;
classinfo->constantinfos = xc_vector_detach(xc_constant_info_t, &constantinfos);
}
/* }}} */
#endif
static void xc_collect_op_array_info(xc_compiler_t *compiler, xc_const_usage_t *usage, xc_op_array_info_t *op_array_info, zend_op_array *op_array TSRMLS_DC) /* {{{ */
{
#ifdef ZEND_ENGINE_2_4
@ -1407,263 +1450,198 @@ static void xc_collect_op_array_info(xc_compiler_t *compiler, xc_const_usage_t *
#else
zend_uint oplinenum;
#endif
xc_vector_t details;
xc_vector_t constantinfos;
xc_vector_init(xc_op_array_info_detail_t, &details);
#define XCACHE_ANALYZE_LITERAL(type) \
if (zend_binary_strcmp(Z_STRVAL(literal->constant), Z_STRLEN(literal->constant), compiler->new_entry.type##path, compiler->new_entry.type##path_len) == 0) { \
usage->type##path_used = 1; \
literalinfo |= xcache_##literal##_is_##type; \
}
#define XCACHE_U_ANALYZE_LITERAL(type) \
if (zend_u_##binary_strcmp(Z_USTRVAL(literal->constant), Z_USTRLEN(literal->constant), compiler->new_entry.u##type##path, compiler->new_entry.u##type##path_len) == 0) { \
usage->u##type##path_used = 1; \
literalinfo |= xcache_##literal##_is_##type; \
}
#define XCACHE_ANALYZE_OP(type, op) \
if (zend_binary_strcmp(Z_STRVAL(Z_OP_CONSTANT(opline->op)), Z_STRLEN(Z_OP_CONSTANT(opline->op)), compiler->new_entry.type##path, compiler->new_entry.type##path_len) == 0) { \
usage->type##path_used = 1; \
oplineinfo |= xcache_##op##_is_##type; \
}
#define XCACHE_U_ANALYZE_OP(type, op) \
if (zend_u_##binary_strcmp(Z_USTRVAL(Z_OP_CONSTANT(opline->op)), Z_USTRLEN(Z_OP_CONSTANT(opline->op)), compiler->new_entry.u##type##path, compiler->new_entry.u##type##path_len) == 0) { \
usage->u##type##path_used = 1; \
oplineinfo |= xcache_##op##_is_##type; \
}
xc_vector_init(xc_constant_info_t, &constantinfos);
#ifdef ZEND_ENGINE_2_4
for (literalindex = 0; literalindex < op_array->last_literal; literalindex++) {
zend_literal *literal = &op_array->literals[literalindex];
zend_uint literalinfo = 0;
if (Z_TYPE(literal->constant) == IS_STRING) {
XCACHE_ANALYZE_LITERAL(file)
else XCACHE_ANALYZE_LITERAL(dir)
zval *constant = &literal->constant;
zend_uint constantinfo = 0;
if (Z_TYPE_P(constant) == IS_STRING) {
XCACHE_ANALYZE_CONSTANT(file, , 0)
else XCACHE_ANALYZE_CONSTANT(dir, , 0)
}
# ifdef IS_UNICODE
else if (Z_TYPE(literal->constant) == IS_UNICODE) {
XCACHE_U_ANALYZE_LITERAL(file)
else XCACHE_U_ANALYZE_LITERAL(dir)
else if (Z_TYPE_P(constant) == IS_UNICODE) {
XCACHE_ANALYZE_CONSTANT(file, u_, 0)
else XCACHE_ANALYZE_CONSTANT(dir, u_, 0)
}
# endif
if (literalinfo) {
xc_op_array_info_detail_t detail;
if (constantinfo) {
xc_constant_info_t detail;
detail.index = literalindex;
detail.info = literalinfo;
xc_vector_add(xc_op_array_info_detail_t, &details, detail);
detail.info = constantinfo;
xc_vector_add(xc_constant_info_t, &constantinfos, detail);
}
}
op_array_info->literalinfo_cnt = details.cnt;
op_array_info->literalinfos = xc_vector_detach(xc_op_array_info_detail_t, &details);
op_array_info->constantinfo_cnt = constantinfos.cnt;
op_array_info->constantinfos = xc_vector_detach(xc_constant_info_t, &constantinfos);
#else /* ZEND_ENGINE_2_4 */
for (oplinenum = 0; oplinenum < op_array->last; oplinenum++) {
zend_op *opline = &op_array->opcodes[oplinenum];
zend_uint oplineinfo = 0;
zend_uint constantinfo = 0;
if (Z_OP_TYPE(opline->op1) == IS_CONST) {
if (Z_TYPE(Z_OP_CONSTANT(opline->op1)) == IS_STRING) {
XCACHE_ANALYZE_OP(file, op1)
zval *constant = &Z_OP_CONSTANT(opline->op1);
if (Z_TYPE_P(constant) == IS_STRING) {
XCACHE_ANALYZE_CONSTANT(file, , 0)
# ifdef ZEND_ENGINE_2_3
else XCACHE_ANALYZE_OP(dir, op1)
else XCACHE_ANALYZE_CONSTANT(dir, , 0)
# endif
}
# ifdef IS_UNICODE
else if (Z_TYPE(Z_OP_CONSTANT(opline->op1)) == IS_UNICODE) {
XCACHE_U_ANALYZE_OP(file, op1)
# ifdef ZEND_ENGINE_2_3
else XCACHE_U_ANALYZE_OP(dir, op1)
# endif
else if (Z_TYPE_P(constant) == IS_UNICODE) {
XCACHE_ANALYZE_CONSTANT(file, u_, 0)
else XCACHE_ANALYZE_CONSTANT(dir, u_, 0)
}
# endif
}
if (Z_OP_TYPE(opline->op2) == IS_CONST) {
if (Z_TYPE(Z_OP_CONSTANT(opline->op2)) == IS_STRING) {
XCACHE_ANALYZE_OP(file, op2)
zval *constant = &Z_OP_CONSTANT(opline->op2);
if (Z_TYPE_P(constant) == IS_STRING) {
XCACHE_ANALYZE_CONSTANT(file, , 1)
# ifdef ZEND_ENGINE_2_3
else XCACHE_ANALYZE_OP(dir, op2)
else XCACHE_ANALYZE_CONSTANT(dir, , 1)
# endif
}
# ifdef IS_UNICODE
else if (Z_TYPE(Z_OP_CONSTANT(opline->op2)) == IS_UNICODE) {
XCACHE_U_ANALYZE_OP(file, op2)
# ifdef ZEND_ENGINE_2_3
else XCACHE_U_ANALYZE_OP(dir, op2)
# endif
else if (Z_TYPE_P(constant) == IS_UNICODE) {
XCACHE_ANALYZE_CONSTANT(file, u_, 1)
else XCACHE_ANALYZE_CONSTANT(dir, u_, 1)
}
# endif
}
if (oplineinfo) {
xc_op_array_info_detail_t detail;
if (constantinfo) {
xc_constant_info_t detail;
detail.index = oplinenum;
detail.info = oplineinfo;
xc_vector_add(xc_op_array_info_detail_t, &details, detail);
detail.info = constantinfo;
xc_vector_add(xc_constant_info_t, &constantinfos, detail);
}
}
op_array_info->oplineinfo_cnt = details.cnt;
op_array_info->oplineinfos = xc_vector_detach(xc_op_array_info_detail_t, &details);
op_array_info->constantinfo_cnt = constantinfos.cnt;
op_array_info->constantinfos = xc_vector_detach(xc_constant_info_t, &constantinfos);
#endif /* ZEND_ENGINE_2_4 */
xc_vector_free(xc_op_array_info_detail_t, &details);
xc_vector_free(xc_constant_info_t, &constantinfos);
}
/* }}} */
void xc_fix_op_array_info(const xc_entry_php_t *entry_php, const xc_entry_data_php_t *php, zend_op_array *op_array, int shallow_copy, const xc_op_array_info_t *op_array_info TSRMLS_DC) /* {{{ */
{
#ifdef ZEND_ENGINE_2_4
zend_uint literalinfoindex;
for (literalinfoindex = 0; literalinfoindex < op_array_info->literalinfo_cnt; ++literalinfoindex) {
int literalindex = op_array_info->literalinfos[literalinfoindex].index;
int literalinfo = op_array_info->literalinfos[literalinfoindex].info;
zend_literal *literal = &op_array->literals[literalindex];
if ((literalinfo & xcache_literal_is_file)) {
if (!shallow_copy) {
efree(Z_STRVAL(literal->constant));
}
if (Z_TYPE(literal->constant) == IS_STRING) {
assert(entry_php->filepath);
ZVAL_STRINGL(&literal->constant, entry_php->filepath, entry_php->filepath_len, !shallow_copy);
TRACE("restored literal constant: %s", entry_php->filepath);
}
#ifdef IS_UNICODE
else if (Z_TYPE(literal->constant) == IS_UNICODE) {
assert(entry_php->ufilepath);
ZVAL_UNICODEL(&literal->constant, entry_php->ufilepath, entry_php->ufilepath_len, !shallow_copy);
}
# define xc_restore_constant_string xc_restore_constant_string_impl
#else
# define xc_restore_constant_string(where, constant, type, constant_string, constant_u_string, shallow_copy) xc_restore_constant_string_impl(where, constant, type, constant_string, shallow_copy)
#endif
else {
assert(0);
}
}
else if ((literalinfo & xcache_literal_is_dir)) {
if (!shallow_copy) {
efree(Z_STRVAL(literal->constant));
}
if (Z_TYPE(literal->constant) == IS_STRING) {
assert(entry_php->dirpath);
TRACE("restored literal constant: %s", entry_php->dirpath);
ZVAL_STRINGL(&literal->constant, entry_php->dirpath, entry_php->dirpath_len, !shallow_copy);
}
static inline void xc_restore_constant_string(const char *where, zval *constant, zend_uchar type, const xc_constant_string_t *constant_string, const xc_constant_u_string_t *constant_u_string, int shallow_copy TSRMLS_DC) /* {{{ */
{
TRACE("fixing constant in %s: %s", where, Z_STRVAL_P(constant));
if (!shallow_copy) {
efree(Z_STRVAL_P(constant));
}
if (type == IS_STRING) {
assert(constant_string->str);
ZVAL_STRINGL(constant, constant_string->str, constant_string->len, !shallow_copy);
TRACE("fixed constant in %s: %s", where, constant_string->str);
}
#ifdef IS_UNICODE
else if (Z_TYPE(literal->constant) == IS_UNICODE) {
assert(!entry_php->udirpath);
ZVAL_UNICODEL(&literal->constant, entry_php->udirpath, entry_php->udirpath_len, !shallow_copy);
}
else if (type == IS_UNICODE) {
assert(constant_u_string.str);
ZVAL_UNICODEL(constant, constant_u_string->str, constant_u_string->len, !shallow_copy);
/* TRACE("restored constant: %s", constant_u_string->str); */
}
#endif
else {
assert(0);
}
}
else {
assert(0);
}
#else /* ZEND_ENGINE_2_4 */
zend_uint oplinenum;
}
/* }}} */
#ifdef ZEND_ENGINE_2
void xc_fix_class_info(const xc_entry_php_t *entry_php, xc_classinfo_t *classinfo, int shallow_copy TSRMLS_DC) /* {{{ */
{
zend_class_entry *ce = CestToCePtr(classinfo->cest);
Bucket **constants = ce->constants_table.arBuckets;
zend_uint constantinfo_index;
for (oplinenum = 0; oplinenum < op_array_info->oplineinfo_cnt; ++oplinenum) {
int oplineindex = op_array_info->oplineinfos[oplinenum].index;
int oplineinfo = op_array_info->oplineinfos[oplinenum].info;
zend_op *opline = &op_array->opcodes[oplineindex];
if ((oplineinfo & xcache_op1_is_file)) {
assert(Z_OP_TYPE(opline->op1) == IS_CONST);
if (!shallow_copy) {
efree(Z_STRVAL(Z_OP_CONSTANT(opline->op1)));
}
if (Z_TYPE(Z_OP_CONSTANT(opline->op1)) == IS_STRING) {
assert(entry_php->filepath);
ZVAL_STRINGL(&Z_OP_CONSTANT(opline->op1), entry_php->filepath, entry_php->filepath_len, !shallow_copy);
TRACE("restored op1 constant: %s", entry_php->filepath);
}
# ifdef IS_UNICODE
else if (Z_TYPE(Z_OP_CONSTANT(opline->op1)) == IS_UNICODE) {
assert(entry_php->ufilepath);
ZVAL_UNICODEL(&Z_OP_CONSTANT(opline->op1), entry_php->ufilepath, entry_php->ufilepath_len, !shallow_copy);
}
# endif
else {
assert(0);
}
for (constantinfo_index = 0; constantinfo_index < classinfo->constantinfo_cnt; ++constantinfo_index) {
int index = classinfo->constantinfos[constantinfo_index].index;
int constantinfo = classinfo->constantinfos[constantinfo_index].info;
int index2 = index / ce->constants_table.nTableSize;
Bucket *bucket;
zval *constant;
for (bucket = constants[(index & ce->constants_table.nTableMask)]; index2; bucket = bucket->pNext, --index2) {
/* empty */
}
# ifdef ZEND_ENGINE_2_3
else if ((oplineinfo & xcache_op1_is_dir)) {
assert(Z_OP_TYPE(opline->op1) == IS_CONST);
if (!shallow_copy) {
efree(Z_STRVAL(Z_OP_CONSTANT(opline->op1)));
}
if (Z_TYPE(Z_OP_CONSTANT(opline->op1)) == IS_STRING) {
assert(entry_php->dirpath);
TRACE("restored op1 constant: %s", entry_php->dirpath);
ZVAL_STRINGL(&Z_OP_CONSTANT(opline->op1), entry_php->dirpath, entry_php->dirpath_len, !shallow_copy);
}
# ifdef IS_UNICODE
else if (Z_TYPE(Z_OP_CONSTANT(opline->op1)) == IS_UNICODE) {
assert(!entry_php->udirpath);
ZVAL_UNICODEL(&Z_OP_CONSTANT(opline->op1), entry_php->udirpath, entry_php->udirpath_len, !shallow_copy);
}
# endif
else {
assert(0);
}
constant = *((zval **) bucket->pData);
if ((constantinfo & xcache_constant_is_file)) {
xc_restore_constant_string("class_constant", constant, Z_TYPE_P(constant), &entry_php->filepath, &entry_php->u_filepath, shallow_copy TSRMLS_CC);
}
else if ((constantinfo & xcache_constant_is_dir)) {
xc_restore_constant_string("class_constant", constant, Z_TYPE_P(constant), &entry_php->dirpath, &entry_php->u_dirpath, shallow_copy TSRMLS_CC);
}
}
}
/* }}} */
#endif
void xc_fix_op_array_info(const xc_entry_php_t *entry_php, zend_op_array *op_array, int shallow_copy, const xc_op_array_info_t *op_array_info TSRMLS_DC) /* {{{ */
{
zend_uint constantinfo_index;
for (constantinfo_index = 0; constantinfo_index < op_array_info->constantinfo_cnt; ++constantinfo_index) {
int index = op_array_info->constantinfos[constantinfo_index].index;
int constantinfo = op_array_info->constantinfos[constantinfo_index].info;
if ((oplineinfo & xcache_op2_is_file)) {
assert(Z_OP_TYPE(opline->op2) == IS_CONST);
if (!shallow_copy) {
efree(Z_STRVAL(Z_OP_CONSTANT(opline->op2)));
}
if (Z_TYPE(Z_OP_CONSTANT(opline->op2)) == IS_STRING) {
assert(entry_php->filepath);
TRACE("restored op2 constant: %s", entry_php->filepath);
ZVAL_STRINGL(&Z_OP_CONSTANT(opline->op2), entry_php->filepath, entry_php->filepath_len, !shallow_copy);
}
# ifdef IS_UNICODE
else if (Z_TYPE(Z_OP_CONSTANT(opline->op2)) == IS_UNICODE) {
assert(entry_php->ufilepath);
ZVAL_UNICODEL(&Z_OP_CONSTANT(opline->op2), entry_php->ufilepath, entry_php->ufilepath_len, !shallow_copy);
}
#ifdef ZEND_ENGINE_2_4
zend_literal *literal = &op_array->literals[index];
if ((constantinfo & xcache_constant_is_file)) {
xc_restore_constant_string("literal", &literal->constant, Z_TYPE(literal->constant), &entry_php->filepath, &entry_php->u_filepath, shallow_copy TSRMLS_CC);
}
else if ((constantinfo & xcache_constant_is_dir)) {
xc_restore_constant_string("literal", &literal->constant, Z_TYPE(literal->constant), &entry_php->dirpath, &entry_php->u_dirpath, shallow_copy TSRMLS_CC);
}
#else /* ZEND_ENGINE_2_4 */
zend_op *opline = &op_array->opcodes[index];
if ((constantinfo & xcache_constant_is_file)) {
xc_restore_constant_string("op1", &Z_OP_CONSTANT(opline->op1), Z_TYPE(Z_OP_CONSTANT(opline->op1)), &entry_php->filepath, &entry_php->u_filepath, shallow_copy TSRMLS_CC);
}
# ifdef ZEND_ENGINE_2_3
else if ((constantinfo & xcache_constant_is_dir)) {
xc_restore_constant_string("op1", &Z_OP_CONSTANT(opline->op1), Z_TYPE(Z_OP_CONSTANT(opline->op1)), &entry_php->dirpath, &entry_php->u_dirpath, shallow_copy TSRMLS_CC);
}
# endif
else {
assert(0);
}
constantinfo >>= xcache_constant_info_shift * 1;
if ((constantinfo & xcache_constant_is_file)) {
xc_restore_constant_string("op2", &Z_OP_CONSTANT(opline->op2), Z_TYPE(Z_OP_CONSTANT(opline->op2)), &entry_php->filepath, &entry_php->u_filepath, shallow_copy TSRMLS_CC);
}
# ifdef ZEND_ENGINE_2_3
else if ((oplineinfo & xcache_op2_is_dir)) {
assert(Z_OP_TYPE(opline->op2) == IS_CONST);
if (!shallow_copy) {
efree(Z_STRVAL(Z_OP_CONSTANT(opline->op2)));
}
if (Z_TYPE(Z_OP_CONSTANT(opline->op2)) == IS_STRING) {
assert(entry_php->dirpath);
TRACE("restored op2 constant: %s", entry_php->dirpath);
ZVAL_STRINGL(&Z_OP_CONSTANT(opline->op2), entry_php->dirpath, entry_php->dirpath_len, !shallow_copy);
}
# ifdef IS_UNICODE
else if (Z_TYPE(Z_OP_CONSTANT(opline->op2)) == IS_UNICODE) {
assert(entry_php->udirpath);
ZVAL_UNICODEL(&Z_OP_CONSTANT(opline->op2), entry_php->udirpath, entry_php->udirpath_len, !shallow_copy);
}
# endif
else {
assert(0);
}
else if ((constantinfo & xcache_constant_is_dir)) {
xc_restore_constant_string("op2", &Z_OP_CONSTANT(opline->op2), Z_TYPE(Z_OP_CONSTANT(opline->op2)), &entry_php->dirpath, &entry_php->u_dirpath, shallow_copy TSRMLS_CC);
}
# endif
}
#endif /* ZEND_ENGINE_2_4 */
}
}
/* }}} */
static void xc_free_op_array_info(xc_op_array_info_t *op_array_info TSRMLS_DC) /* {{{ */
{
#ifdef ZEND_ENGINE_2_4
if (op_array_info->literalinfos) {
efree(op_array_info->literalinfos);
if (op_array_info->constantinfos) {
efree(op_array_info->constantinfos);
}
#else
if (op_array_info->oplineinfos) {
efree(op_array_info->oplineinfos);
if (op_array_info->constantinfos) {
efree(op_array_info->constantinfos);
}
#endif
}
@ -1683,6 +1661,12 @@ static void xc_free_php(xc_entry_data_php_t *php TSRMLS_DC) /* {{{ */
if (classinfo->methodinfos) {
efree(classinfo->methodinfos);
}
#ifdef ZEND_ENGINE_2
if (classinfo->constantinfos) {
efree(classinfo->constantinfos);
}
#endif
}
}
if (php->funcinfos) {
@ -1864,7 +1848,8 @@ static void xc_compile_php(xc_compiler_t *compiler, zend_file_handle *h, int typ
for (i = 0; i < compiler->new_php.classinfo_cnt; i ++) {
xc_classinfo_t *classinfo = &compiler->new_php.classinfos[i];
zend_class_entry *ce = CestToCePtr(classinfo->cest);
classinfo->methodinfo_cnt = ce->function_table.nTableSize;
classinfo->methodinfo_cnt = ce->function_table.nNumOfElements;
if (classinfo->methodinfo_cnt) {
int j;
@ -1880,6 +1865,16 @@ static void xc_compile_php(xc_compiler_t *compiler, zend_file_handle *h, int typ
else {
classinfo->methodinfos = NULL;
}
#ifdef ZEND_ENGINE_2
if (ce->constants_table.nNumOfElements) {
xc_collect_class_constant_info(compiler, &const_usage, classinfo, &ce->constants_table TSRMLS_CC);
}
else {
classinfo->constantinfo_cnt = 0;
classinfo->constantinfos = NULL;
}
#endif
}
for (i = 0; i < compiler->new_php.funcinfo_cnt; i ++) {
@ -1891,19 +1886,17 @@ static void xc_compile_php(xc_compiler_t *compiler, zend_file_handle *h, int typ
/* file/dir path free unused */
#define X_FREE_UNUSED(var) \
if (!const_usage.var##path_used) { \
efree(compiler->new_entry.var##path); \
compiler->new_entry.var##path = NULL; \
compiler->new_entry.var##path_len = 0; \
efree(compiler->new_entry.var##path.str); \
compiler->new_entry.var##path.str = NULL; \
compiler->new_entry.var##path.len = 0; \
}
/* filepath is required to restore op_array->filename, so no free filepath here */
#ifdef ZEND_ENGINE_2_3
X_FREE_UNUSED(dir)
#endif
#ifdef IS_UNICODE
X_FREE_UNUSED(ufile)
# ifdef ZEND_ENGINE_2_3
X_FREE_UNUSED(udir)
# endif
X_FREE_UNUSED(u_file)
X_FREE_UNUSED(u_dir)
#endif
#undef X_FREE_UNUSED
}

60
processor/processor.m4
Unescape View File

@ -507,7 +507,7 @@ DEF_STRUCT_P_FUNC(`zend_class_entry', , `dnl {{{
# ifdef ZEND_ENGINE_2_4
DISABLECHECK(`
IFRESTORE(`DST(`info.user.filename') = processor->entry_php_src->filepath;', `PROC_STRING(info.user.filename)')
IFRESTORE(`DST(`info.user.filename') = processor->entry_php_src->filepath.str;', `PROC_STRING(info.user.filename)')
PROCESS(zend_uint, info.user.line_start)
PROCESS(zend_uint, info.user.line_end)
PROCESS(zend_uint, info.user.doc_comment_len)
@ -515,7 +515,7 @@ DEF_STRUCT_P_FUNC(`zend_class_entry', , `dnl {{{
')
DONE(info)
# else
IFRESTORE(`DST(`filename') = processor->entry_php_src->filepath;DONE(filename)', `PROC_STRING(filename)')
IFRESTORE(`DST(`filename') = processor->entry_php_src->filepath.str;DONE(filename)', `PROC_STRING(filename)')
PROCESS(zend_uint, line_start)
PROCESS(zend_uint, line_end)
PROCESS(zend_uint, doc_comment_len)
@ -825,15 +825,15 @@ DEF_STRUCT_P_FUNC(`zend_op_array', , `dnl {{{
STRUCT_ARRAY(zend_uint, num_args, zend_arg_info, arg_info)
}
#endif
DST(`filename') = processor->entry_php_src->filepath;
DST(`filename') = processor->entry_php_src->filepath.str;
#ifdef ZEND_ENGINE_2_4
if (SRC(`literals') && op_array_info->literalinfo_cnt) {
if (SRC(`literals') && op_array_info->constantinfo_cnt) {
gc_opcodes = 1;
gc_literals = 1;
}
#else
if (op_array_info->oplineinfo_cnt) {
if (op_array_info->constantinfo_cnt) {
gc_opcodes = 1;
}
#endif
@ -1031,7 +1031,7 @@ DEF_STRUCT_P_FUNC(`zend_op_array', , `dnl {{{
PROCESS(zend_bool, uses_this)
#endif
IFRESTORE(`DST(`filename') = processor->entry_php_src->filepath;DONE(filename)', `PROC_STRING(filename)')
IFRESTORE(`DST(`filename') = processor->entry_php_src->filepath.str; DONE(filename)', `PROC_STRING(filename)')
#ifdef IS_UNICODE
IFRESTORE(`
COPYPOINTER(script_encoding)
@ -1059,7 +1059,7 @@ DEF_STRUCT_P_FUNC(`zend_op_array', , `dnl {{{
PROCESS(int, last_cache_slot)
#endif
} while (0);
IFRESTORE(`xc_fix_op_array_info(processor->entry_php_src, processor->php_src, DST(), shallow_copy, op_array_info TSRMLS_CC);')
IFRESTORE(`xc_fix_op_array_info(processor->entry_php_src, DST(), shallow_copy, op_array_info TSRMLS_CC);')
#ifdef ZEND_ENGINE_2
dnl mark it as -1 on store, and lookup parent on restore
@ -1132,19 +1132,14 @@ DEF_STRUCT_P_FUNC(`xc_constinfo_t', , `dnl {{{
dnl }}}
#endif
IFRESTORE(`', `
DEF_STRUCT_P_FUNC(`xc_op_array_info_detail_t', , `dnl {{{
DEF_STRUCT_P_FUNC(`xc_constant_info_t', , `dnl {{{
PROCESS(zend_uint, index)
PROCESS(zend_uint, info)
')
dnl }}}
DEF_STRUCT_P_FUNC(`xc_op_array_info_t', , `dnl {{{
#ifdef ZEND_ENGINE_2_4
PROCESS(zend_uint, literalinfo_cnt)
STRUCT_ARRAY(zend_uint, literalinfo_cnt, xc_op_array_info_detail_t, literalinfos)
#else
PROCESS(zend_uint, oplineinfo_cnt)
STRUCT_ARRAY(zend_uint, oplineinfo_cnt, xc_op_array_info_detail_t, oplineinfos)
#endif
PROCESS(zend_uint, constantinfo_cnt)
STRUCT_ARRAY(zend_uint, constantinfo_cnt, xc_constant_info_t, constantinfos)
')
dnl }}}
')
@ -1180,6 +1175,12 @@ DEF_STRUCT_P_FUNC(`xc_classinfo_t', , `dnl {{{
IFRESTORE(`COPYPOINTER(methodinfos)', `
STRUCT_ARRAY(zend_uint, methodinfo_cnt, xc_op_array_info_t, methodinfos)
')
#ifdef ZEND_ENGINE_2
PROCESS(zend_uint, constantinfo_cnt)
IFRESTORE(`COPYPOINTER(constantinfos)', `
STRUCT_ARRAY(zend_uint, constantinfo_cnt, xc_constant_info_t, constantinfos)
')
#endif
IFRESTORE(`
processor->active_op_array_infos_src = SRC(`methodinfos');
processor->active_op_array_index = 0;
@ -1189,6 +1190,9 @@ DEF_STRUCT_P_FUNC(`xc_classinfo_t', , `dnl {{{
#else
STRUCT(zend_class_entry, cest)
#endif
#ifdef ZEND_ENGINE_2
IFRESTORE(`xc_fix_class_info(processor->entry_php_src, DST(), 0 TSRMLS_CC);')
#endif
#ifndef ZEND_COMPILE_DELAYED_BINDING
PROCESS(int, oplineno)
#endif
@ -1289,6 +1293,18 @@ DEF_STRUCT_P_FUNC(`xc_entry_t', , `dnl {{{
DONE(name) dnl handle in xc_entry_php_t and xc_entry_var_t
')
dnl }}}
DEF_STRUCT_P_FUNC(`xc_constant_string_t', , `dnl {{{
PROCESS(size_t, len)
IFRESTORE(`COPYPOINTER(str)', `PROC_STRING_L(str, len)')
')
dnl }}}
#ifdef IS_UNICODE
DEF_STRUCT_P_FUNC(`xc_constant_u_string_t', , `dnl {{{
PROCESS(size_t, len)
IFRESTORE(`COPYPOINTER(str)', `PROC_USTRING_L(str, len)')
')
dnl }}}
#endif
DEF_STRUCT_P_FUNC(`xc_entry_php_t', , `dnl {{{
STRUCT(xc_entry_t, entry)
DISABLECHECK(`
@ -1306,19 +1322,13 @@ DEF_STRUCT_P_FUNC(`xc_entry_php_t', , `dnl {{{
PROCESS(size_t, file_device)
PROCESS(size_t, file_inode)
PROCESS(size_t, filepath_len)
IFRESTORE(`COPYPOINTER(filepath)', `PROC_STRING_L(filepath, filepath_len)')
STRUCT(xc_constant_string_t, filepath)
#ifdef ZEND_ENGINE_2_3
PROCESS(size_t, dirpath_len)
IFRESTORE(`COPYPOINTER(dirpath)', `PROC_STRING_L(dirpath, dirpath_len)')
STRUCT(xc_constant_string_t, dirpath)
#endif
#ifdef IS_UNICODE
PROCESS(int, ufilepath_len)
IFRESTORE(`COPYPOINTER(ufilepath)', `PROC_USTRING_L(ufilepath, ufilepath_len)')
# ifdef ZEND_ENGINE_2_3
PROCESS(int, udirpath_len)
IFRESTORE(`COPYPOINTER(udirpath)', `PROC_USTRING_L(udirpath, udirpath_len)')
# endif
STRUCT(xc_constant_u_string_t, u_filepath)
STRUCT(xc_constant_u_string_t, u_dirpath)
#endif
')
dnl }}}

Write Preview
Loading…
Cancel
Save