php-src/Zend/zend_compile.c

2682 lines
80 KiB
C
Raw Normal View History

1999-04-08 02:10:10 +08:00
/*
+----------------------------------------------------------------------+
| Zend Engine |
+----------------------------------------------------------------------+
2001-02-26 13:43:27 +08:00
| Copyright (c) 1998-2001 Zend Technologies Ltd. (http://www.zend.com) |
1999-04-08 02:10:10 +08:00
+----------------------------------------------------------------------+
2001-12-11 23:16:21 +08:00
| This source file is subject to version 2.00 of the Zend license, |
1999-07-16 22:58:16 +08:00
| that is bundled with this package in the file LICENSE, and is |
| available at through the world-wide-web at |
2001-12-11 23:16:21 +08:00
| http://www.zend.com/license/2_00.txt. |
1999-07-16 22:58:16 +08:00
| If you did not receive a copy of the Zend license and are unable to |
| obtain it through the world-wide-web, please send a note to |
| license@zend.com so we can mail you a copy immediately. |
1999-04-08 02:10:10 +08:00
+----------------------------------------------------------------------+
| Authors: Andi Gutmans <andi@zend.com> |
| Zeev Suraski <zeev@zend.com> |
+----------------------------------------------------------------------+
*/
1999-07-16 22:58:16 +08:00
#include "zend_language_parser.h"
1999-04-08 02:10:10 +08:00
#include "zend.h"
#include "zend_compile.h"
#include "zend_llist.h"
#include "zend_API.h"
#include "zend_fast_cache.h"
1999-04-08 02:10:10 +08:00
ZEND_API zend_op_array *(*zend_compile_file)(zend_file_handle *file_handle, int type TSRMLS_DC);
1999-04-08 02:10:10 +08:00
#ifndef ZTS
ZEND_API zend_compiler_globals compiler_globals;
ZEND_API zend_executor_globals executor_globals;
#endif
static void build_runtime_defined_function_key(zval *result, zval *name, zend_op *opline TSRMLS_DC)
{
char lineno_buf[32];
uint lineno_len;
char *filename;
lineno_len = zend_sprintf(lineno_buf, "%d", opline->lineno);
if (CG(active_op_array)->filename) {
filename = CG(active_op_array)->filename;
} else {
filename = "-";
}
/* NULL, name length, filename length, line number length */
result->value.str.len = 1+name->value.str.len+strlen(filename)+lineno_len;
result->value.str.val = (char *) emalloc(result->value.str.len+1);
sprintf(result->value.str.val, "%c%s%s%s", '\0', name->value.str.val, filename, lineno_buf);
result->type = IS_STRING;
result->refcount = 1;
}
static void init_compiler_declarables(TSRMLS_D)
{
CG(declarables).ticks.type = IS_LONG;
CG(declarables).ticks.value.lval = 0;
}
void zend_init_compiler_data_structures(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
zend_stack_init(&CG(bp_stack));
zend_stack_init(&CG(function_call_stack));
zend_stack_init(&CG(switch_cond_stack));
zend_stack_init(&CG(foreach_copy_stack));
1999-04-08 02:10:10 +08:00
zend_stack_init(&CG(object_stack));
zend_stack_init(&CG(declare_stack));
1999-04-08 02:10:10 +08:00
CG(active_class_entry) = NULL;
CG(active_ce_parent_class_name).value.str.val = NULL;
1999-04-08 02:10:10 +08:00
zend_llist_init(&CG(list_llist), sizeof(list_llist_element), NULL, 0);
zend_llist_init(&CG(dimension_llist), sizeof(int), NULL, 0);
zend_stack_init(&CG(list_stack));
1999-04-08 02:10:10 +08:00
CG(handle_op_arrays) = 1;
CG(in_compilation) = 0;
init_compiler_declarables(TSRMLS_C);
2001-08-30 23:26:30 +08:00
CG(throw_list) = NULL;
}
void init_compiler(TSRMLS_D)
{
zend_init_compiler_data_structures(TSRMLS_C);
zend_init_rsrc_list(TSRMLS_C);
zend_hash_init(&CG(filenames_table), 5, NULL, (dtor_func_t) free_estring, 0);
zend_llist_init(&CG(open_files), sizeof(zend_file_handle), (void (*)(void *)) zend_file_handle_dtor, 0);
CG(unclean_shutdown) = 0;
1999-04-08 02:10:10 +08:00
}
void shutdown_compiler(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
zend_stack_destroy(&CG(bp_stack));
zend_stack_destroy(&CG(function_call_stack));
zend_stack_destroy(&CG(switch_cond_stack));
zend_stack_destroy(&CG(foreach_copy_stack));
1999-04-08 02:10:10 +08:00
zend_stack_destroy(&CG(object_stack));
zend_stack_destroy(&CG(declare_stack));
zend_stack_destroy(&CG(list_stack));
2000-08-20 01:50:42 +08:00
zend_hash_destroy(&CG(filenames_table));
1999-05-22 10:13:01 +08:00
zend_llist_destroy(&CG(open_files));
1999-04-08 02:10:10 +08:00
}
2001-07-30 15:43:02 +08:00
ZEND_API char *zend_set_compiled_filename(char *new_compiled_filename TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
2000-08-20 01:50:42 +08:00
char **pp, *p;
int length = strlen(new_compiled_filename);
1999-04-08 02:10:10 +08:00
2000-08-20 01:50:42 +08:00
if (zend_hash_find(&CG(filenames_table), new_compiled_filename, length+1, (void **) &pp)==SUCCESS) {
2000-09-17 16:58:39 +08:00
CG(compiled_filename) = *pp;
2000-08-20 01:50:42 +08:00
return *pp;
}
p = estrndup(new_compiled_filename, length);
zend_hash_update(&CG(filenames_table), new_compiled_filename, length+1, &p, sizeof(char *), (void **) &pp);
1999-04-08 02:10:10 +08:00
CG(compiled_filename) = p;
return p;
1999-04-08 02:10:10 +08:00
}
2001-07-30 15:43:02 +08:00
ZEND_API void zend_restore_compiled_filename(char *original_compiled_filename TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
CG(compiled_filename) = original_compiled_filename;
}
ZEND_API char *zend_get_compiled_filename(TSRMLS_D)
{
return CG(compiled_filename);
}
ZEND_API int zend_get_compiled_lineno(TSRMLS_D)
{
return CG(zend_lineno);
}
2001-07-30 15:43:02 +08:00
ZEND_API zend_bool zend_is_compiling(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
return CG(in_compilation);
1999-04-08 02:10:10 +08:00
}
2000-03-13 23:49:47 +08:00
static zend_uint get_temporary_variable(zend_op_array *op_array)
1999-04-08 02:10:10 +08:00
{
return (op_array->T)++;
}
void zend_do_binary_op(int op, znode *result, znode *op1, znode *op2 TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = op;
opline->result.op_type = IS_TMP_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *op1;
opline->op2 = *op2;
*result = opline->result;
}
void zend_do_unary_op(int op, znode *result, znode *op1 TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = op;
opline->result.op_type = IS_TMP_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *op1;
*result = opline->result;
SET_UNUSED(opline->op2);
}
void zend_do_binary_assign_op(int op, znode *result, znode *op1, znode *op2 TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = op;
opline->result.op_type = IS_VAR;
opline->result.u.EA.type = 0;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *op1;
opline->op2 = *op2;
*result = opline->result;
}
1999-04-09 04:21:36 +08:00
void zend_do_fetch_globals(znode *varname TSRMLS_DC)
1999-04-09 04:21:36 +08:00
{
1999-06-04 21:09:24 +08:00
if (!CG(active_op_array)->uses_globals
1999-04-09 04:21:36 +08:00
&& varname->op_type == IS_CONST
&& varname->u.constant.type == IS_STRING
&& varname->u.constant.value.str.len == (sizeof("GLOBALS")-1)
&& !memcmp(varname->u.constant.value.str.val, "GLOBALS", sizeof("GLOBALS")-1)) {
1999-06-04 21:09:24 +08:00
CG(active_op_array)->uses_globals = 1;
1999-04-09 04:21:36 +08:00
}
}
void fetch_simple_variable_ex(znode *result, znode *varname, int bp, int op TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op opline;
zend_op *opline_ptr;
1999-04-08 02:10:10 +08:00
zend_llist *fetch_list_ptr;
if (bp) {
opline_ptr = &opline;
init_op(opline_ptr TSRMLS_CC);
} else {
opline_ptr = get_next_op(CG(active_op_array) TSRMLS_CC);
}
opline_ptr->opcode = op;
opline_ptr->result.op_type = IS_VAR;
opline_ptr->result.u.EA.type = 0;
opline_ptr->result.u.var = get_temporary_variable(CG(active_op_array));
opline_ptr->op1 = *varname;
*result = opline_ptr->result;
SET_UNUSED(opline_ptr->op2);
if (varname->op_type == IS_CONST
&& varname->u.constant.type == IS_STRING
&& zend_hash_exists(CG(auto_globals), varname->u.constant.value.str.val, varname->u.constant.value.str.len+1)) {
2001-11-25 02:27:20 +08:00
opline_ptr->extended_value = ZEND_FETCH_GLOBAL;
} else {
2001-11-25 02:27:20 +08:00
opline_ptr->extended_value = ZEND_FETCH_LOCAL;
}
1999-04-08 02:10:10 +08:00
if (bp) {
zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
zend_llist_add_element(fetch_list_ptr, opline_ptr);
1999-04-08 02:10:10 +08:00
}
}
void fetch_simple_variable(znode *result, znode *varname, int bp TSRMLS_DC)
{
/* the default mode must be Write, since fetch_simple_variable() is used to define function arguments */
fetch_simple_variable_ex(result, varname, bp, ZEND_FETCH_W TSRMLS_CC);
}
2001-11-25 16:58:59 +08:00
void zend_do_fetch_static_member(znode *class TSRMLS_DC)
{
zend_llist *fetch_list_ptr;
zend_llist_element *le;
zend_op *opline_ptr;
zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
le = fetch_list_ptr->head;
opline_ptr = (zend_op *)le->data;
opline_ptr->op2 = *class;
opline_ptr->extended_value = ZEND_FETCH_STATIC_MEMBER;
}
1999-04-08 02:10:10 +08:00
void fetch_array_begin(znode *result, znode *varname, znode *first_dim TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
fetch_simple_variable(result, varname, 1 TSRMLS_CC);
1999-04-08 02:10:10 +08:00
fetch_array_dim(result, result, first_dim TSRMLS_CC);
1999-04-08 02:10:10 +08:00
}
void fetch_array_dim(znode *result, znode *parent, znode *dim TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op opline;
1999-04-08 02:10:10 +08:00
zend_llist *fetch_list_ptr;
init_op(&opline TSRMLS_CC);
opline.opcode = ZEND_FETCH_DIM_W; /* the backpatching routine assumes W */
opline.result.op_type = IS_VAR;
opline.result.u.EA.type = 0;
opline.result.u.var = get_temporary_variable(CG(active_op_array));
opline.op1 = *parent;
opline.op2 = *dim;
opline.extended_value = ZEND_FETCH_STANDARD;
*result = opline.result;
1999-04-08 02:10:10 +08:00
zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
zend_llist_add_element(fetch_list_ptr, &opline);
1999-04-08 02:10:10 +08:00
}
void fetch_string_offset(znode *result, znode *parent, znode *offset TSRMLS_DC)
{
fetch_array_dim(result, parent, offset TSRMLS_CC);
}
void zend_do_print(znode *result, znode *arg TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->result.op_type = IS_TMP_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
1999-04-24 08:12:55 +08:00
opline->opcode = ZEND_PRINT;
1999-04-08 02:10:10 +08:00
opline->op1 = *arg;
SET_UNUSED(opline->op2);
*result = opline->result;
}
void zend_do_echo(znode *arg TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
1999-04-24 08:12:55 +08:00
opline->opcode = ZEND_ECHO;
1999-04-08 02:10:10 +08:00
opline->op1 = *arg;
SET_UNUSED(opline->op2);
}
void zend_do_assign(znode *result, znode *variable, znode *value TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
1999-04-24 08:12:55 +08:00
opline->opcode = ZEND_ASSIGN;
1999-04-08 02:10:10 +08:00
opline->result.op_type = IS_VAR;
opline->result.u.EA.type = 0;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *variable;
opline->op2 = *value;
*result = opline->result;
}
void zend_do_assign_ref(znode *result, znode *lvar, znode *rvar TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
1999-04-24 08:12:55 +08:00
opline->opcode = ZEND_ASSIGN_REF;
1999-04-08 02:10:10 +08:00
if (result) {
opline->result.op_type = IS_VAR;
opline->result.u.EA.type = 0;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
*result = opline->result;
} else {
/* SET_UNUSED(opline->result); */
opline->result.u.EA.type |= EXT_TYPE_UNUSED;
1999-04-08 02:10:10 +08:00
}
opline->op1 = *lvar;
opline->op2 = *rvar;
}
static inline void do_begin_loop(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
zend_brk_cont_element *brk_cont_element;
int parent;
parent = CG(active_op_array)->current_brk_cont;
CG(active_op_array)->current_brk_cont = CG(active_op_array)->last_brk_cont;
brk_cont_element = get_next_brk_cont_element(CG(active_op_array));
brk_cont_element->parent = parent;
}
static inline void do_end_loop(int cont_addr TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].cont = cont_addr;
CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].brk = get_next_op_number(CG(active_op_array));
CG(active_op_array)->current_brk_cont = CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].parent;
}
void zend_do_while_cond(znode *expr, znode *close_bracket_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
int while_cond_op_number = get_next_op_number(CG(active_op_array));
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMPZ;
opline->op1 = *expr;
close_bracket_token->u.opline_num = while_cond_op_number;
SET_UNUSED(opline->op2);
do_begin_loop(TSRMLS_C);
1999-04-08 02:10:10 +08:00
INC_BPC(CG(active_op_array));
}
void zend_do_while_end(znode *while_token, znode *close_bracket_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
/* add unconditional jump */
opline->opcode = ZEND_JMP;
opline->op1.u.opline_num = while_token->u.opline_num;
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
/* update while's conditional jmp */
CG(active_op_array)->opcodes[close_bracket_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
do_end_loop(while_token->u.opline_num TSRMLS_CC);
1999-04-08 02:10:10 +08:00
DEC_BPC(CG(active_op_array));
}
void zend_do_for_cond(znode *expr, znode *second_semicolon_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
int for_cond_op_number = get_next_op_number(CG(active_op_array));
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMPZNZ;
2000-04-06 04:55:51 +08:00
opline->op1 = *expr; /* the conditional expression */
1999-04-08 02:10:10 +08:00
second_semicolon_token->u.opline_num = for_cond_op_number;
SET_UNUSED(opline->op2);
}
void zend_do_for_before_statement(znode *cond_start, znode *second_semicolon_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMP;
opline->op1.u.opline_num = cond_start->u.opline_num;
2000-04-18 01:16:47 +08:00
CG(active_op_array)->opcodes[second_semicolon_token->u.opline_num].extended_value = get_next_op_number(CG(active_op_array));
1999-04-08 02:10:10 +08:00
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
do_begin_loop(TSRMLS_C);
1999-04-08 02:10:10 +08:00
INC_BPC(CG(active_op_array));
}
void zend_do_for_end(znode *second_semicolon_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMP;
opline->op1.u.opline_num = second_semicolon_token->u.opline_num+1;
2000-04-18 01:16:47 +08:00
CG(active_op_array)->opcodes[second_semicolon_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
1999-04-08 02:10:10 +08:00
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
do_end_loop(second_semicolon_token->u.opline_num+1 TSRMLS_CC);
1999-04-08 02:10:10 +08:00
DEC_BPC(CG(active_op_array));
}
void zend_do_pre_incdec(znode *result, znode *op1, int op TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = op;
opline->result.op_type = IS_VAR;
opline->result.u.EA.type = 0;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *op1;
*result = opline->result;
SET_UNUSED(opline->op2);
}
void zend_do_post_incdec(znode *result, znode *op1, int op TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = op;
opline->result.op_type = IS_TMP_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *op1;
*result = opline->result;
SET_UNUSED(opline->op2);
}
void zend_do_if_cond(znode *cond, znode *closing_bracket_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
int if_cond_op_number = get_next_op_number(CG(active_op_array));
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMPZ;
opline->op1 = *cond;
closing_bracket_token->u.opline_num = if_cond_op_number;
SET_UNUSED(opline->op2);
INC_BPC(CG(active_op_array));
}
void zend_do_if_after_statement(znode *closing_bracket_token, unsigned char initialize TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
int if_end_op_number = get_next_op_number(CG(active_op_array));
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
zend_llist *jmp_list_ptr;
opline->opcode = ZEND_JMP;
/* save for backpatching */
if (initialize) {
zend_llist jmp_list;
zend_llist_init(&jmp_list, sizeof(int), NULL, 0);
zend_stack_push(&CG(bp_stack), (void *) &jmp_list, sizeof(zend_llist));
}
zend_stack_top(&CG(bp_stack), (void **) &jmp_list_ptr);
zend_llist_add_element(jmp_list_ptr, &if_end_op_number);
CG(active_op_array)->opcodes[closing_bracket_token->u.opline_num].op2.u.opline_num = if_end_op_number+1;
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
}
void zend_do_if_end(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
int next_op_number = get_next_op_number(CG(active_op_array));
zend_llist *jmp_list_ptr;
zend_llist_element *le;
zend_stack_top(&CG(bp_stack), (void **) &jmp_list_ptr);
for (le=jmp_list_ptr->head; le; le = le->next) {
CG(active_op_array)->opcodes[*((int *) le->data)].op1.u.opline_num = next_op_number;
}
zend_llist_destroy(jmp_list_ptr);
zend_stack_del_top(&CG(bp_stack));
DEC_BPC(CG(active_op_array));
}
2001-12-17 03:45:49 +08:00
#if 0
/* variable parsing type (compile-time) */
#define ZEND_PARSED_MEMBER (1<<0)
#define ZEND_PARSED_METHOD_CALL (1<<1)
#define ZEND_PARSED_STATIC_MEMBER (1<<2)
#define ZEND_PARSED_FUNCTION_CALL (1<<3)
#define ZEND_PARSED_VARIABLE (1<<4)
#endif
void zend_check_writable_variable(znode *variable)
{
zend_uint type = variable->u.EA.type;
if (type & ZEND_PARSED_METHOD_CALL) {
zend_error(E_ERROR, "Can't use method return value in write context");
}
if ((type & ZEND_PARSED_FUNCTION_CALL) &&
!(type & (ZEND_PARSED_METHOD_CALL|ZEND_PARSED_MEMBER))) {
zend_error(E_ERROR, "Can't use function return value in write context");
}
}
1999-04-08 02:10:10 +08:00
zend_bool zend_variable_buffer_empty(TSRMLS_D)
{
zend_llist *fetch_list_ptr;
zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
return !fetch_list_ptr->head;
}
void zend_do_begin_variable_parse(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
zend_llist fetch_list;
zend_llist_init(&fetch_list, sizeof(zend_op), NULL, 0);
1999-04-08 02:10:10 +08:00
zend_stack_push(&CG(bp_stack), (void *) &fetch_list, sizeof(zend_llist));
}
void zend_do_end_variable_parse(int type, int arg_offset TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_llist *fetch_list_ptr;
zend_llist_element *le;
zend_op *opline, *opline_ptr;
1999-04-08 02:10:10 +08:00
/*
2001-08-10 22:18:38 +08:00
if (zend_variable_buffer_empty(TSRMLS_C) && (type == BP_VAR_W || type == BP_VAR_RW)) {
zend_error(E_ERROR, "Method can't be used as l-value");
}
*/
1999-04-08 02:10:10 +08:00
zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
le = fetch_list_ptr->head;
while (le) {
opline_ptr = (zend_op *)le->data;
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
memcpy(opline, opline_ptr, sizeof(zend_op));
1999-04-08 02:10:10 +08:00
switch (type) {
case BP_VAR_R:
if (opline->opcode == ZEND_FETCH_DIM_W && opline->op2.op_type == IS_UNUSED) {
zend_error(E_COMPILE_ERROR, "Cannot use [] for reading");
}
opline->opcode -= 3;
break;
case BP_VAR_W:
break;
case BP_VAR_RW:
opline->opcode += 3;
break;
case BP_VAR_IS:
opline->opcode += 6; /* 3+3 */
break;
case BP_VAR_FUNC_ARG:
opline->opcode += 9; /* 3+3+3 */
opline->extended_value = arg_offset;
break;
case BP_VAR_UNSET:
2001-11-16 07:26:52 +08:00
if (opline->opcode == ZEND_FETCH_DIM_W && opline->op2.op_type == IS_UNUSED) {
zend_error(E_COMPILE_ERROR, "Cannot use [] for unsetting");
}
opline->opcode += 12; /* 3+3+3+3 */
break;
1999-04-08 02:10:10 +08:00
}
le = le->next;
}
zend_llist_destroy(fetch_list_ptr);
zend_stack_del_top(&CG(bp_stack));
}
void zend_do_init_string(znode *result TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_INIT_STRING;
opline->result.op_type = IS_TMP_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
*result = opline->result;
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
}
void zend_do_add_char(znode *result, znode *op1, znode *op2 TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_ADD_CHAR;
opline->op1 = *op1;
opline->op2 = *op2;
opline->op2.op_type = IS_CONST;
opline->result = opline->op1;
*result = opline->result;
}
void zend_do_add_string(znode *result, znode *op1, znode *op2 TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_ADD_STRING;
opline->op1 = *op1;
opline->op2 = *op2;
opline->op2.op_type = IS_CONST;
opline->result = opline->op1;
*result = opline->result;
}
void zend_do_add_variable(znode *result, znode *op1, znode *op2 TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline;
if (op1->op_type == IS_CONST) {
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_INIT_STRING;
opline->result.op_type = IS_TMP_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
*result = opline->result;
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
if (op1->u.constant.value.str.len>0) {
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_ADD_STRING;
opline->result = *result;
opline->op1 = *result;
opline->op2 = *op1;
opline->result = opline->op1;
} else {
zval_dtor(&op1->u.constant);
}
} else {
*result = *op1;
}
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_ADD_VAR;
opline->result = *result;
opline->op1 = *result;
opline->op2 = *op2;
*result = opline->result;
}
void zend_do_free(znode *op1 TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
if (op1->op_type==IS_TMP_VAR) {
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-12-21 04:01:19 +08:00
opline->opcode = ZEND_FREE;
opline->op1 = *op1;
SET_UNUSED(opline->op2);
} else if (op1->op_type==IS_VAR) {
1999-04-08 02:10:10 +08:00
zend_op *opline = &CG(active_op_array)->opcodes[CG(active_op_array)->last-1];
while (opline->opcode == ZEND_END_SILENCE || opline->opcode == ZEND_EXT_FCALL_END) {
1999-12-21 04:01:19 +08:00
opline--;
}
1999-04-08 02:10:10 +08:00
if (opline->result.op_type == op1->op_type
&& opline->result.u.var == op1->u.var) {
opline->result.u.EA.type |= EXT_TYPE_UNUSED;
} else {
while (opline>CG(active_op_array)->opcodes) {
2000-03-02 01:10:45 +08:00
/* This should be an object instantiation
* Find JMP_NO_CTOR, mark the preceding ASSIGN and the
* proceeding INIT_FCALL_BY_NAME as unused
*/
1999-04-08 02:10:10 +08:00
if (opline->opcode == ZEND_JMP_NO_CTOR) {
(opline-1)->result.u.EA.type |= EXT_TYPE_UNUSED;
(opline+1)->op1.u.EA.type |= EXT_TYPE_UNUSED;
break;
} else if (opline->opcode == ZEND_FETCH_DIM_R
&& opline->op1.op_type == IS_VAR
&& opline->op1.u.var == op1->u.var) {
/* This should the end of a list() construct
* Mark its result as unused
*/
opline->extended_value = ZEND_FETCH_STANDARD;
break;
} else if (opline->result.op_type==IS_VAR
&& opline->result.u.var == op1->u.var) {
break;
1999-04-08 02:10:10 +08:00
}
opline--;
}
}
} else if (op1->op_type == IS_CONST) {
zval_dtor(&op1->u.constant);
}
1999-04-08 02:10:10 +08:00
}
void zend_do_begin_function_declaration(znode *function_token, znode *function_name, int is_method, int return_reference TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op_array op_array;
char *name = function_name->u.constant.value.str.val;
int name_len = function_name->u.constant.value.str.len;
int function_begin_line = function_token->u.opline_num;
function_token->u.op_array = CG(active_op_array);
zend_str_tolower(name, name_len);
init_op_array(&op_array, ZEND_USER_FUNCTION, INITIAL_OP_ARRAY_SIZE TSRMLS_CC);
1999-04-08 02:10:10 +08:00
op_array.function_name = name;
op_array.arg_types = NULL;
op_array.return_reference = return_reference;
1999-04-08 02:10:10 +08:00
if (is_method) {
zend_hash_update(&CG(active_class_entry)->function_table, name, name_len+1, &op_array, sizeof(zend_op_array), (void **) &CG(active_op_array));
if ((CG(active_class_entry)->name_length == (uint) name_len) && (!memcmp(CG(active_class_entry)->name, name, name_len))) {
CG(active_class_entry)->constructor = (zend_function *) CG(active_op_array);
}
1999-04-08 02:10:10 +08:00
} else {
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
opline->opcode = ZEND_DECLARE_FUNCTION_OR_CLASS;
opline->op1.op_type = IS_CONST;
build_runtime_defined_function_key(&opline->op1.u.constant, &function_name->u.constant, opline TSRMLS_CC);
opline->op2.op_type = IS_CONST;
opline->op2.u.constant.type = IS_STRING;
opline->op2.u.constant.value.str.val = estrndup(name, name_len);
opline->op2.u.constant.value.str.len = name_len;
opline->op2.u.constant.refcount = 1;
opline->extended_value = ZEND_DECLARE_FUNCTION;
zend_hash_update(CG(function_table), opline->op1.u.constant.value.str.val, opline->op1.u.constant.value.str.len, &op_array, sizeof(zend_op_array), (void **) &CG(active_op_array));
1999-04-08 02:10:10 +08:00
}
if (CG(extended_info)) {
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_EXT_NOP;
opline->lineno = function_begin_line;
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
}
{
/* Push a seperator to the switch and foreach stacks */
zend_switch_entry switch_entry;
switch_entry.cond.op_type = IS_UNUSED;
switch_entry.default_case = 0;
switch_entry.control_var = 0;
zend_stack_push(&CG(switch_cond_stack), (void *) &switch_entry, sizeof(switch_entry));
zend_stack_push(&CG(foreach_copy_stack), (void *) &switch_entry.cond, sizeof(znode));
}
2001-08-30 23:26:30 +08:00
function_token->throw_list = CG(throw_list);
CG(throw_list) = NULL;
1999-04-08 02:10:10 +08:00
}
void zend_do_end_function_declaration(znode *function_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_do_extended_info(TSRMLS_C);
zend_do_return(NULL, 0 TSRMLS_CC);
2001-07-31 12:53:54 +08:00
pass_two(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
CG(active_op_array) = function_token->u.op_array;
/* Pop the switch and foreach seperators */
zend_stack_del_top(&CG(switch_cond_stack));
zend_stack_del_top(&CG(foreach_copy_stack));
2001-08-30 23:26:30 +08:00
CG(throw_list) = function_token->throw_list;
1999-04-08 02:10:10 +08:00
}
void zend_do_receive_arg(int op, znode *var, znode *offset, znode *initialization, unsigned char pass_type TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = op;
opline->result = *var;
opline->op1 = *offset;
if ((op == ZEND_RECV_INIT)) {
1999-04-08 02:10:10 +08:00
opline->op2 = *initialization;
} else {
SET_UNUSED(opline->op2);
1999-04-08 02:10:10 +08:00
}
if (!CG(active_op_array)->arg_types) {
if (pass_type==BYREF_FORCE) {
int i;
1999-04-08 02:10:10 +08:00
CG(active_op_array)->arg_types = (unsigned char *) emalloc(sizeof(unsigned char)*(offset->u.constant.value.lval+1));
for (i=1; i<offset->u.constant.value.lval; i++) {
CG(active_op_array)->arg_types[i] = BYREF_NONE;
}
CG(active_op_array)->arg_types[0]=(unsigned char) offset->u.constant.value.lval;
2000-05-12 02:49:45 +08:00
CG(active_op_array)->arg_types[offset->u.constant.value.lval] = pass_type;
1999-04-08 02:10:10 +08:00
}
} else {
CG(active_op_array)->arg_types = (unsigned char *) erealloc(CG(active_op_array)->arg_types, sizeof(unsigned char)*(offset->u.constant.value.lval+1));
2000-05-12 02:49:45 +08:00
CG(active_op_array)->arg_types[0]=(unsigned char) offset->u.constant.value.lval;
CG(active_op_array)->arg_types[offset->u.constant.value.lval] = pass_type;
1999-04-08 02:10:10 +08:00
}
}
int zend_do_begin_function_call(znode *function_name TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_function *function;
zend_str_tolower(function_name->u.constant.value.str.val, function_name->u.constant.value.str.len);
2001-08-11 23:56:40 +08:00
if (zend_hash_find(CG(function_table), function_name->u.constant.value.str.val, function_name->u.constant.value.str.len+1, (void **) &function)==FAILURE) {
zend_do_begin_dynamic_function_call(function_name TSRMLS_CC);
1999-08-10 23:43:32 +08:00
return 1; /* Dynamic */
1999-04-08 02:10:10 +08:00
}
switch (function->type) {
case ZEND_USER_FUNCTION: {
zend_op_array *op_array = (zend_op_array *) function;
zend_stack_push(&CG(function_call_stack), (void *) &op_array, sizeof(zend_function *));
1999-04-08 02:10:10 +08:00
}
break;
case ZEND_INTERNAL_FUNCTION: {
zend_internal_function *internal_function = (zend_internal_function *) function;
zend_stack_push(&CG(function_call_stack), (void *) &internal_function, sizeof(zend_function *));
1999-04-08 02:10:10 +08:00
}
break;
}
zend_do_extended_fcall_begin(TSRMLS_C);
return 0;
1999-04-08 02:10:10 +08:00
}
void zend_do_begin_method_call(znode *object, znode *function_name TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *last_op;
int last_op_number;
1999-04-08 02:10:10 +08:00
unsigned char *ptr = NULL;
2000-07-04 03:17:57 +08:00
2001-08-10 22:18:38 +08:00
zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC);
zend_do_begin_variable_parse(TSRMLS_C);
last_op_number = get_next_op_number(CG(active_op_array))-1;
last_op = &CG(active_op_array)->opcodes[last_op_number];
last_op->opcode = ZEND_INIT_FCALL_BY_NAME;
last_op->extended_value = ZEND_MEMBER_FUNC_CALL;
/*opline = get_next_op(CG(active_op_array) TSRMLS_CC);
opline->opcode = ZEND_INIT_FCALL_BY_NAME;
opline->extended_value = ZEND_MEMBER_FUNC_CALL;
opline->op1 = *object;
opline->op2 = *function_name;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->result.op_type = IS_VAR;
*function_name = opline->result;
*/
/*
if (function_name->op_type == IS_CONST) {
zval_copy_ctor(&function_name->u.constant);
1999-04-08 02:10:10 +08:00
}
*/
zend_stack_push(&CG(function_call_stack), (void *) &ptr, sizeof(zend_function *));
zend_do_extended_fcall_begin(TSRMLS_C);
}
void zend_do_begin_dynamic_function_call(znode *function_name TSRMLS_DC)
{
unsigned char *ptr = NULL;
zend_op *opline;
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
opline->opcode = ZEND_INIT_FCALL_BY_NAME;
opline->op2 = *function_name;
opline->extended_value = 0;
SET_UNUSED(opline->op1);
zend_stack_push(&CG(function_call_stack), (void *) &ptr, sizeof(zend_function *));
zend_do_extended_fcall_begin(TSRMLS_C);
1999-04-08 02:10:10 +08:00
}
void do_fetch_class(znode *result, znode *class_entry, znode *class_name TSRMLS_DC)
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
opline->opcode = ZEND_FETCH_CLASS;
if (class_entry) {
opline->op1 = *class_entry;
} else {
SET_UNUSED(opline->op1);
}
zend_str_tolower(class_name->u.constant.value.str.val, class_name->u.constant.value.str.len);
if ((class_name->u.constant.value.str.len == (sizeof("self") - 1)) &&
!memcmp(class_name->u.constant.value.str.val, "self", sizeof("self"))) {
SET_UNUSED(opline->op2);
opline->extended_value = ZEND_FETCH_CLASS_SELF;
zval_dtor(&class_name->u.constant);
} else if ((class_name->u.constant.value.str.len == (sizeof("main") - 1)) &&
!memcmp(class_name->u.constant.value.str.val, "main", sizeof("main"))) {
SET_UNUSED(opline->op2);
opline->extended_value = ZEND_FETCH_CLASS_MAIN;
zval_dtor(&class_name->u.constant);
} else {
opline->op2 = *class_name;
}
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->result.op_type = IS_CONST; /* FIXME: Hack so that INIT_FCALL_BY_NAME still knows this is a class */
*result = opline->result;
}
void do_fetch_class_name(znode *result, znode *class_name_entry, znode *class_name TSRMLS_DC)
{
zend_uint length;
if (!result) {
result = class_name_entry;
} else {
*result = *class_name_entry;
}
length = 1 + result->u.constant.value.str.len + class_name->u.constant.value.str.len;
result->u.constant.value.str.val = erealloc(result->u.constant.value.str.val, length+1);
memcpy(&result->u.constant.value.str.val[result->u.constant.value.str.len], ":", sizeof(":")-1);
memcpy(&result->u.constant.value.str.val[result->u.constant.value.str.len+1], class_name->u.constant.value.str.val, class_name->u.constant.value.str.len+1);
STR_FREE(class_name->u.constant.value.str.val);
result->u.constant.value.str.len = length;
}
void zend_do_begin_class_member_function_call(znode *class_name, znode *function_name TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
unsigned char *ptr = NULL;
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_INIT_FCALL_BY_NAME;
zend_str_tolower(class_name->u.constant.value.str.val, class_name->u.constant.value.str.len);
2000-07-17 06:33:42 +08:00
if ((class_name->u.constant.value.str.len == sizeof("parent")-1)
2001-09-17 00:48:38 +08:00
&& !memcmp(class_name->u.constant.value.str.val, "parent", sizeof("parent")-1)) {
if (!CG(active_ce_parent_class_name).value.str.val) {
zend_error(E_COMPILE_ERROR, "No parent class available");
}
2000-07-17 00:40:21 +08:00
efree(class_name->u.constant.value.str.val);
class_name->u.constant.value.str.len = CG(active_ce_parent_class_name).value.str.len;
class_name->u.constant.value.str.val = estrndup(CG(active_ce_parent_class_name).value.str.val, class_name->u.constant.value.str.len);
2000-07-17 00:40:21 +08:00
}
1999-04-08 02:10:10 +08:00
opline->op1 = *class_name;
opline->op2 = *function_name;
opline->extended_value = ZEND_MEMBER_FUNC_CALL;
zend_stack_push(&CG(function_call_stack), (void *) &ptr, sizeof(zend_function *));
1999-04-08 02:10:10 +08:00
}
void zend_do_end_function_call(znode *function_name, znode *result, znode *argument_list, int is_method, int is_dynamic_fcall TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
if (!is_method && !is_dynamic_fcall && function_name->op_type==IS_CONST) {
opline->opcode = ZEND_DO_FCALL;
opline->op1 = *function_name;
} else {
opline->opcode = ZEND_DO_FCALL_BY_NAME;
SET_UNUSED(opline->op1);
}
1999-04-08 02:10:10 +08:00
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->result.op_type = IS_VAR;
1999-04-08 02:10:10 +08:00
*result = opline->result;
SET_UNUSED(opline->op2);
2001-08-30 23:26:30 +08:00
2001-08-30 23:31:35 +08:00
/* Check how much this is really needed
opline->op2.u.constant.value.lval = is_method;
*/
2001-08-30 23:26:30 +08:00
if (CG(throw_list) != NULL) {
long op_number = get_next_op_number(CG(active_op_array))-1;
zend_llist_add_element(CG(throw_list), &op_number);
} else {
opline->op2.u.opline_num = -1;
}
1999-04-08 02:10:10 +08:00
zend_stack_del_top(&CG(function_call_stack));
opline->extended_value = argument_list->u.constant.value.lval;
1999-04-08 02:10:10 +08:00
}
void zend_do_pass_param(znode *param, int op, int offset TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline;
unsigned char *arg_types;
1999-04-08 02:10:10 +08:00
int original_op=op;
zend_function **function_ptr_ptr, *function_ptr;
int send_by_reference;
1999-04-08 02:10:10 +08:00
zend_stack_top(&CG(function_call_stack), (void **) &function_ptr_ptr);
function_ptr = *function_ptr_ptr;
if (original_op==ZEND_SEND_REF
&& !CG(allow_call_time_pass_reference)) {
zend_error(E_COMPILE_WARNING,
"Call-time pass-by-reference has been deprecated - argument passed by value; "
"If you would like to pass it by reference, modify the declaration of %s(). "
2000-05-10 17:40:46 +08:00
"If you would like to enable call-time pass-by-reference, you can set "
"allow_call_time_pass_reference to true in your INI file. "
2000-05-10 17:40:46 +08:00
"However, future versions may not support this any longer. ",
(function_ptr?function_ptr->common.function_name:"[runtime function name]"),
offset+1);
}
if (function_ptr) {
arg_types = function_ptr->common.arg_types;
} else {
arg_types = NULL;
}
1999-04-08 02:10:10 +08:00
send_by_reference = ARG_SHOULD_BE_SENT_BY_REF(offset, 1, arg_types)?ZEND_ARG_SEND_BY_REF:0;
if (op == ZEND_SEND_VAR && zend_variable_buffer_empty(TSRMLS_C)) {
/* Method call */
op = ZEND_SEND_VAR_NO_REF;
} else if (op == ZEND_SEND_VAL && param->op_type == IS_VAR) {
op = ZEND_SEND_VAR_NO_REF;
1999-04-08 02:10:10 +08:00
}
if (op!=ZEND_SEND_VAR_NO_REF && send_by_reference == ZEND_ARG_SEND_BY_REF) {
1999-04-08 02:10:10 +08:00
/* change to passing by reference */
switch (param->op_type) {
case IS_VAR:
op = ZEND_SEND_REF;
break;
default:
zend_error(E_COMPILE_ERROR, "Only variables can be passed by reference");
break;
}
}
if (original_op == ZEND_SEND_VAR) {
1999-04-08 02:10:10 +08:00
switch(op) {
case ZEND_SEND_VAR_NO_REF:
zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC);
break;
1999-04-08 02:10:10 +08:00
case ZEND_SEND_VAR:
if (function_ptr) {
zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC);
} else {
zend_do_end_variable_parse(BP_VAR_FUNC_ARG, offset TSRMLS_CC);
}
1999-04-08 02:10:10 +08:00
break;
case ZEND_SEND_REF:
zend_do_end_variable_parse(BP_VAR_W, 0 TSRMLS_CC);
1999-04-08 02:10:10 +08:00
break;
}
}
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
if (op == ZEND_SEND_VAR_NO_REF) {
if (function_ptr) {
opline->extended_value = ZEND_ARG_COMPILE_TIME_BOUND | send_by_reference;
} else {
opline->extended_value = 0;
}
} else {
if (function_ptr) {
opline->extended_value = ZEND_DO_FCALL;
} else {
opline->extended_value = ZEND_DO_FCALL_BY_NAME;
}
}
1999-04-08 02:10:10 +08:00
opline->opcode = op;
opline->op1 = *param;
opline->op2.u.opline_num = offset;
SET_UNUSED(opline->op2);
}
static int generate_free_switch_expr(zend_switch_entry *switch_entry TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline;
if (switch_entry->cond.op_type!=IS_VAR && switch_entry->cond.op_type!=IS_TMP_VAR) {
return 1;
}
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
1999-07-24 19:43:21 +08:00
opline->opcode = ZEND_SWITCH_FREE;
opline->op1 = switch_entry->cond;
SET_UNUSED(opline->op2);
opline->extended_value = 0;
return 0;
1999-07-24 19:43:21 +08:00
}
static int generate_free_foreach_copy(znode *foreach_copy TSRMLS_DC)
{
zend_op *opline;
if (foreach_copy->op_type!=IS_VAR && foreach_copy->op_type!=IS_TMP_VAR) {
return 1;
}
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
opline->opcode = ZEND_SWITCH_FREE;
opline->op1 = *foreach_copy;
SET_UNUSED(opline->op2);
opline->extended_value = 1;
return 0;
}
1999-07-24 19:43:21 +08:00
void zend_do_return(znode *expr, int do_end_vparse TSRMLS_DC)
1999-07-24 19:43:21 +08:00
{
zend_op *opline;
2001-07-19 23:53:38 +08:00
if (do_end_vparse) {
if (CG(active_op_array)->return_reference) {
zend_do_end_variable_parse(BP_VAR_W, 0 TSRMLS_CC);
2001-07-19 23:53:38 +08:00
} else {
zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC);
}
2001-07-20 02:33:22 +08:00
#if 0
2001-07-19 23:53:38 +08:00
} else if (expr && CG(active_op_array)->return_reference) {
zend_error(E_COMPILE_ERROR, "Only variables may be returned by reference");
2001-07-20 02:33:22 +08:00
#endif
}
2001-07-19 23:53:38 +08:00
1999-07-24 19:43:21 +08:00
#ifdef ZTS
zend_stack_apply_with_argument(&CG(switch_cond_stack), ZEND_STACK_APPLY_TOPDOWN, (int (*)(void *element, void *)) generate_free_switch_expr TSRMLS_CC);
zend_stack_apply_with_argument(&CG(foreach_copy_stack), ZEND_STACK_APPLY_TOPDOWN, (int (*)(void *element, void *)) generate_free_foreach_copy TSRMLS_CC);
1999-07-24 19:43:21 +08:00
#else
zend_stack_apply(&CG(switch_cond_stack), ZEND_STACK_APPLY_TOPDOWN, (int (*)(void *element)) generate_free_switch_expr);
zend_stack_apply(&CG(foreach_copy_stack), ZEND_STACK_APPLY_TOPDOWN, (int (*)(void *element)) generate_free_foreach_copy);
1999-07-24 19:43:21 +08:00
#endif
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-07-24 19:43:21 +08:00
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_RETURN;
1999-04-08 02:10:10 +08:00
if (expr) {
opline->op1 = *expr;
} else {
opline->op1.op_type = IS_CONST;
INIT_ZVAL(opline->op1.u.constant);
1999-04-08 02:10:10 +08:00
}
SET_UNUSED(opline->op2);
}
2001-08-31 01:27:43 +08:00
void zend_do_try(znode *try_token TSRMLS_DC)
2001-08-30 23:26:30 +08:00
{
try_token->throw_list = (void *) CG(throw_list);
CG(throw_list) = (zend_llist *) emalloc(sizeof(zend_llist));
zend_llist_init(CG(throw_list), sizeof(long), NULL, 0);
2001-08-30 23:31:35 +08:00
/* Initialize try backpatch list used to backpatch throw, do_fcall */
2001-08-30 23:26:30 +08:00
}
static void throw_list_applier(long *opline_num, long *catch_opline)
{
zend_op *opline;
2001-08-31 01:27:43 +08:00
TSRMLS_FETCH(); /* Pass this by argument */
2001-08-30 23:26:30 +08:00
opline = &CG(active_op_array)->opcodes[*opline_num];
2001-08-30 23:31:35 +08:00
/* Backpatch the opline of the catch statement */
2001-08-30 23:26:30 +08:00
switch (opline->opcode) {
case ZEND_DO_FCALL:
case ZEND_DO_FCALL_BY_NAME:
case ZEND_THROW:
opline->op2.u.opline_num = *catch_opline;
break;
default:
zend_error(E_ERROR, "Bad opcode in throw list");
break;
}
}
2001-08-31 01:27:43 +08:00
void zend_do_begin_catch(znode *try_token, znode *catch_var TSRMLS_DC)
2001-08-30 23:26:30 +08:00
{
long catch_op_number = get_next_op_number(CG(active_op_array));
zend_op *opline;
2001-08-31 01:27:43 +08:00
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2001-08-30 23:26:30 +08:00
opline->opcode = ZEND_CATCH;
opline->op1 = *catch_var;
SET_UNUSED(opline->op2);
2001-08-31 01:27:43 +08:00
zend_llist_apply_with_argument(CG(throw_list), (llist_apply_with_arg_func_t) throw_list_applier, &catch_op_number TSRMLS_CC);
2001-08-30 23:26:30 +08:00
zend_llist_destroy(CG(throw_list));
efree(CG(throw_list));
CG(throw_list) = (void *) try_token->throw_list;
try_token->u.opline_num = catch_op_number;
}
2001-08-31 01:27:43 +08:00
void zend_do_end_catch(znode *try_token TSRMLS_DC)
2001-08-30 23:26:30 +08:00
{
CG(active_op_array)->opcodes[try_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
}
2001-08-31 01:27:43 +08:00
void zend_do_throw(znode *expr TSRMLS_DC)
2001-08-30 23:26:30 +08:00
{
zend_op *opline;
long throw_op_number = get_next_op_number(CG(active_op_array));
2001-08-31 01:27:43 +08:00
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2001-08-30 23:26:30 +08:00
opline->opcode = ZEND_THROW;
opline->op1 = *expr;
SET_UNUSED(opline->op2);
if (CG(throw_list) != NULL) {
zend_llist_add_element(CG(throw_list), &throw_op_number);
} else {
opline->op2.u.opline_num = -1;
}
}
2000-06-14 03:01:22 +08:00
ZEND_API void function_add_ref(zend_function *function)
{
if (function->type == ZEND_USER_FUNCTION) {
zend_op_array *op_array = &function->op_array;
(*op_array->refcount)++;
if (op_array->static_variables) {
HashTable *static_variables = op_array->static_variables;
zval *tmp_zval;
ALLOC_HASHTABLE(op_array->static_variables);
zend_hash_init(op_array->static_variables, 2, NULL, ZVAL_PTR_DTOR, 0);
zend_hash_copy(op_array->static_variables, static_variables, (copy_ctor_func_t) zval_add_ref, (void *) &tmp_zval, sizeof(zval *));
}
}
}
1999-07-28 04:34:31 +08:00
static void do_inherit_parent_constructor(zend_class_entry *ce)
{
if (ce->parent
&& !zend_hash_exists(&ce->function_table, ce->name, ce->name_length+1)) {
zend_function *function;
if (zend_hash_find(&ce->parent->function_table, ce->parent->name, ce->parent->name_length+1, (void **) &function)==SUCCESS) {
/* inherit parent's constructor */
zend_hash_update(&ce->function_table, ce->name, ce->name_length+1, function, sizeof(zend_function), NULL);
function_add_ref(function);
}
}
}
2000-11-03 03:27:55 +08:00
void zend_do_inheritance(zend_class_entry *ce, zend_class_entry *parent_ce)
{
zend_function tmp_zend_function;
zval *tmp;
/* Perform inheritance */
zend_hash_merge(&ce->default_properties, &parent_ce->default_properties, (void (*)(void *)) zval_add_ref, (void *) &tmp, sizeof(zval *), 0);
/* STATIC_MEMBERS_FIXME */
zend_hash_merge(ce->static_members, parent_ce->static_members, (void (*)(void *)) zval_add_ref, (void *) &tmp, sizeof(zval *), 0);
zend_hash_merge(&ce->constants_table, &parent_ce->constants_table, (void (*)(void *)) zval_add_ref, (void *) &tmp, sizeof(zval *), 0);
zend_hash_merge(&ce->function_table, &parent_ce->function_table, (void (*)(void *)) function_add_ref, &tmp_zend_function, sizeof(zend_function), 0);
ce->parent = parent_ce;
if (!ce->handle_property_get)
ce->handle_property_get = parent_ce->handle_property_get;
if (!ce->handle_property_set)
ce->handle_property_set = parent_ce->handle_property_set;
if (!ce->handle_function_call)
ce->handle_function_call = parent_ce->handle_function_call;
do_inherit_parent_constructor(ce);
}
1999-07-28 04:34:31 +08:00
ZEND_API int do_bind_function_or_class(zend_op *opline, HashTable *function_table, HashTable *class_table, int compile_time)
{
switch (opline->extended_value) {
case ZEND_DECLARE_FUNCTION: {
zend_function *function;
1999-12-25 00:03:44 +08:00
zend_hash_find(function_table, opline->op1.u.constant.value.str.val, opline->op1.u.constant.value.str.len, (void *) &function);
if (zend_hash_add(function_table, opline->op2.u.constant.value.str.val, opline->op2.u.constant.value.str.len+1, function, sizeof(zend_function), NULL)==FAILURE) {
2001-07-16 00:22:41 +08:00
int error_level = compile_time ? E_COMPILE_ERROR : E_ERROR;
2001-08-19 21:39:06 +08:00
zend_function *function;
if (zend_hash_find(function_table, opline->op2.u.constant.value.str.val, opline->op2.u.constant.value.str.len+1, (void *) &function)==SUCCESS
&& function->type==ZEND_USER_FUNCTION
&& ((zend_op_array *) function)->last>0) {
zend_error(error_level, "Cannot redeclare %s() (previously declared in %s:%d)",
opline->op2.u.constant.value.str.val,
((zend_op_array *) function)->filename,
((zend_op_array *) function)->opcodes[0].lineno);
} else {
zend_error(error_level, "Cannot redeclare %s()", opline->op2.u.constant.value.str.val);
}
return FAILURE;
} else {
1999-12-25 00:03:44 +08:00
(*function->op_array.refcount)++;
function->op_array.static_variables = NULL; /* NULL out the unbound function */
return SUCCESS;
}
}
break;
case ZEND_DECLARE_CLASS: {
zend_class_entry *ce;
if (zend_hash_find(class_table, opline->op1.u.constant.value.str.val, opline->op1.u.constant.value.str.len, (void **) &ce)==FAILURE) {
zend_error(E_ERROR, "Internal Zend error - Missing class information for %s", opline->op1.u.constant.value.str.val);
return FAILURE;
}
(*ce->refcount)++;
if (zend_hash_add(class_table, opline->op2.u.constant.value.str.val, opline->op2.u.constant.value.str.len+1, ce, sizeof(zend_class_entry), NULL)==FAILURE) {
1999-08-14 20:54:17 +08:00
(*ce->refcount)--;
if (!compile_time) {
zend_error(E_ERROR, "Cannot redeclare class %s", opline->op2.u.constant.value.str.val);
}
return FAILURE;
} else {
return SUCCESS;
}
}
break;
case ZEND_DECLARE_INHERITED_CLASS: {
zend_class_entry *ce, *parent_ce;
int parent_name_length;
char *class_name, *parent_name;
int found_ce;
found_ce = zend_hash_find(class_table, opline->op1.u.constant.value.str.val, opline->op1.u.constant.value.str.len, (void **) &ce);
/* Restore base class / derived class names */
class_name = strchr(opline->op2.u.constant.value.str.val, ':');
if (!class_name) {
zend_error(E_CORE_ERROR, "Invalid runtime class entry");
}
class_name++;
if (found_ce==FAILURE) {
zend_error(E_ERROR, "Cannot redeclare class %s", class_name);
return FAILURE;
}
(*ce->refcount)++;
/* Obtain parent class */
parent_name_length = class_name - opline->op2.u.constant.value.str.val - 1;
parent_name = estrndup(opline->op2.u.constant.value.str.val, parent_name_length);
if (zend_hash_find(class_table, parent_name, parent_name_length+1, (void **) &parent_ce)==FAILURE) {
if (!compile_time) {
zend_error(E_ERROR, "Class %s: Cannot inherit from undefined class %s", class_name, parent_name);
}
(*ce->refcount)--;
efree(parent_name);
return FAILURE;
}
efree(parent_name);
2000-11-03 03:27:55 +08:00
zend_do_inheritance(ce, parent_ce);
/* Register the derived class */
if (zend_hash_add(class_table, class_name, strlen(class_name)+1, ce, sizeof(zend_class_entry), NULL)==FAILURE) {
if (!compile_time) {
zend_error(E_ERROR, "Cannot redeclare class %s", opline->op2.u.constant.value.str.val);
}
(*ce->refcount)--;
zend_hash_destroy(&ce->function_table);
zend_hash_destroy(&ce->default_properties);
zend_hash_destroy(ce->static_members);
zend_hash_destroy(&ce->constants_table);
return FAILURE;
}
return SUCCESS;
}
break;
}
1999-07-27 05:31:40 +08:00
return FAILURE;
}
void zend_do_early_binding(TSRMLS_D)
{
zend_op *opline = &CG(active_op_array)->opcodes[CG(active_op_array)->last-1];
HashTable *table;
if (do_bind_function_or_class(opline, CG(function_table), CG(class_table), 1)==FAILURE) {
return;
}
switch (opline->extended_value) {
case ZEND_DECLARE_FUNCTION:
table = CG(function_table);
break;
case ZEND_DECLARE_CLASS:
table = CG(class_table);
break;
1999-09-11 00:16:24 +08:00
default:
zend_error(E_COMPILE_ERROR, "Invalid binding type");
return;
}
zend_hash_del(table, opline->op1.u.constant.value.str.val, opline->op1.u.constant.value.str.len);
zval_dtor(&opline->op1.u.constant);
zval_dtor(&opline->op2.u.constant);
opline->opcode = ZEND_NOP;
memset(&opline->op1, 0, sizeof(znode));
memset(&opline->op2, 0, sizeof(znode));
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
}
void zend_do_boolean_or_begin(znode *expr1, znode *op_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
int next_op_number = get_next_op_number(CG(active_op_array));
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMPNZ_EX;
if (expr1->op_type == IS_TMP_VAR) {
opline->result = *expr1;
} else {
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->result.op_type = IS_TMP_VAR;
}
opline->op1 = *expr1;
SET_UNUSED(opline->op2);
op_token->u.opline_num = next_op_number;
*expr1 = opline->result;
}
void zend_do_boolean_or_end(znode *result, znode *expr1, znode *expr2, znode *op_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
*result = *expr1; /* we saved the original result in expr1 */
opline->opcode = ZEND_BOOL;
opline->result = *result;
opline->op1 = *expr2;
SET_UNUSED(opline->op2);
CG(active_op_array)->opcodes[op_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
}
void zend_do_boolean_and_begin(znode *expr1, znode *op_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
int next_op_number = get_next_op_number(CG(active_op_array));
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMPZ_EX;
if (expr1->op_type == IS_TMP_VAR) {
opline->result = *expr1;
} else {
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->result.op_type = IS_TMP_VAR;
}
opline->op1 = *expr1;
SET_UNUSED(opline->op2);
op_token->u.opline_num = next_op_number;
*expr1 = opline->result;
}
void zend_do_boolean_and_end(znode *result, znode *expr1, znode *expr2, znode *op_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
*result = *expr1; /* we saved the original result in expr1 */
opline->opcode = ZEND_BOOL;
opline->result = *result;
opline->op1 = *expr2;
SET_UNUSED(opline->op2);
CG(active_op_array)->opcodes[op_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
}
void zend_do_do_while_begin(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
do_begin_loop(TSRMLS_C);
1999-04-08 02:10:10 +08:00
INC_BPC(CG(active_op_array));
}
void zend_do_do_while_end(znode *do_token, znode *expr_open_bracket, znode *expr TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMPNZ;
opline->op1 = *expr;
opline->op2.u.opline_num = do_token->u.opline_num;
1999-06-23 04:24:51 +08:00
SET_UNUSED(opline->op2);
1999-04-08 02:10:10 +08:00
do_end_loop(expr_open_bracket->u.opline_num TSRMLS_CC);
1999-04-08 02:10:10 +08:00
DEC_BPC(CG(active_op_array));
}
void zend_do_brk_cont(int op, znode *expr TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = op;
opline->op1.u.opline_num = CG(active_op_array)->current_brk_cont;
SET_UNUSED(opline->op1);
if (expr) {
opline->op2 = *expr;
} else {
opline->op2.u.constant.type = IS_LONG;
opline->op2.u.constant.value.lval = 1;
INIT_PZVAL(&opline->op2.u.constant);
1999-04-08 02:10:10 +08:00
opline->op2.op_type = IS_CONST;
}
}
void zend_do_switch_cond(znode *cond TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_switch_entry switch_entry;
zend_op *opline;
/* Initialize the conditional value */
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
opline->opcode = ZEND_BOOL;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->result.op_type = IS_TMP_VAR;
opline->op1.op_type = IS_CONST;
opline->op1.u.constant.type = IS_BOOL;
opline->op1.u.constant.value.lval = 0;
INIT_PZVAL(&opline->op1.u.constant);
SET_UNUSED(opline->op2);
1999-04-08 02:10:10 +08:00
switch_entry.cond = *cond;
switch_entry.default_case = -1;
switch_entry.control_var = opline->result.u.var;
1999-04-08 02:10:10 +08:00
zend_stack_push(&CG(switch_cond_stack), (void *) &switch_entry, sizeof(switch_entry));
do_begin_loop(TSRMLS_C);
1999-04-08 02:10:10 +08:00
INC_BPC(CG(active_op_array));
}
void zend_do_switch_end(znode *case_list TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline;
zend_switch_entry *switch_entry_ptr;
zend_stack_top(&CG(switch_cond_stack), (void **) &switch_entry_ptr);
2000-04-11 02:24:38 +08:00
if (case_list->op_type != IS_UNUSED) { /* non-empty switch */
1999-04-08 02:10:10 +08:00
int next_op_number = get_next_op_number(CG(active_op_array));
CG(active_op_array)->opcodes[case_list->u.opline_num].op1.u.opline_num = next_op_number;
}
/* add code to jmp to default case */
if (switch_entry_ptr->default_case != -1) {
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMPZ;
opline->op1.op_type = IS_TMP_VAR;
opline->op1.u.var = switch_entry_ptr->control_var;
opline->op2.u.opline_num = switch_entry_ptr->default_case;
SET_UNUSED(opline->op2);
}
/* remember break/continue loop information */
CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].cont = CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].brk = get_next_op_number(CG(active_op_array));
CG(active_op_array)->current_brk_cont = CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].parent;
if (switch_entry_ptr->cond.op_type==IS_VAR || switch_entry_ptr->cond.op_type==IS_TMP_VAR) {
/* emit free for the switch condition*/
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
opline->opcode = ZEND_SWITCH_FREE;
opline->op1 = switch_entry_ptr->cond;
SET_UNUSED(opline->op2);
}
1999-04-08 02:10:10 +08:00
if (switch_entry_ptr->cond.op_type == IS_CONST) {
zval_dtor(&switch_entry_ptr->cond.u.constant);
}
zend_stack_del_top(&CG(switch_cond_stack));
DEC_BPC(CG(active_op_array));
}
void zend_do_case_before_statement(znode *case_list, znode *case_token, znode *case_expr TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
int next_op_number;
zend_switch_entry *switch_entry_ptr;
znode result;
zend_stack_top(&CG(switch_cond_stack), (void **) &switch_entry_ptr);
opline->opcode = ZEND_CASE;
opline->result.u.var = switch_entry_ptr->control_var;
opline->result.op_type = IS_TMP_VAR;
opline->op1 = switch_entry_ptr->cond;
opline->op2 = *case_expr;
if (opline->op1.op_type == IS_CONST) {
zval_copy_ctor(&opline->op1.u.constant);
}
result = opline->result;
next_op_number = get_next_op_number(CG(active_op_array));
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMPZ;
opline->op1 = result;
SET_UNUSED(opline->op2);
case_token->u.opline_num = next_op_number;
2000-04-11 02:02:40 +08:00
if (case_list->op_type==IS_UNUSED) {
1999-04-08 02:10:10 +08:00
return;
}
next_op_number = get_next_op_number(CG(active_op_array));
CG(active_op_array)->opcodes[case_list->u.opline_num].op1.u.opline_num = next_op_number;
}
void zend_do_case_after_statement(znode *result, znode *case_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
int next_op_number = get_next_op_number(CG(active_op_array));
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMP;
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
result->u.opline_num = next_op_number;
switch (CG(active_op_array)->opcodes[case_token->u.opline_num].opcode) {
case ZEND_JMP:
CG(active_op_array)->opcodes[case_token->u.opline_num].op1.u.opline_num = get_next_op_number(CG(active_op_array));
break;
case ZEND_JMPZ:
CG(active_op_array)->opcodes[case_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
break;
}
}
void zend_do_default_before_statement(znode *case_list, znode *default_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
int next_op_number = get_next_op_number(CG(active_op_array));
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
zend_switch_entry *switch_entry_ptr;
zend_stack_top(&CG(switch_cond_stack), (void **) &switch_entry_ptr);
opline->opcode = ZEND_JMP;
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
default_token->u.opline_num = next_op_number;
next_op_number = get_next_op_number(CG(active_op_array));
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_BOOL;
opline->result.u.var = switch_entry_ptr->control_var;
opline->result.op_type = IS_TMP_VAR;
opline->op1.op_type = IS_CONST;
opline->op1.u.constant.type = IS_BOOL;
1999-04-08 02:10:10 +08:00
opline->op1.u.constant.value.lval = 1;
INIT_PZVAL(&opline->op1.u.constant);
1999-04-08 02:10:10 +08:00
SET_UNUSED(opline->op2);
switch_entry_ptr->default_case = next_op_number;
2000-04-11 02:24:38 +08:00
if (case_list->op_type==IS_UNUSED) {
1999-04-08 02:10:10 +08:00
return;
}
next_op_number = get_next_op_number(CG(active_op_array));
1999-04-08 02:10:10 +08:00
CG(active_op_array)->opcodes[case_list->u.opline_num].op1.u.opline_num = next_op_number;
}
void zend_do_begin_class_declaration(znode *class_token, znode *class_name, znode *parent_class_name TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline;
int runtime_inheritance = 0;
zend_class_entry new_class_entry;
class_token->u.previously_active_class_entry = CG(active_class_entry);
new_class_entry.type = ZEND_USER_CLASS;
new_class_entry.name = class_name->u.constant.value.str.val;
new_class_entry.name_length = class_name->u.constant.value.str.len;
new_class_entry.refcount = (int *) emalloc(sizeof(int));
*new_class_entry.refcount = 1;
new_class_entry.constants_updated = 0;
1999-04-08 02:10:10 +08:00
zend_str_tolower(new_class_entry.name, new_class_entry.name_length);
1999-04-08 02:10:10 +08:00
zend_hash_init(&new_class_entry.function_table, 10, NULL, ZEND_FUNCTION_DTOR, 0);
zend_hash_init(&new_class_entry.class_table, 10, NULL, ZEND_CLASS_DTOR, 0);
zend_hash_init(&new_class_entry.default_properties, 10, NULL, ZVAL_PTR_DTOR, 0);
new_class_entry.static_members = (HashTable *) emalloc(sizeof(HashTable));
zend_hash_init(new_class_entry.static_members, 10, NULL, ZVAL_PTR_DTOR, 0);
zend_hash_init(&new_class_entry.constants_table, 10, NULL, ZVAL_PTR_DTOR, 0);
1999-04-08 02:10:10 +08:00
2001-11-03 20:19:52 +08:00
new_class_entry.constructor = NULL;
new_class_entry.handle_function_call = NULL;
new_class_entry.handle_property_set = NULL;
new_class_entry.handle_property_get = NULL;
1999-04-08 02:10:10 +08:00
/* code for inheritance from parent class */
if (parent_class_name) {
zend_class_entry *parent_class;
zend_function tmp_zend_function;
zval *tmp;
zend_str_tolower(parent_class_name->u.constant.value.str.val, parent_class_name->u.constant.value.str.len);
CG(active_ce_parent_class_name).value.str.val = estrndup(parent_class_name->u.constant.value.str.val, parent_class_name->u.constant.value.str.len);
CG(active_ce_parent_class_name).value.str.len = parent_class_name->u.constant.value.str.len;
if (zend_hash_find(CG(active_class_entry)?&CG(active_class_entry)->class_table:CG(class_table), parent_class_name->u.constant.value.str.val, parent_class_name->u.constant.value.str.len+1, (void **) &parent_class)==SUCCESS) {
/* copy functions */
zend_hash_copy(&new_class_entry.function_table, &parent_class->function_table, (copy_ctor_func_t) function_add_ref, &tmp_zend_function, sizeof(zend_function));
1999-04-08 02:10:10 +08:00
/* copy default properties */
zend_hash_copy(&new_class_entry.default_properties, &parent_class->default_properties, (copy_ctor_func_t) zval_add_ref, (void *) &tmp, sizeof(zval *));
1999-04-08 02:10:10 +08:00
/* copy static members */
zend_hash_copy(new_class_entry.static_members, parent_class->static_members, (copy_ctor_func_t) zval_add_ref, (void *) &tmp, sizeof(zval *));
/* copy constants */
zend_hash_copy(&new_class_entry.constants_table, &parent_class->constants_table, (copy_ctor_func_t) zval_add_ref, (void *) &tmp, sizeof(zval *));
new_class_entry.constructor = parent_class->constructor;
/* copy overloaded handlers */
new_class_entry.handle_function_call = parent_class->handle_function_call;
new_class_entry.handle_property_get = parent_class->handle_property_get;
new_class_entry.handle_property_set = parent_class->handle_property_set;
new_class_entry.parent = parent_class;
zval_dtor(&parent_class_name->u.constant);
} else {
runtime_inheritance = 1;
new_class_entry.parent = NULL;
}
1999-04-08 02:10:10 +08:00
} else {
new_class_entry.parent = NULL;
1999-04-08 02:10:10 +08:00
}
if (CG(active_class_entry)) {
if (runtime_inheritance) {
zend_error(E_ERROR, "Only first level classes can inherit from undefined classes");
}
zend_hash_update(&CG(active_class_entry)->class_table, new_class_entry.name, new_class_entry.name_length+1, &new_class_entry, sizeof(zend_class_entry), (void **) &CG(active_class_entry));
return;
}
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
opline->opcode = ZEND_DECLARE_FUNCTION_OR_CLASS;
opline->op1.op_type = IS_CONST;
build_runtime_defined_function_key(&opline->op1.u.constant, &class_name->u.constant, opline TSRMLS_CC);
opline->op2.op_type = IS_CONST;
opline->op2.u.constant.type = IS_STRING;
opline->op2.u.constant.refcount = 1;
if (runtime_inheritance) {
char *full_class_name;
opline->op2.u.constant.value.str.len = parent_class_name->u.constant.value.str.len+1+new_class_entry.name_length;
full_class_name = opline->op2.u.constant.value.str.val = (char *) emalloc(opline->op2.u.constant.value.str.len+1);
memcpy(full_class_name, parent_class_name->u.constant.value.str.val, parent_class_name->u.constant.value.str.len);
full_class_name += parent_class_name->u.constant.value.str.len;
full_class_name[0] = ':';
full_class_name++;
memcpy(full_class_name, new_class_entry.name, new_class_entry.name_length);
zval_dtor(&parent_class_name->u.constant);
full_class_name += new_class_entry.name_length;
full_class_name[0] = 0;
opline->extended_value = ZEND_DECLARE_INHERITED_CLASS;
} else {
opline->op2.u.constant.value.str.val = estrndup(new_class_entry.name, new_class_entry.name_length);
opline->op2.u.constant.value.str.len = new_class_entry.name_length;
opline->extended_value = ZEND_DECLARE_CLASS;
}
zend_hash_update(CG(class_table), opline->op1.u.constant.value.str.val, opline->op1.u.constant.value.str.len, &new_class_entry, sizeof(zend_class_entry), (void **) &CG(active_class_entry));
1999-04-08 02:10:10 +08:00
}
void zend_do_end_class_declaration(znode *class_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
1999-07-28 04:34:31 +08:00
do_inherit_parent_constructor(CG(active_class_entry));
CG(active_class_entry) = class_token->u.previously_active_class_entry;
if (CG(active_ce_parent_class_name).value.str.val) {
efree(CG(active_ce_parent_class_name).value.str.val);
CG(active_ce_parent_class_name).value.str.val = NULL;
}
1999-04-08 02:10:10 +08:00
}
void zend_do_declare_property(znode *var_name, znode *value, int declaration_type TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
if (value) {
1999-12-27 05:21:33 +08:00
zval *property;
ALLOC_ZVAL(property);
1999-04-08 02:10:10 +08:00
*property = value->u.constant;
switch (declaration_type) {
case T_VAR:
zend_hash_update(&CG(active_class_entry)->default_properties, var_name->u.constant.value.str.val, var_name->u.constant.value.str.len+1, &property, sizeof(zval *), NULL);
break;
case T_STATIC:
zend_hash_update(CG(active_class_entry)->static_members, var_name->u.constant.value.str.val, var_name->u.constant.value.str.len+1, &property, sizeof(zval *), NULL);
break;
case T_CONST:
zend_hash_update(&CG(active_class_entry)->constants_table, var_name->u.constant.value.str.val, var_name->u.constant.value.str.len+1, &property, sizeof(zval *), NULL);
break;
}
1999-04-08 02:10:10 +08:00
}
FREE_PNODE(var_name);
}
void zend_do_fetch_property(znode *result, znode *object, znode *property TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op opline;
1999-04-08 02:10:10 +08:00
zend_llist *fetch_list_ptr;
init_op(&opline TSRMLS_CC);
opline.opcode = ZEND_FETCH_OBJ_W; /* the backpatching routine assumes W */
opline.result.op_type = IS_VAR;
opline.result.u.EA.type = 0;
opline.result.u.var = get_temporary_variable(CG(active_op_array));
opline.op1 = *object;
opline.op2 = *property;
*result = opline.result;
1999-04-08 02:10:10 +08:00
zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
zend_llist_add_element(fetch_list_ptr, &opline);
1999-04-08 02:10:10 +08:00
}
void zend_do_push_object(znode *object TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_stack_push(&CG(object_stack), object, sizeof(znode));
}
void zend_do_pop_object(znode *object TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
znode *tmp;
zend_stack_top(&CG(object_stack), (void **) &tmp);
*object = *tmp;
zend_stack_del_top(&CG(object_stack));
}
void zend_do_begin_new_object(znode *new_token, znode *class_type TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
unsigned char *ptr = NULL;
opline->opcode = ZEND_NEW;
opline->result.op_type = IS_VAR;
1999-04-08 02:10:10 +08:00
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *class_type;
1999-04-08 02:10:10 +08:00
SET_UNUSED(opline->op2);
new_token->u.opline_num = get_next_op_number(CG(active_op_array));
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMP_NO_CTOR;
opline->op1 = (opline-1)->result;
1999-04-08 02:10:10 +08:00
SET_UNUSED(opline->op2);
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_INIT_FCALL_BY_NAME;
opline->op1 = (opline-2)->result;
SET_UNUSED(opline->op2);
opline->extended_value = ZEND_MEMBER_FUNC_CALL | ZEND_CTOR_CALL;
1999-04-08 02:10:10 +08:00
zend_stack_push(&CG(function_call_stack), (void *) &ptr, sizeof(unsigned char *));
}
void zend_do_end_new_object(znode *result, znode *new_token, znode *argument_list TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
znode ctor_result;
zend_do_end_function_call(NULL, &ctor_result, argument_list, 1, 0 TSRMLS_CC);
zend_do_free(&ctor_result TSRMLS_CC);
1999-04-08 02:10:10 +08:00
CG(active_op_array)->opcodes[new_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
*result = CG(active_op_array)->opcodes[new_token->u.opline_num].op1;
1999-04-08 02:10:10 +08:00
}
void zend_do_fetch_constant(znode *result, znode *constant_container, znode *constant_name, int mode TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
switch (mode) {
case ZEND_CT:
if (constant_container) {
do_fetch_class_name(NULL, constant_container, constant_name TSRMLS_CC);
*result = *constant_container;
} else {
*result = *constant_name;
}
1999-04-08 02:10:10 +08:00
result->u.constant.type = IS_CONSTANT;
break;
case ZEND_RT:
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_FETCH_CONSTANT;
opline->result.op_type = IS_TMP_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
if (constant_container) {
opline->op1 = *constant_container;
} else {
SET_UNUSED(opline->op1);
}
opline->op2 = *constant_name;
1999-04-08 02:10:10 +08:00
*result = opline->result;
}
break;
}
}
void zend_do_shell_exec(znode *result, znode *cmd TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
switch (cmd->op_type) {
case IS_TMP_VAR:
opline->opcode = ZEND_SEND_VAL;
break;
default:
opline->opcode = ZEND_SEND_VAR;
break;
}
opline->op1 = *cmd;
opline->op2.u.opline_num = 0;
opline->extended_value = ZEND_DO_FCALL;
1999-04-08 02:10:10 +08:00
SET_UNUSED(opline->op2);
2001-08-30 23:31:35 +08:00
/* FIXME: exception support not added to this op2 */
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_DO_FCALL;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
2000-01-30 01:49:05 +08:00
opline->result.op_type = IS_VAR;
2001-08-11 23:56:40 +08:00
opline->op1.u.constant.value.str.val = estrndup("shell_exec", sizeof("shell_exec")-1);
1999-04-08 02:10:10 +08:00
opline->op1.u.constant.value.str.len = sizeof("shell_exec")-1;
INIT_PZVAL(&opline->op1.u.constant);
1999-04-08 02:10:10 +08:00
opline->op1.u.constant.type = IS_STRING;
opline->op1.op_type = IS_CONST;
1999-06-01 02:33:12 +08:00
opline->extended_value = 1;
1999-04-08 02:10:10 +08:00
SET_UNUSED(opline->op2);
*result = opline->result;
}
void zend_do_init_array(znode *result, znode *expr, znode *offset, int is_ref TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_INIT_ARRAY;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->result.op_type = IS_TMP_VAR;
*result = opline->result;
if (expr) {
opline->op1 = *expr;
if (offset) {
opline->op2 = *offset;
} else {
SET_UNUSED(opline->op2);
}
} else {
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
}
opline->extended_value = is_ref;
1999-04-08 02:10:10 +08:00
}
void zend_do_add_array_element(znode *result, znode *expr, znode *offset, int is_ref TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_ADD_ARRAY_ELEMENT;
opline->result = *result;
opline->op1 = *expr;
if (offset) {
opline->op2 = *offset;
} else {
SET_UNUSED(opline->op2);
}
opline->extended_value = is_ref;
1999-04-08 02:10:10 +08:00
}
2000-11-03 03:27:55 +08:00
void zend_do_add_static_array_element(znode *result, znode *offset, znode *expr)
1999-04-08 02:10:10 +08:00
{
1999-12-27 05:21:33 +08:00
zval *element;
1999-04-08 02:10:10 +08:00
1999-12-27 05:21:33 +08:00
ALLOC_ZVAL(element);
1999-04-08 02:10:10 +08:00
*element = expr->u.constant;
if (offset) {
switch (offset->u.constant.type) {
2000-12-07 18:36:45 +08:00
case IS_CONSTANT:
2001-07-16 19:41:06 +08:00
/* Ugly hack to denote that this value has a constant index */
element->type |= IS_CONSTANT_INDEX;
/* break missing intentionally */
1999-04-08 02:10:10 +08:00
case IS_STRING:
zend_hash_update(result->u.constant.value.ht, offset->u.constant.value.str.val, offset->u.constant.value.str.len+1, &element, sizeof(zval *), NULL);
zval_dtor(&offset->u.constant);
1999-04-08 02:10:10 +08:00
break;
case IS_LONG:
zend_hash_index_update(result->u.constant.value.ht, offset->u.constant.value.lval, &element, sizeof(zval *), NULL);
break;
}
} else {
zend_hash_next_index_insert(result->u.constant.value.ht, &element, sizeof(zval *), NULL);
}
}
void zend_do_add_list_element(znode *element TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
list_llist_element lle;
if (element) {
1999-04-08 02:10:10 +08:00
lle.var = *element;
zend_llist_copy(&lle.dimensions, &CG(dimension_llist));
zend_llist_prepend_element(&CG(list_llist), &lle);
1999-04-08 02:10:10 +08:00
}
(*((int *)CG(dimension_llist).tail->data))++;
}
void zend_do_new_list_begin(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
int current_dimension = 0;
zend_llist_add_element(&CG(dimension_llist), &current_dimension);
}
void zend_do_new_list_end(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
zend_llist_remove_tail(&CG(dimension_llist));
(*((int *)CG(dimension_llist).tail->data))++;
}
void zend_do_list_init(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
zend_stack_push(&CG(list_stack), &CG(list_llist), sizeof(zend_llist));
zend_stack_push(&CG(list_stack), &CG(dimension_llist), sizeof(zend_llist));
1999-04-08 02:10:10 +08:00
zend_llist_init(&CG(list_llist), sizeof(list_llist_element), NULL, 0);
zend_llist_init(&CG(dimension_llist), sizeof(int), NULL, 0);
zend_do_new_list_begin(TSRMLS_C);
1999-04-08 02:10:10 +08:00
}
void zend_do_list_end(znode *result, znode *expr TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_llist_element *le;
zend_llist_element *dimension;
zend_op *opline;
znode last_container;
le = CG(list_llist).head;
while (le) {
zend_llist *tmp_dimension_llist = &((list_llist_element *)le->data)->dimensions;
dimension = tmp_dimension_llist->head;
while (dimension) {
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
if (dimension == tmp_dimension_llist->head) { /* first */
last_container = *expr;
switch(expr->op_type) {
case IS_VAR:
opline->opcode = ZEND_FETCH_DIM_R;
break;
case IS_TMP_VAR:
opline->opcode = ZEND_FETCH_DIM_TMP_VAR;
break;
1999-04-08 02:10:10 +08:00
case IS_CONST: /* fetch_dim_tmp_var will handle this bogus fetch */
zval_copy_ctor(&expr->u.constant);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_FETCH_DIM_TMP_VAR;
break;
}
} else {
opline->opcode = ZEND_FETCH_DIM_R;
}
opline->result.op_type = IS_VAR;
opline->result.u.EA.type = 0;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = last_container;
opline->op2.op_type = IS_CONST;
opline->op2.u.constant.type = IS_LONG;
opline->op2.u.constant.value.lval = *((int *) dimension->data);
INIT_PZVAL(&opline->op2.u.constant);
opline->extended_value = ZEND_FETCH_ADD_LOCK;
1999-04-08 02:10:10 +08:00
last_container = opline->result;
dimension = dimension->next;
}
((list_llist_element *) le->data)->value = last_container;
zend_llist_destroy(&((list_llist_element *) le->data)->dimensions);
zend_do_end_variable_parse(BP_VAR_W, 0 TSRMLS_CC);
zend_do_assign(result, &((list_llist_element *) le->data)->var, &((list_llist_element *) le->data)->value TSRMLS_CC);
CG(active_op_array)->opcodes[CG(active_op_array)->last-1].result.u.EA.type |= EXT_TYPE_UNUSED;
1999-04-08 02:10:10 +08:00
le = le->next;
}
zend_llist_destroy(&CG(dimension_llist));
zend_llist_destroy(&CG(list_llist));
*result = *expr;
{
zend_llist *p;
/* restore previous lists */
zend_stack_top(&CG(list_stack), (void **) &p);
CG(dimension_llist) = *p;
zend_stack_del_top(&CG(list_stack));
zend_stack_top(&CG(list_stack), (void **) &p);
CG(list_llist) = *p;
zend_stack_del_top(&CG(list_stack));
}
1999-04-08 02:10:10 +08:00
}
void zend_do_fetch_global_or_static_variable(znode *varname, znode *static_assignment, int fetch_type TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
znode lval;
znode result;
1999-04-08 02:10:10 +08:00
1999-04-08 08:18:29 +08:00
if (fetch_type==ZEND_FETCH_STATIC && static_assignment) {
1999-12-27 05:21:33 +08:00
zval *tmp;
1999-04-08 02:10:10 +08:00
1999-12-27 05:21:33 +08:00
ALLOC_ZVAL(tmp);
1999-04-08 02:10:10 +08:00
convert_to_string(&varname->u.constant);
*tmp = static_assignment->u.constant;
if (!CG(active_op_array)->static_variables) {
ALLOC_HASHTABLE(CG(active_op_array)->static_variables);
1999-12-22 01:14:31 +08:00
zend_hash_init(CG(active_op_array)->static_variables, 2, NULL, ZVAL_PTR_DTOR, 0);
1999-04-08 02:10:10 +08:00
}
2000-03-24 19:12:30 +08:00
zend_hash_update(CG(active_op_array)->static_variables, varname->u.constant.value.str.val, varname->u.constant.value.str.len+1, &tmp, sizeof(zval *), NULL);
1999-04-08 02:10:10 +08:00
}
opline->opcode = ZEND_FETCH_W; /* the default mode must be Write, since fetch_simple_variable() is used to define function arguments */
opline->result.op_type = IS_VAR;
opline->result.u.EA.type = 0;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *varname;
SET_UNUSED(opline->op2);
2001-11-25 02:27:20 +08:00
opline->extended_value = fetch_type;
result = opline->result;
1999-04-08 02:10:10 +08:00
if (varname->op_type == IS_CONST) {
zval_copy_ctor(&varname->u.constant);
}
fetch_simple_variable(&lval, varname, 0 TSRMLS_CC); /* Relies on the fact that the default fetch is BP_VAR_W */
1999-04-08 02:10:10 +08:00
zend_do_assign_ref(NULL, &lval, &result TSRMLS_CC);
1999-04-08 08:18:29 +08:00
CG(active_op_array)->opcodes[CG(active_op_array)->last-1].result.u.EA.type |= EXT_TYPE_UNUSED;
1999-04-08 02:10:10 +08:00
}
void zend_do_cast(znode *result, znode *expr, int type TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_CAST;
opline->result.op_type = IS_TMP_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *expr;
SET_UNUSED(opline->op2);
opline->extended_value = type;
1999-04-08 02:10:10 +08:00
*result = opline->result;
}
void zend_do_include_or_eval(int type, znode *result, znode *op1 TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_do_extended_fcall_begin(TSRMLS_C);
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_INCLUDE_OR_EVAL;
opline->result.op_type = IS_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *op1;
SET_UNUSED(opline->op2);
opline->op2.u.constant.value.lval = type;
*result = opline->result;
if (type==ZEND_REQUIRE) {
opline->result.u.EA.type |= EXT_TYPE_UNUSED;
}
}
zend_do_extended_fcall_end(TSRMLS_C);
}
void zend_do_indirect_references(znode *result, znode *num_references, znode *variable TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
int i;
zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC);
for (i=1; i<num_references->u.constant.value.lval; i++) {
fetch_simple_variable_ex(result, variable, 0, ZEND_FETCH_R TSRMLS_CC);
1999-04-08 02:10:10 +08:00
*variable = *result;
}
zend_do_begin_variable_parse(TSRMLS_C);
fetch_simple_variable(result, variable, 1 TSRMLS_CC);
1999-04-08 02:10:10 +08:00
}
void zend_do_unset(znode *variable, int type TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *last_op;
last_op = &CG(active_op_array)->opcodes[get_next_op_number(CG(active_op_array))-1];
switch (last_op->opcode) {
case ZEND_FETCH_UNSET:
1999-04-24 08:12:55 +08:00
last_op->opcode = ZEND_UNSET_VAR;
1999-04-08 02:10:10 +08:00
break;
case ZEND_FETCH_DIM_UNSET:
case ZEND_FETCH_OBJ_UNSET:
1999-04-24 08:12:55 +08:00
last_op->opcode = ZEND_UNSET_DIM_OBJ;
1999-04-08 02:10:10 +08:00
break;
}
last_op->extended_value = type;
1999-04-08 02:10:10 +08:00
}
void zend_do_isset_or_isempty(int type, znode *result, znode *variable TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline;
zend_do_end_variable_parse(BP_VAR_IS, 0 TSRMLS_CC);
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_ISSET_ISEMPTY;
opline->result.op_type = IS_TMP_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *variable;
opline->op2.u.constant.value.lval = type;
SET_UNUSED(opline->op2);
*result = opline->result;
}
void zend_do_foreach_begin(znode *foreach_token, znode *array, znode *open_brackets_token, znode *as_token, int variable TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline;
zend_bool is_variable;
if (variable) {
if (zend_variable_buffer_empty(TSRMLS_C)) {
is_variable = 0;
} else {
is_variable = 1;
}
zend_do_end_variable_parse(BP_VAR_W, 0 TSRMLS_CC);
} else {
is_variable = 0;
}
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
/* Preform array reset */
opline->opcode = ZEND_FE_RESET;
opline->result.op_type = IS_VAR;
1999-04-08 02:10:10 +08:00
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *array;
SET_UNUSED(opline->op2);
opline->extended_value = is_variable;
1999-04-08 02:10:10 +08:00
*open_brackets_token = opline->result;
zend_stack_push(&CG(foreach_copy_stack), (void *) &opline->result, sizeof(znode));
1999-04-08 02:10:10 +08:00
/* save the location of the beginning of the loop (array fetching) */
foreach_token->u.opline_num = get_next_op_number(CG(active_op_array));
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_FE_FETCH;
opline->result.op_type = IS_TMP_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *open_brackets_token;
SET_UNUSED(opline->op2);
*as_token = opline->result;
}
void zend_do_foreach_cont(znode *value, znode *key, znode *as_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
znode result_value, result_key, dummy;
if (key->op_type != IS_UNUSED) {
znode *tmp;
/* switch between the key and value... */
tmp = key;
key = value;
value = tmp;
}
opline->opcode = ZEND_FETCH_DIM_TMP_VAR;
opline->result.op_type = IS_VAR;
opline->result.u.EA.type = 0;
opline->result.u.opline_num = get_temporary_variable(CG(active_op_array));
opline->op1 = *as_token;
opline->op2.op_type = IS_CONST;
opline->op2.u.constant.type = IS_LONG;
opline->op2.u.constant.value.lval = 0;
opline->extended_value = ZEND_FETCH_STANDARD; /* ignored in fetch_dim_tmp_var, but what the hell. */
1999-04-08 02:10:10 +08:00
result_value = opline->result;
if (key->op_type != IS_UNUSED) {
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_FETCH_DIM_TMP_VAR;
opline->result.op_type = IS_VAR;
opline->result.u.EA.type = 0;
opline->result.u.opline_num = get_temporary_variable(CG(active_op_array));
opline->op1 = *as_token;
opline->op2.op_type = IS_CONST;
opline->op2.u.constant.type = IS_LONG;
opline->op2.u.constant.value.lval = 1;
opline->extended_value = ZEND_FETCH_STANDARD; /* ignored in fetch_dim_tmp_var, but what the hell. */
1999-04-08 02:10:10 +08:00
result_key = opline->result;
}
zend_do_assign(&dummy, value, &result_value TSRMLS_CC);
1999-04-08 02:10:10 +08:00
CG(active_op_array)->opcodes[CG(active_op_array)->last-1].result.u.EA.type |= EXT_TYPE_UNUSED;
if (key->op_type != IS_UNUSED) {
zend_do_assign(&dummy, key, &result_key TSRMLS_CC);
1999-04-08 02:10:10 +08:00
CG(active_op_array)->opcodes[CG(active_op_array)->last-1].result.u.EA.type |= EXT_TYPE_UNUSED;
}
zend_do_free(as_token TSRMLS_CC);
1999-04-08 02:10:10 +08:00
do_begin_loop(TSRMLS_C);
1999-04-08 02:10:10 +08:00
INC_BPC(CG(active_op_array));
}
void zend_do_foreach_end(znode *foreach_token, znode *open_brackets_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMP;
opline->op1.u.opline_num = foreach_token->u.opline_num;
SET_UNUSED(opline->op1);
1999-04-08 02:10:10 +08:00
SET_UNUSED(opline->op2);
CG(active_op_array)->opcodes[foreach_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
do_end_loop(foreach_token->u.opline_num TSRMLS_CC);
1999-04-08 02:10:10 +08:00
generate_free_foreach_copy(open_brackets_token TSRMLS_CC);
1999-04-08 02:10:10 +08:00
zend_stack_del_top(&CG(foreach_copy_stack));
1999-04-08 02:10:10 +08:00
DEC_BPC(CG(active_op_array));
}
void zend_do_declare_begin(TSRMLS_D)
{
zend_stack_push(&CG(declare_stack), &CG(declarables), sizeof(zend_declarables));
}
void zend_do_declare_stmt(znode *var, znode *val TSRMLS_DC)
{
convert_to_string(&var->u.constant);
if (!zend_binary_strcasecmp(var->u.constant.value.str.val, var->u.constant.value.str.len, "ticks", sizeof("ticks")-1)) {
convert_to_long(&val->u.constant);
CG(declarables).ticks = val->u.constant;
}
zval_dtor(&var->u.constant);
}
void zend_do_declare_end(TSRMLS_D)
{
zend_declarables *declarables;
zend_stack_top(&CG(declare_stack), (void **) &declarables);
CG(declarables) = *declarables;
}
void zend_do_end_heredoc(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
int opline_num = get_next_op_number(CG(active_op_array))-1;
zend_op *opline = &CG(active_op_array)->opcodes[opline_num];
if (opline->opcode != ZEND_ADD_STRING) {
return;
}
opline->op2.u.constant.value.str.val[(opline->op2.u.constant.value.str.len--)-1] = 0;
if (opline->op2.u.constant.value.str.len>0) {
if (opline->op2.u.constant.value.str.val[opline->op2.u.constant.value.str.len-1]=='\r') {
opline->op2.u.constant.value.str.val[(opline->op2.u.constant.value.str.len--)-1] = 0;
}
}
}
void do_namespace(znode *namespace TSRMLS_DC)
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
opline->opcode = ZEND_NAMESPACE;
if (namespace) {
opline->op1 = *namespace;
} else {
SET_UNUSED(opline->op1);
}
SET_UNUSED(opline->op2);
}
void zend_do_exit(znode *result, znode *message TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_EXIT;
opline->op1 = *message;
SET_UNUSED(opline->op2);
result->op_type = IS_CONST;
result->u.constant.type = IS_BOOL;
result->u.constant.value.lval = 1;
}
void zend_do_begin_silence(znode *strudel_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_BEGIN_SILENCE;
opline->result.op_type = IS_TMP_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
*strudel_token = opline->result;
}
void zend_do_end_silence(znode *strudel_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_END_SILENCE;
opline->op1 = *strudel_token;
SET_UNUSED(opline->op2);
}
void zend_do_begin_qm_op(znode *cond, znode *qm_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
int jmpz_op_number = get_next_op_number(CG(active_op_array));
zend_op *opline;
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMPZ;
opline->op1 = *cond;
SET_UNUSED(opline->op2);
opline->op2.u.opline_num = jmpz_op_number;
*qm_token = opline->op2;
INC_BPC(CG(active_op_array));
}
void zend_do_qm_true(znode *true_value, znode *qm_token, znode *colon_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
CG(active_op_array)->opcodes[qm_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array))+1; /* jmp over the ZEND_JMP */
opline->opcode = ZEND_QM_ASSIGN;
opline->result.op_type = IS_TMP_VAR;
opline->result.u.var = get_temporary_variable(CG(active_op_array));
opline->op1 = *true_value;
SET_UNUSED(opline->op2);
*qm_token = opline->result;
colon_token->u.opline_num = get_next_op_number(CG(active_op_array));
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_JMP;
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
}
void zend_do_qm_false(znode *result, znode *false_value, znode *qm_token, znode *colon_token TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_QM_ASSIGN;
opline->result = *qm_token;
opline->op1 = *false_value;
SET_UNUSED(opline->op2);
CG(active_op_array)->opcodes[colon_token->u.opline_num].op1.u.opline_num = get_next_op_number(CG(active_op_array));
*result = opline->result;
DEC_BPC(CG(active_op_array));
}
void zend_do_extended_info(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
zend_op *opline;
if (!CG(extended_info)) {
return;
}
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_EXT_STMT;
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
}
void zend_do_extended_fcall_begin(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
zend_op *opline;
if (!CG(extended_info)) {
return;
}
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_EXT_FCALL_BEGIN;
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
}
void zend_do_extended_fcall_end(TSRMLS_D)
1999-04-08 02:10:10 +08:00
{
zend_op *opline;
if (!CG(extended_info)) {
return;
}
opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1999-04-08 02:10:10 +08:00
opline->opcode = ZEND_EXT_FCALL_END;
SET_UNUSED(opline->op1);
SET_UNUSED(opline->op2);
}
void zend_do_ticks(TSRMLS_D)
{
if (CG(declarables).ticks.value.lval) {
zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
opline->opcode = ZEND_TICKS;
opline->op1.u.constant = CG(declarables).ticks;
opline->op1.op_type = IS_CONST;
SET_UNUSED(opline->op2);
}
}
1999-04-08 02:10:10 +08:00
int zend_register_auto_global(char *name, uint name_len TSRMLS_DC)
{
return zend_hash_add_empty_element(CG(auto_globals), name, name_len+1);
}
int zendlex(znode *zendlval TSRMLS_DC)
1999-04-08 02:10:10 +08:00
{
int retval;
if (CG(increment_lineno)) {
CG(zend_lineno)++;
CG(increment_lineno) = 0;
}
1999-04-08 02:10:10 +08:00
zendlval->u.constant.type = IS_LONG;
retval = lex_scan(&zendlval->u.constant TSRMLS_CC);
1999-04-08 02:10:10 +08:00
switch(retval) {
case T_COMMENT:
case T_OPEN_TAG:
1999-04-08 02:10:10 +08:00
case T_WHITESPACE:
retval = zendlex(zendlval TSRMLS_CC);
1999-04-08 02:10:10 +08:00
break;
case T_CLOSE_TAG:
if (LANG_SCNG(yy_text)[LANG_SCNG(yy_leng)-1]=='\n'
|| (LANG_SCNG(yy_text)[LANG_SCNG(yy_leng)-2]=='\r' && LANG_SCNG(yy_text)[LANG_SCNG(yy_leng)-1])) {
CG(increment_lineno) = 1;
}
1999-04-08 02:10:10 +08:00
retval = ';'; /* implicit ; */
break;
case T_OPEN_TAG_WITH_ECHO:
retval = T_ECHO;
1999-04-08 02:10:10 +08:00
break;
case T_END_HEREDOC:
efree(zendlval->u.constant.value.str.val);
break;
1999-04-08 02:10:10 +08:00
}
INIT_PZVAL(&zendlval->u.constant);
1999-04-08 02:10:10 +08:00
zendlval->op_type = IS_CONST;
return retval;
}