Annotation of embedaddon/php/Zend/zend_compile.c, revision 1.1.1.5
1.1 misho 1: /*
2: +----------------------------------------------------------------------+
3: | Zend Engine |
4: +----------------------------------------------------------------------+
1.1.1.5 ! misho 5: | Copyright (c) 1998-2014 Zend Technologies Ltd. (http://www.zend.com) |
1.1 misho 6: +----------------------------------------------------------------------+
7: | This source file is subject to version 2.00 of the Zend license, |
8: | that is bundled with this package in the file LICENSE, and is |
9: | available through the world-wide-web at the following url: |
10: | http://www.zend.com/license/2_00.txt. |
11: | If you did not receive a copy of the Zend license and are unable to |
12: | obtain it through the world-wide-web, please send a note to |
13: | license@zend.com so we can mail you a copy immediately. |
14: +----------------------------------------------------------------------+
15: | Authors: Andi Gutmans <andi@zend.com> |
16: | Zeev Suraski <zeev@zend.com> |
17: +----------------------------------------------------------------------+
18: */
19:
1.1.1.2 misho 20: /* $Id$ */
1.1 misho 21:
22: #include <zend_language_parser.h>
23: #include "zend.h"
24: #include "zend_compile.h"
25: #include "zend_constants.h"
26: #include "zend_llist.h"
27: #include "zend_API.h"
28: #include "zend_exceptions.h"
29: #include "tsrm_virtual_cwd.h"
30: #include "zend_multibyte.h"
1.1.1.2 misho 31: #include "zend_language_scanner.h"
32:
33: #define CONSTANT_EX(op_array, op) \
34: (op_array)->literals[op].constant
35:
36: #define CONSTANT(op) \
37: CONSTANT_EX(CG(active_op_array), op)
38:
39: #define SET_NODE(target, src) do { \
40: target ## _type = (src)->op_type; \
41: if ((src)->op_type == IS_CONST) { \
42: target.constant = zend_add_literal(CG(active_op_array), &(src)->u.constant TSRMLS_CC); \
43: } else { \
44: target = (src)->u.op; \
45: } \
46: } while (0)
47:
48: #define GET_NODE(target, src) do { \
49: (target)->op_type = src ## _type; \
50: if ((target)->op_type == IS_CONST) { \
51: (target)->u.constant = CONSTANT(src.constant); \
52: } else { \
53: (target)->u.op = src; \
54: (target)->EA = 0; \
55: } \
56: } while (0)
57:
58: #define COPY_NODE(target, src) do { \
59: target ## _type = src ## _type; \
60: target = src; \
61: } while (0)
62:
63: #define CALCULATE_LITERAL_HASH(num) do { \
64: if (IS_INTERNED(Z_STRVAL(CONSTANT(num)))) { \
65: Z_HASH_P(&CONSTANT(num)) = INTERNED_HASH(Z_STRVAL(CONSTANT(num))); \
66: } else { \
67: Z_HASH_P(&CONSTANT(num)) = zend_hash_func(Z_STRVAL(CONSTANT(num)), Z_STRLEN(CONSTANT(num))+1); \
68: } \
69: } while (0)
70:
71: #define GET_CACHE_SLOT(literal) do { \
72: CG(active_op_array)->literals[literal].cache_slot = CG(active_op_array)->last_cache_slot++; \
73: if ((CG(active_op_array)->fn_flags & ZEND_ACC_INTERACTIVE) && CG(active_op_array)->run_time_cache) { \
74: CG(active_op_array)->run_time_cache = erealloc(CG(active_op_array)->run_time_cache, CG(active_op_array)->last_cache_slot * sizeof(void*)); \
75: CG(active_op_array)->run_time_cache[CG(active_op_array)->last_cache_slot - 1] = NULL; \
76: } \
77: } while (0)
78:
79: #define POLYMORPHIC_CACHE_SLOT_SIZE 2
80:
81: #define GET_POLYMORPHIC_CACHE_SLOT(literal) do { \
82: CG(active_op_array)->literals[literal].cache_slot = CG(active_op_array)->last_cache_slot; \
83: CG(active_op_array)->last_cache_slot += POLYMORPHIC_CACHE_SLOT_SIZE; \
84: if ((CG(active_op_array)->fn_flags & ZEND_ACC_INTERACTIVE) && CG(active_op_array)->run_time_cache) { \
85: CG(active_op_array)->run_time_cache = erealloc(CG(active_op_array)->run_time_cache, CG(active_op_array)->last_cache_slot * sizeof(void*)); \
86: CG(active_op_array)->run_time_cache[CG(active_op_array)->last_cache_slot - 1] = NULL; \
87: CG(active_op_array)->run_time_cache[CG(active_op_array)->last_cache_slot - 2] = NULL; \
88: } \
89: } while (0)
90:
91: #define FREE_POLYMORPHIC_CACHE_SLOT(literal) do { \
92: if (CG(active_op_array)->literals[literal].cache_slot != -1 && \
93: CG(active_op_array)->literals[literal].cache_slot == \
94: CG(active_op_array)->last_cache_slot - POLYMORPHIC_CACHE_SLOT_SIZE) { \
95: CG(active_op_array)->literals[literal].cache_slot = -1; \
96: CG(active_op_array)->last_cache_slot -= POLYMORPHIC_CACHE_SLOT_SIZE; \
97: } \
98: } while (0)
1.1 misho 99:
100: ZEND_API zend_op_array *(*zend_compile_file)(zend_file_handle *file_handle, int type TSRMLS_DC);
101: ZEND_API zend_op_array *(*zend_compile_string)(zval *source_string, char *filename TSRMLS_DC);
102:
103: #ifndef ZTS
104: ZEND_API zend_compiler_globals compiler_globals;
105: ZEND_API zend_executor_globals executor_globals;
106: #endif
107:
108: static void zend_duplicate_property_info(zend_property_info *property_info) /* {{{ */
109: {
1.1.1.2 misho 110: if (!IS_INTERNED(property_info->name)) {
111: property_info->name = estrndup(property_info->name, property_info->name_length);
112: }
1.1 misho 113: if (property_info->doc_comment) {
114: property_info->doc_comment = estrndup(property_info->doc_comment, property_info->doc_comment_len);
115: }
116: }
117: /* }}} */
118:
119: static void zend_duplicate_property_info_internal(zend_property_info *property_info) /* {{{ */
120: {
1.1.1.2 misho 121: if (!IS_INTERNED(property_info->name)) {
122: property_info->name = zend_strndup(property_info->name, property_info->name_length);
123: }
1.1 misho 124: }
125: /* }}} */
126:
127: static void zend_destroy_property_info(zend_property_info *property_info) /* {{{ */
128: {
1.1.1.2 misho 129: str_efree(property_info->name);
1.1 misho 130: if (property_info->doc_comment) {
1.1.1.2 misho 131: efree((char*)property_info->doc_comment);
1.1 misho 132: }
133: }
134: /* }}} */
135:
136: static void zend_destroy_property_info_internal(zend_property_info *property_info) /* {{{ */
137: {
1.1.1.2 misho 138: str_free((char*)property_info->name);
1.1 misho 139: }
140: /* }}} */
141:
142: static void build_runtime_defined_function_key(zval *result, const char *name, int name_length TSRMLS_DC) /* {{{ */
143: {
144: char char_pos_buf[32];
145: uint char_pos_len;
1.1.1.2 misho 146: const char *filename;
1.1 misho 147:
148: char_pos_len = zend_sprintf(char_pos_buf, "%p", LANG_SCNG(yy_text));
149: if (CG(active_op_array)->filename) {
150: filename = CG(active_op_array)->filename;
151: } else {
152: filename = "-";
153: }
154:
155: /* NULL, name length, filename length, last accepting char position length */
156: result->value.str.len = 1+name_length+strlen(filename)+char_pos_len;
1.1.1.2 misho 157:
1.1 misho 158: /* must be binary safe */
159: result->value.str.val = (char *) safe_emalloc(result->value.str.len, 1, 1);
160: result->value.str.val[0] = '\0';
161: sprintf(result->value.str.val+1, "%s%s%s", name, filename, char_pos_buf);
1.1.1.2 misho 162:
1.1 misho 163: result->type = IS_STRING;
164: Z_SET_REFCOUNT_P(result, 1);
165: }
166: /* }}} */
167:
168: static void init_compiler_declarables(TSRMLS_D) /* {{{ */
169: {
170: Z_TYPE(CG(declarables).ticks) = IS_LONG;
171: Z_LVAL(CG(declarables).ticks) = 0;
172: }
173: /* }}} */
174:
1.1.1.2 misho 175: void zend_init_compiler_context(TSRMLS_D) /* {{{ */
176: {
177: CG(context).opcodes_size = (CG(active_op_array)->fn_flags & ZEND_ACC_INTERACTIVE) ? INITIAL_INTERACTIVE_OP_ARRAY_SIZE : INITIAL_OP_ARRAY_SIZE;
178: CG(context).vars_size = 0;
179: CG(context).literals_size = 0;
180: CG(context).current_brk_cont = -1;
181: CG(context).backpatch_count = 0;
182: CG(context).labels = NULL;
183: }
184: /* }}} */
1.1 misho 185:
186: void zend_init_compiler_data_structures(TSRMLS_D) /* {{{ */
187: {
188: zend_stack_init(&CG(bp_stack));
189: zend_stack_init(&CG(function_call_stack));
190: zend_stack_init(&CG(switch_cond_stack));
191: zend_stack_init(&CG(foreach_copy_stack));
192: zend_stack_init(&CG(object_stack));
193: zend_stack_init(&CG(declare_stack));
194: CG(active_class_entry) = NULL;
195: zend_llist_init(&CG(list_llist), sizeof(list_llist_element), NULL, 0);
196: zend_llist_init(&CG(dimension_llist), sizeof(int), NULL, 0);
197: zend_stack_init(&CG(list_stack));
198: CG(in_compilation) = 0;
199: CG(start_lineno) = 0;
200: CG(current_namespace) = NULL;
201: CG(in_namespace) = 0;
202: CG(has_bracketed_namespaces) = 0;
203: CG(current_import) = NULL;
204: init_compiler_declarables(TSRMLS_C);
1.1.1.2 misho 205: zend_stack_init(&CG(context_stack));
206:
1.1 misho 207: CG(encoding_declared) = 0;
208: }
209: /* }}} */
210:
211: ZEND_API void file_handle_dtor(zend_file_handle *fh) /* {{{ */
212: {
213: TSRMLS_FETCH();
214:
215: zend_file_handle_dtor(fh TSRMLS_CC);
216: }
217: /* }}} */
218:
219: void init_compiler(TSRMLS_D) /* {{{ */
220: {
221: CG(active_op_array) = NULL;
1.1.1.3 misho 222: memset(&CG(context), 0, sizeof(CG(context)));
1.1 misho 223: zend_init_compiler_data_structures(TSRMLS_C);
224: zend_init_rsrc_list(TSRMLS_C);
225: zend_hash_init(&CG(filenames_table), 5, NULL, (dtor_func_t) free_estring, 0);
226: zend_llist_init(&CG(open_files), sizeof(zend_file_handle), (void (*)(void *)) file_handle_dtor, 0);
227: CG(unclean_shutdown) = 0;
228: }
229: /* }}} */
230:
231: void shutdown_compiler(TSRMLS_D) /* {{{ */
232: {
233: zend_stack_destroy(&CG(bp_stack));
234: zend_stack_destroy(&CG(function_call_stack));
235: zend_stack_destroy(&CG(switch_cond_stack));
236: zend_stack_destroy(&CG(foreach_copy_stack));
237: zend_stack_destroy(&CG(object_stack));
238: zend_stack_destroy(&CG(declare_stack));
239: zend_stack_destroy(&CG(list_stack));
240: zend_hash_destroy(&CG(filenames_table));
241: zend_llist_destroy(&CG(open_files));
1.1.1.2 misho 242: zend_stack_destroy(&CG(context_stack));
1.1 misho 243: }
244: /* }}} */
245:
246: ZEND_API char *zend_set_compiled_filename(const char *new_compiled_filename TSRMLS_DC) /* {{{ */
247: {
248: char **pp, *p;
249: int length = strlen(new_compiled_filename);
250:
251: if (zend_hash_find(&CG(filenames_table), new_compiled_filename, length+1, (void **) &pp) == SUCCESS) {
252: CG(compiled_filename) = *pp;
253: return *pp;
254: }
255: p = estrndup(new_compiled_filename, length);
256: zend_hash_update(&CG(filenames_table), new_compiled_filename, length+1, &p, sizeof(char *), (void **) &pp);
257: CG(compiled_filename) = p;
258: return p;
259: }
260: /* }}} */
261:
262: ZEND_API void zend_restore_compiled_filename(char *original_compiled_filename TSRMLS_DC) /* {{{ */
263: {
264: CG(compiled_filename) = original_compiled_filename;
265: }
266: /* }}} */
267:
268: ZEND_API char *zend_get_compiled_filename(TSRMLS_D) /* {{{ */
269: {
270: return CG(compiled_filename);
271: }
272: /* }}} */
273:
274: ZEND_API int zend_get_compiled_lineno(TSRMLS_D) /* {{{ */
275: {
276: return CG(zend_lineno);
277: }
278: /* }}} */
279:
280: ZEND_API zend_bool zend_is_compiling(TSRMLS_D) /* {{{ */
281: {
282: return CG(in_compilation);
283: }
284: /* }}} */
285:
286: static zend_uint get_temporary_variable(zend_op_array *op_array) /* {{{ */
287: {
288: return (op_array->T)++ * ZEND_MM_ALIGNED_SIZE(sizeof(temp_variable));
289: }
290: /* }}} */
291:
1.1.1.2 misho 292: static int lookup_cv(zend_op_array *op_array, char* name, int name_len, ulong hash TSRMLS_DC) /* {{{ */
1.1 misho 293: {
294: int i = 0;
1.1.1.2 misho 295: ulong hash_value = hash ? hash : zend_inline_hash_func(name, name_len+1);
1.1 misho 296:
297: while (i < op_array->last_var) {
1.1.1.2 misho 298: if (op_array->vars[i].name == name ||
299: (op_array->vars[i].hash_value == hash_value &&
300: op_array->vars[i].name_len == name_len &&
301: memcmp(op_array->vars[i].name, name, name_len) == 0)) {
302: str_efree(name);
303: return i;
1.1 misho 304: }
305: i++;
306: }
307: i = op_array->last_var;
308: op_array->last_var++;
1.1.1.2 misho 309: if (op_array->last_var > CG(context).vars_size) {
310: CG(context).vars_size += 16; /* FIXME */
311: op_array->vars = erealloc(op_array->vars, CG(context).vars_size * sizeof(zend_compiled_variable));
1.1 misho 312: }
1.1.1.2 misho 313: op_array->vars[i].name = zend_new_interned_string(name, name_len + 1, 1 TSRMLS_CC);
1.1 misho 314: op_array->vars[i].name_len = name_len;
315: op_array->vars[i].hash_value = hash_value;
316: return i;
317: }
318: /* }}} */
319:
1.1.1.2 misho 320: void zend_del_literal(zend_op_array *op_array, int n) /* {{{ */
321: {
322: zval_dtor(&CONSTANT_EX(op_array, n));
323: if (n + 1 == op_array->last_literal) {
324: op_array->last_literal--;
325: } else {
326: Z_TYPE(CONSTANT_EX(op_array, n)) = IS_NULL;
327: }
328: }
329: /* }}} */
330:
331: /* Common part of zend_add_literal and zend_append_individual_literal */
332: static inline void zend_insert_literal(zend_op_array *op_array, const zval *zv, int literal_position TSRMLS_DC) /* {{{ */
333: {
334: if (Z_TYPE_P(zv) == IS_STRING || Z_TYPE_P(zv) == IS_CONSTANT) {
335: zval *z = (zval*)zv;
336: Z_STRVAL_P(z) = (char*)zend_new_interned_string(Z_STRVAL_P(zv), Z_STRLEN_P(zv) + 1, 1 TSRMLS_CC);
337: }
338: CONSTANT_EX(op_array, literal_position) = *zv;
339: Z_SET_REFCOUNT(CONSTANT_EX(op_array, literal_position), 2);
340: Z_SET_ISREF(CONSTANT_EX(op_array, literal_position));
341: op_array->literals[literal_position].hash_value = 0;
342: op_array->literals[literal_position].cache_slot = -1;
343: }
344: /* }}} */
345:
346: /* Is used while compiling a function, using the context to keep track
347: of an approximate size to avoid to relocate to often.
348: Literals are truncated to actual size in the second compiler pass (pass_two()). */
349: int zend_add_literal(zend_op_array *op_array, const zval *zv TSRMLS_DC) /* {{{ */
350: {
351: int i = op_array->last_literal;
352: op_array->last_literal++;
353: if (i >= CG(context).literals_size) {
354: while (i >= CG(context).literals_size) {
355: CG(context).literals_size += 16; /* FIXME */
356: }
357: op_array->literals = (zend_literal*)erealloc(op_array->literals, CG(context).literals_size * sizeof(zend_literal));
358: }
359: zend_insert_literal(op_array, zv, i TSRMLS_CC);
360: return i;
361: }
362: /* }}} */
363:
364: /* Is used after normal compilation to append an additional literal.
365: Allocation is done precisely here. */
366: int zend_append_individual_literal(zend_op_array *op_array, const zval *zv TSRMLS_DC) /* {{{ */
367: {
368: int i = op_array->last_literal;
369: op_array->last_literal++;
370: op_array->literals = (zend_literal*)erealloc(op_array->literals, (i + 1) * sizeof(zend_literal));
371: zend_insert_literal(op_array, zv, i TSRMLS_CC);
372: return i;
373: }
374: /* }}} */
375:
376: int zend_add_func_name_literal(zend_op_array *op_array, const zval *zv TSRMLS_DC) /* {{{ */
377: {
378: int ret;
379: char *lc_name;
380: zval c;
381: int lc_literal;
382:
383: if (op_array->last_literal > 0 &&
384: &op_array->literals[op_array->last_literal - 1].constant == zv &&
385: op_array->literals[op_array->last_literal - 1].cache_slot == -1) {
386: /* we already have function name as last literal (do nothing) */
387: ret = op_array->last_literal - 1;
388: } else {
389: ret = zend_add_literal(op_array, zv TSRMLS_CC);
390: }
391:
392: lc_name = zend_str_tolower_dup(Z_STRVAL_P(zv), Z_STRLEN_P(zv));
393: ZVAL_STRINGL(&c, lc_name, Z_STRLEN_P(zv), 0);
394: lc_literal = zend_add_literal(CG(active_op_array), &c TSRMLS_CC);
395: CALCULATE_LITERAL_HASH(lc_literal);
396:
397: return ret;
398: }
399: /* }}} */
400:
401: int zend_add_ns_func_name_literal(zend_op_array *op_array, const zval *zv TSRMLS_DC) /* {{{ */
402: {
403: int ret;
404: char *lc_name;
405: const char *ns_separator;
406: int lc_len;
407: zval c;
408: int lc_literal;
409:
410: if (op_array->last_literal > 0 &&
411: &op_array->literals[op_array->last_literal - 1].constant == zv &&
412: op_array->literals[op_array->last_literal - 1].cache_slot == -1) {
413: /* we already have function name as last literal (do nothing) */
414: ret = op_array->last_literal - 1;
415: } else {
416: ret = zend_add_literal(op_array, zv TSRMLS_CC);
417: }
418:
419: lc_name = zend_str_tolower_dup(Z_STRVAL_P(zv), Z_STRLEN_P(zv));
420: ZVAL_STRINGL(&c, lc_name, Z_STRLEN_P(zv), 0);
421: lc_literal = zend_add_literal(CG(active_op_array), &c TSRMLS_CC);
422: CALCULATE_LITERAL_HASH(lc_literal);
423:
424: ns_separator = (const char*)zend_memrchr(Z_STRVAL_P(zv), '\\', Z_STRLEN_P(zv)) + 1;
425: lc_len = Z_STRLEN_P(zv) - (ns_separator - Z_STRVAL_P(zv));
426: lc_name = zend_str_tolower_dup(ns_separator, lc_len);
427: ZVAL_STRINGL(&c, lc_name, lc_len, 0);
428: lc_literal = zend_add_literal(CG(active_op_array), &c TSRMLS_CC);
429: CALCULATE_LITERAL_HASH(lc_literal);
430:
431: return ret;
432: }
433: /* }}} */
434:
435: int zend_add_class_name_literal(zend_op_array *op_array, const zval *zv TSRMLS_DC) /* {{{ */
436: {
437: int ret;
438: char *lc_name;
439: int lc_len;
440: zval c;
441: int lc_literal;
442:
443: if (op_array->last_literal > 0 &&
444: &op_array->literals[op_array->last_literal - 1].constant == zv &&
445: op_array->literals[op_array->last_literal - 1].cache_slot == -1) {
446: /* we already have function name as last literal (do nothing) */
447: ret = op_array->last_literal - 1;
448: } else {
449: ret = zend_add_literal(op_array, zv TSRMLS_CC);
450: }
451:
452: if (Z_STRVAL_P(zv)[0] == '\\') {
453: lc_len = Z_STRLEN_P(zv) - 1;
454: lc_name = zend_str_tolower_dup(Z_STRVAL_P(zv) + 1, lc_len);
455: } else {
456: lc_len = Z_STRLEN_P(zv);
457: lc_name = zend_str_tolower_dup(Z_STRVAL_P(zv), lc_len);
458: }
459: ZVAL_STRINGL(&c, lc_name, lc_len, 0);
460: lc_literal = zend_add_literal(CG(active_op_array), &c TSRMLS_CC);
461: CALCULATE_LITERAL_HASH(lc_literal);
462:
463: GET_CACHE_SLOT(ret);
464:
465: return ret;
466: }
467: /* }}} */
468:
469: int zend_add_const_name_literal(zend_op_array *op_array, const zval *zv, int unqualified TSRMLS_DC) /* {{{ */
470: {
471: int ret, tmp_literal;
472: char *name, *tmp_name;
473: const char *ns_separator;
474: int name_len, ns_len;
475: zval c;
476:
477: if (op_array->last_literal > 0 &&
478: &op_array->literals[op_array->last_literal - 1].constant == zv &&
479: op_array->literals[op_array->last_literal - 1].cache_slot == -1) {
480: /* we already have function name as last literal (do nothing) */
481: ret = op_array->last_literal - 1;
482: } else {
483: ret = zend_add_literal(op_array, zv TSRMLS_CC);
484: }
485:
486: /* skip leading '\\' */
487: if (Z_STRVAL_P(zv)[0] == '\\') {
488: name_len = Z_STRLEN_P(zv) - 1;
489: name = Z_STRVAL_P(zv) + 1;
490: } else {
491: name_len = Z_STRLEN_P(zv);
492: name = Z_STRVAL_P(zv);
493: }
494: ns_separator = zend_memrchr(name, '\\', name_len);
495: if (ns_separator) {
496: ns_len = ns_separator - name;
497: } else {
498: ns_len = 0;
499: }
500:
501: if (ns_len) {
502: /* lowercased namespace name & original constant name */
503: tmp_name = estrndup(name, name_len);
504: zend_str_tolower(tmp_name, ns_len);
505: ZVAL_STRINGL(&c, tmp_name, name_len, 0);
506: tmp_literal = zend_add_literal(CG(active_op_array), &c TSRMLS_CC);
507: CALCULATE_LITERAL_HASH(tmp_literal);
508:
509: /* lowercased namespace name & lowercased constant name */
510: tmp_name = zend_str_tolower_dup(name, name_len);
511: ZVAL_STRINGL(&c, tmp_name, name_len, 0);
512: tmp_literal = zend_add_literal(CG(active_op_array), &c TSRMLS_CC);
513: CALCULATE_LITERAL_HASH(tmp_literal);
514: }
515:
516: if (ns_len) {
517: if (!unqualified) {
518: return ret;
519: }
520: ns_len++;
521: name += ns_len;
522: name_len -= ns_len;
523: }
524:
525: /* original constant name */
526: tmp_name = estrndup(name, name_len);
527: ZVAL_STRINGL(&c, tmp_name, name_len, 0);
528: tmp_literal = zend_add_literal(CG(active_op_array), &c TSRMLS_CC);
529: CALCULATE_LITERAL_HASH(tmp_literal);
530:
531: /* lowercased constant name */
532: tmp_name = zend_str_tolower_dup(name, name_len);
533: ZVAL_STRINGL(&c, tmp_name, name_len, 0);
534: tmp_literal = zend_add_literal(CG(active_op_array), &c TSRMLS_CC);
535: CALCULATE_LITERAL_HASH(tmp_literal);
536:
537: return ret;
538: }
539: /* }}} */
540:
541: #define LITERAL_STRINGL(op, str, len, copy) do { \
542: zval _c; \
543: ZVAL_STRINGL(&_c, str, len, copy); \
544: op.constant = zend_add_literal(CG(active_op_array), &_c TSRMLS_CC); \
545: } while (0)
546:
547: #define LITERAL_LONG(op, val) do { \
548: zval _c; \
549: ZVAL_LONG(&_c, val); \
550: op.constant = zend_add_literal(CG(active_op_array), &_c TSRMLS_CC); \
551: } while (0)
552:
553: #define LITERAL_LONG_EX(op_array, op, val) do { \
554: zval _c; \
555: ZVAL_LONG(&_c, val); \
556: op.constant = zend_add_literal(op_array, &_c TSRMLS_CC); \
557: } while (0)
558:
559: #define LITERAL_NULL(op) do { \
560: zval _c; \
561: INIT_ZVAL( _c); \
562: op.constant = zend_add_literal(CG(active_op_array), &_c TSRMLS_CC); \
563: } while (0)
564:
565: static inline zend_bool zend_is_function_or_method_call(const znode *variable) /* {{{ */
566: {
567: zend_uint type = variable->EA;
568:
569: return ((type & ZEND_PARSED_METHOD_CALL) || (type == ZEND_PARSED_FUNCTION_CALL));
570: }
571: /* }}} */
1.1 misho 572:
573: void zend_do_binary_op(zend_uchar op, znode *result, const znode *op1, const znode *op2 TSRMLS_DC) /* {{{ */
574: {
575: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
576:
577: opline->opcode = op;
1.1.1.2 misho 578: opline->result_type = IS_TMP_VAR;
579: opline->result.var = get_temporary_variable(CG(active_op_array));
580: SET_NODE(opline->op1, op1);
581: SET_NODE(opline->op2, op2);
582: GET_NODE(result, opline->result);
1.1 misho 583: }
584: /* }}} */
585:
586: void zend_do_unary_op(zend_uchar op, znode *result, const znode *op1 TSRMLS_DC) /* {{{ */
587: {
588: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
589:
590: opline->opcode = op;
1.1.1.2 misho 591: opline->result_type = IS_TMP_VAR;
592: opline->result.var = get_temporary_variable(CG(active_op_array));
593: SET_NODE(opline->op1, op1);
594: GET_NODE(result, opline->result);
1.1 misho 595: SET_UNUSED(opline->op2);
596: }
597: /* }}} */
598:
1.1.1.2 misho 599: #define MAKE_NOP(opline) { opline->opcode = ZEND_NOP; memset(&opline->result,0,sizeof(opline->result)); memset(&opline->op1,0,sizeof(opline->op1)); memset(&opline->op2,0,sizeof(opline->op2)); opline->result_type=opline->op1_type=opline->op2_type=IS_UNUSED; }
1.1 misho 600:
601: static void zend_do_op_data(zend_op *data_op, const znode *value TSRMLS_DC) /* {{{ */
602: {
603: data_op->opcode = ZEND_OP_DATA;
1.1.1.2 misho 604: SET_NODE(data_op->op1, value);
1.1 misho 605: SET_UNUSED(data_op->op2);
606: }
607: /* }}} */
608:
609: void zend_do_binary_assign_op(zend_uchar op, znode *result, const znode *op1, const znode *op2 TSRMLS_DC) /* {{{ */
610: {
611: int last_op_number = get_next_op_number(CG(active_op_array));
612: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
613:
614: if (last_op_number > 0) {
615: zend_op *last_op = &CG(active_op_array)->opcodes[last_op_number-1];
616:
617: switch (last_op->opcode) {
618: case ZEND_FETCH_OBJ_RW:
619: last_op->opcode = op;
620: last_op->extended_value = ZEND_ASSIGN_OBJ;
621:
622: zend_do_op_data(opline, op2 TSRMLS_CC);
623: SET_UNUSED(opline->result);
1.1.1.2 misho 624: GET_NODE(result, last_op->result);
1.1 misho 625: return;
626: case ZEND_FETCH_DIM_RW:
627: last_op->opcode = op;
628: last_op->extended_value = ZEND_ASSIGN_DIM;
629:
630: zend_do_op_data(opline, op2 TSRMLS_CC);
1.1.1.2 misho 631: opline->op2.var = get_temporary_variable(CG(active_op_array));
632: opline->op2_type = IS_VAR;
1.1 misho 633: SET_UNUSED(opline->result);
1.1.1.2 misho 634: GET_NODE(result,last_op->result);
1.1 misho 635: return;
636: default:
637: break;
638: }
639: }
640:
641: opline->opcode = op;
1.1.1.2 misho 642: SET_NODE(opline->op1, op1);
643: SET_NODE(opline->op2, op2);
644: opline->result_type = IS_VAR;
645: opline->result.var = get_temporary_variable(CG(active_op_array));
646: GET_NODE(result, opline->result);
1.1 misho 647: }
648: /* }}} */
649:
650: void fetch_simple_variable_ex(znode *result, znode *varname, int bp, zend_uchar op TSRMLS_DC) /* {{{ */
651: {
652: zend_op opline;
653: zend_op *opline_ptr;
654: zend_llist *fetch_list_ptr;
655:
656: if (varname->op_type == IS_CONST) {
1.1.1.2 misho 657: ulong hash = 0;
658:
1.1 misho 659: if (Z_TYPE(varname->u.constant) != IS_STRING) {
660: convert_to_string(&varname->u.constant);
1.1.1.2 misho 661: } else if (IS_INTERNED(Z_STRVAL(varname->u.constant))) {
662: hash = INTERNED_HASH(Z_STRVAL(varname->u.constant));
1.1 misho 663: }
1.1.1.2 misho 664: if (!zend_is_auto_global_quick(varname->u.constant.value.str.val, varname->u.constant.value.str.len, hash TSRMLS_CC) &&
1.1 misho 665: !(varname->u.constant.value.str.len == (sizeof("this")-1) &&
666: !memcmp(varname->u.constant.value.str.val, "this", sizeof("this"))) &&
667: (CG(active_op_array)->last == 0 ||
668: CG(active_op_array)->opcodes[CG(active_op_array)->last-1].opcode != ZEND_BEGIN_SILENCE)) {
669: result->op_type = IS_CV;
1.1.1.2 misho 670: result->u.op.var = lookup_cv(CG(active_op_array), varname->u.constant.value.str.val, varname->u.constant.value.str.len, hash TSRMLS_CC);
671: varname->u.constant.value.str.val = (char*)CG(active_op_array)->vars[result->u.op.var].name;
672: result->EA = 0;
1.1 misho 673: return;
674: }
675: }
676:
677: if (bp) {
678: opline_ptr = &opline;
679: init_op(opline_ptr TSRMLS_CC);
680: } else {
681: opline_ptr = get_next_op(CG(active_op_array) TSRMLS_CC);
682: }
683:
684: opline_ptr->opcode = op;
1.1.1.2 misho 685: opline_ptr->result_type = IS_VAR;
686: opline_ptr->result.var = get_temporary_variable(CG(active_op_array));
687: SET_NODE(opline_ptr->op1, varname);
688: GET_NODE(result, opline_ptr->result);
1.1 misho 689: SET_UNUSED(opline_ptr->op2);
1.1.1.2 misho 690: opline_ptr->extended_value = ZEND_FETCH_LOCAL;
1.1 misho 691:
1.1.1.2 misho 692: if (varname->op_type == IS_CONST) {
693: CALCULATE_LITERAL_HASH(opline_ptr->op1.constant);
694: if (zend_is_auto_global_quick(varname->u.constant.value.str.val, varname->u.constant.value.str.len, Z_HASH_P(&CONSTANT(opline_ptr->op1.constant)) TSRMLS_CC)) {
695: opline_ptr->extended_value = ZEND_FETCH_GLOBAL;
1.1 misho 696: }
697: }
698:
699: if (bp) {
700: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
701: zend_llist_add_element(fetch_list_ptr, opline_ptr);
702: }
703: }
704: /* }}} */
705:
706: void fetch_simple_variable(znode *result, znode *varname, int bp TSRMLS_DC) /* {{{ */
707: {
708: /* the default mode must be Write, since fetch_simple_variable() is used to define function arguments */
709: fetch_simple_variable_ex(result, varname, bp, ZEND_FETCH_W TSRMLS_CC);
710: }
711: /* }}} */
712:
713: void zend_do_fetch_static_member(znode *result, znode *class_name TSRMLS_DC) /* {{{ */
714: {
715: znode class_node;
716: zend_llist *fetch_list_ptr;
717: zend_llist_element *le;
718: zend_op *opline_ptr;
719: zend_op opline;
720:
1.1.1.2 misho 721: if (class_name->op_type == IS_CONST &&
722: ZEND_FETCH_CLASS_DEFAULT == zend_get_class_fetch_type(Z_STRVAL(class_name->u.constant), Z_STRLEN(class_name->u.constant))) {
723: zend_resolve_class_name(class_name, ZEND_FETCH_CLASS_GLOBAL, 1 TSRMLS_CC);
724: class_node = *class_name;
725: } else {
726: zend_do_fetch_class(&class_node, class_name TSRMLS_CC);
727: }
1.1 misho 728: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
729: if (result->op_type == IS_CV) {
730: init_op(&opline TSRMLS_CC);
731:
732: opline.opcode = ZEND_FETCH_W;
1.1.1.2 misho 733: opline.result_type = IS_VAR;
734: opline.result.var = get_temporary_variable(CG(active_op_array));
735: opline.op1_type = IS_CONST;
736: LITERAL_STRINGL(opline.op1, estrdup(CG(active_op_array)->vars[result->u.op.var].name), CG(active_op_array)->vars[result->u.op.var].name_len, 0);
737: CALCULATE_LITERAL_HASH(opline.op1.constant);
738: GET_POLYMORPHIC_CACHE_SLOT(opline.op1.constant);
739: if (class_node.op_type == IS_CONST) {
740: opline.op2_type = IS_CONST;
741: opline.op2.constant =
742: zend_add_class_name_literal(CG(active_op_array), &class_node.u.constant TSRMLS_CC);
743: } else {
744: SET_NODE(opline.op2, &class_node);
745: }
746: GET_NODE(result,opline.result);
747: opline.extended_value |= ZEND_FETCH_STATIC_MEMBER;
748: opline_ptr = &opline;
1.1 misho 749:
750: zend_llist_add_element(fetch_list_ptr, &opline);
751: } else {
752: le = fetch_list_ptr->head;
753:
754: opline_ptr = (zend_op *)le->data;
1.1.1.2 misho 755: if (opline_ptr->opcode != ZEND_FETCH_W && opline_ptr->op1_type == IS_CV) {
1.1 misho 756: init_op(&opline TSRMLS_CC);
757: opline.opcode = ZEND_FETCH_W;
1.1.1.2 misho 758: opline.result_type = IS_VAR;
759: opline.result.var = get_temporary_variable(CG(active_op_array));
760: opline.op1_type = IS_CONST;
761: LITERAL_STRINGL(opline.op1, estrdup(CG(active_op_array)->vars[opline_ptr->op1.var].name), CG(active_op_array)->vars[opline_ptr->op1.var].name_len, 0);
762: CALCULATE_LITERAL_HASH(opline.op1.constant);
763: GET_POLYMORPHIC_CACHE_SLOT(opline.op1.constant);
764: if (class_node.op_type == IS_CONST) {
765: opline.op2_type = IS_CONST;
766: opline.op2.constant =
767: zend_add_class_name_literal(CG(active_op_array), &class_node.u.constant TSRMLS_CC);
768: } else {
769: SET_NODE(opline.op2, &class_node);
770: }
771: opline.extended_value |= ZEND_FETCH_STATIC_MEMBER;
772: COPY_NODE(opline_ptr->op1, opline.result);
1.1 misho 773:
774: zend_llist_prepend_element(fetch_list_ptr, &opline);
775: } else {
1.1.1.2 misho 776: if (opline_ptr->op1_type == IS_CONST) {
777: GET_POLYMORPHIC_CACHE_SLOT(opline_ptr->op1.constant);
778: }
779: if (class_node.op_type == IS_CONST) {
780: opline_ptr->op2_type = IS_CONST;
781: opline_ptr->op2.constant =
782: zend_add_class_name_literal(CG(active_op_array), &class_node.u.constant TSRMLS_CC);
783: } else {
784: SET_NODE(opline_ptr->op2, &class_node);
785: }
786: opline_ptr->extended_value |= ZEND_FETCH_STATIC_MEMBER;
1.1 misho 787: }
788: }
789: }
790: /* }}} */
791:
792: void fetch_array_begin(znode *result, znode *varname, znode *first_dim TSRMLS_DC) /* {{{ */
793: {
794: fetch_simple_variable(result, varname, 1 TSRMLS_CC);
795:
796: fetch_array_dim(result, result, first_dim TSRMLS_CC);
797: }
798: /* }}} */
799:
800: void fetch_array_dim(znode *result, const znode *parent, const znode *dim TSRMLS_DC) /* {{{ */
801: {
802: zend_op opline;
803: zend_llist *fetch_list_ptr;
804:
1.1.1.2 misho 805: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
806:
807: if (zend_is_function_or_method_call(parent)) {
808: init_op(&opline TSRMLS_CC);
809: opline.opcode = ZEND_SEPARATE;
810: SET_NODE(opline.op1, parent);
811: SET_UNUSED(opline.op2);
812: opline.result_type = IS_VAR;
813: opline.result.var = opline.op1.var;
814: zend_llist_add_element(fetch_list_ptr, &opline);
815: }
816:
1.1 misho 817: init_op(&opline TSRMLS_CC);
818: opline.opcode = ZEND_FETCH_DIM_W; /* the backpatching routine assumes W */
1.1.1.2 misho 819: opline.result_type = IS_VAR;
820: opline.result.var = get_temporary_variable(CG(active_op_array));
821: SET_NODE(opline.op1, parent);
822: SET_NODE(opline.op2, dim);
823: if (opline.op2_type == IS_CONST && Z_TYPE(CONSTANT(opline.op2.constant)) == IS_STRING) {
824: ulong index;
825: int numeric = 0;
826:
827: ZEND_HANDLE_NUMERIC_EX(Z_STRVAL(CONSTANT(opline.op2.constant)), Z_STRLEN(CONSTANT(opline.op2.constant))+1, index, numeric = 1);
828: if (numeric) {
829: zval_dtor(&CONSTANT(opline.op2.constant));
830: ZVAL_LONG(&CONSTANT(opline.op2.constant), index);
831: } else {
832: CALCULATE_LITERAL_HASH(opline.op2.constant);
833: }
834: }
835:
836: GET_NODE(result, opline.result);
1.1 misho 837:
838: zend_llist_add_element(fetch_list_ptr, &opline);
839: }
840: /* }}} */
841:
842: void fetch_string_offset(znode *result, const znode *parent, const znode *offset TSRMLS_DC) /* {{{ */
843: {
844: fetch_array_dim(result, parent, offset TSRMLS_CC);
845: }
846: /* }}} */
847:
848: void zend_do_print(znode *result, const znode *arg TSRMLS_DC) /* {{{ */
849: {
850: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
851:
1.1.1.2 misho 852: opline->result_type = IS_TMP_VAR;
853: opline->result.var = get_temporary_variable(CG(active_op_array));
1.1 misho 854: opline->opcode = ZEND_PRINT;
1.1.1.2 misho 855: SET_NODE(opline->op1, arg);
1.1 misho 856: SET_UNUSED(opline->op2);
1.1.1.2 misho 857: GET_NODE(result, opline->result);
1.1 misho 858: }
859: /* }}} */
860:
861: void zend_do_echo(const znode *arg TSRMLS_DC) /* {{{ */
862: {
863: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
864:
865: opline->opcode = ZEND_ECHO;
1.1.1.2 misho 866: SET_NODE(opline->op1, arg);
1.1 misho 867: SET_UNUSED(opline->op2);
868: }
869: /* }}} */
870:
871: void zend_do_abstract_method(const znode *function_name, znode *modifiers, const znode *body TSRMLS_DC) /* {{{ */
872: {
873: char *method_type;
874:
875: if (CG(active_class_entry)->ce_flags & ZEND_ACC_INTERFACE) {
876: Z_LVAL(modifiers->u.constant) |= ZEND_ACC_ABSTRACT;
877: method_type = "Interface";
878: } else {
879: method_type = "Abstract";
880: }
881:
882: if (modifiers->u.constant.value.lval & ZEND_ACC_ABSTRACT) {
883: if(modifiers->u.constant.value.lval & ZEND_ACC_PRIVATE) {
884: zend_error(E_COMPILE_ERROR, "%s function %s::%s() cannot be declared private", method_type, CG(active_class_entry)->name, function_name->u.constant.value.str.val);
885: }
886: if (Z_LVAL(body->u.constant) == ZEND_ACC_ABSTRACT) {
887: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
888:
889: opline->opcode = ZEND_RAISE_ABSTRACT_ERROR;
890: SET_UNUSED(opline->op1);
891: SET_UNUSED(opline->op2);
892: } else {
893: /* we had code in the function body */
894: zend_error(E_COMPILE_ERROR, "%s function %s::%s() cannot contain body", method_type, CG(active_class_entry)->name, function_name->u.constant.value.str.val);
895: }
896: } else {
897: if (body->u.constant.value.lval == ZEND_ACC_ABSTRACT) {
898: zend_error(E_COMPILE_ERROR, "Non-abstract method %s::%s() must contain body", CG(active_class_entry)->name, function_name->u.constant.value.str.val);
899: }
900: }
901: }
902: /* }}} */
903:
904: static zend_bool opline_is_fetch_this(const zend_op *opline TSRMLS_DC) /* {{{ */
905: {
1.1.1.2 misho 906: if ((opline->opcode == ZEND_FETCH_W) && (opline->op1_type == IS_CONST)
907: && (Z_TYPE(CONSTANT(opline->op1.constant)) == IS_STRING)
1.1.1.5 ! misho 908: && ((opline->extended_value & ZEND_FETCH_STATIC_MEMBER) != ZEND_FETCH_STATIC_MEMBER)
1.1.1.2 misho 909: && (Z_HASH_P(&CONSTANT(opline->op1.constant)) == THIS_HASHVAL)
910: && (Z_STRLEN(CONSTANT(opline->op1.constant)) == (sizeof("this")-1))
911: && !memcmp(Z_STRVAL(CONSTANT(opline->op1.constant)), "this", sizeof("this"))) {
1.1 misho 912: return 1;
913: } else {
914: return 0;
915: }
916: }
917: /* }}} */
918:
1.1.1.2 misho 919: void zend_do_assign(znode *result, znode *variable, znode *value TSRMLS_DC) /* {{{ */
1.1 misho 920: {
921: int last_op_number;
922: zend_op *opline;
923:
924: if (value->op_type == IS_CV) {
925: zend_llist *fetch_list_ptr;
926:
927: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
928: if (fetch_list_ptr && fetch_list_ptr->head) {
929: opline = (zend_op *)fetch_list_ptr->head->data;
930:
931: if (opline->opcode == ZEND_FETCH_DIM_W &&
1.1.1.2 misho 932: opline->op1_type == IS_CV &&
933: opline->op1.var == value->u.op.var) {
1.1 misho 934:
935: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
936: opline->opcode = ZEND_FETCH_R;
1.1.1.2 misho 937: opline->result_type = IS_VAR;
938: opline->result.var = get_temporary_variable(CG(active_op_array));
939: opline->op1_type = IS_CONST;
940: LITERAL_STRINGL(opline->op1,
941: CG(active_op_array)->vars[value->u.op.var].name,
942: CG(active_op_array)->vars[value->u.op.var].name_len, 1);
943: CALCULATE_LITERAL_HASH(opline->op1.constant);
1.1 misho 944: SET_UNUSED(opline->op2);
1.1.1.2 misho 945: opline->extended_value = ZEND_FETCH_LOCAL;
946: GET_NODE(value, opline->result);
1.1 misho 947: }
948: }
949: }
950:
951: zend_do_end_variable_parse(variable, BP_VAR_W, 0 TSRMLS_CC);
952:
953: last_op_number = get_next_op_number(CG(active_op_array));
954: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
955:
956: if (variable->op_type == IS_CV) {
1.1.1.2 misho 957: if (variable->u.op.var == CG(active_op_array)->this_var) {
1.1 misho 958: zend_error(E_COMPILE_ERROR, "Cannot re-assign $this");
959: }
960: } else if (variable->op_type == IS_VAR) {
961: int n = 0;
962:
963: while (last_op_number - n > 0) {
964: zend_op *last_op;
965:
966: last_op = &CG(active_op_array)->opcodes[last_op_number-n-1];
967:
1.1.1.2 misho 968: if (last_op->result_type == IS_VAR &&
969: last_op->result.var == variable->u.op.var) {
1.1 misho 970: if (last_op->opcode == ZEND_FETCH_OBJ_W) {
971: if (n > 0) {
972: int opline_no = (opline-CG(active_op_array)->opcodes)/sizeof(*opline);
973: *opline = *last_op;
974: MAKE_NOP(last_op);
975: /* last_op = opline; */
976: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
977: /* get_next_op can realloc, we need to move last_op */
978: last_op = &CG(active_op_array)->opcodes[opline_no];
979: }
980: last_op->opcode = ZEND_ASSIGN_OBJ;
981: zend_do_op_data(opline, value TSRMLS_CC);
982: SET_UNUSED(opline->result);
1.1.1.2 misho 983: GET_NODE(result, last_op->result);
1.1 misho 984: return;
985: } else if (last_op->opcode == ZEND_FETCH_DIM_W) {
986: if (n > 0) {
987: int opline_no = (opline-CG(active_op_array)->opcodes)/sizeof(*opline);
988: *opline = *last_op;
989: MAKE_NOP(last_op);
990: /* last_op = opline; */
991: /* TBFixed: this can realloc opcodes, leaving last_op pointing wrong */
992: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
993: /* get_next_op can realloc, we need to move last_op */
994: last_op = &CG(active_op_array)->opcodes[opline_no];
995: }
996: last_op->opcode = ZEND_ASSIGN_DIM;
997: zend_do_op_data(opline, value TSRMLS_CC);
1.1.1.2 misho 998: opline->op2.var = get_temporary_variable(CG(active_op_array));
999: opline->op2_type = IS_VAR;
1.1 misho 1000: SET_UNUSED(opline->result);
1.1.1.2 misho 1001: GET_NODE(result, last_op->result);
1.1 misho 1002: return;
1003: } else if (opline_is_fetch_this(last_op TSRMLS_CC)) {
1004: zend_error(E_COMPILE_ERROR, "Cannot re-assign $this");
1005: } else {
1006: break;
1007: }
1008: }
1009: n++;
1010: }
1011: }
1012:
1013: opline->opcode = ZEND_ASSIGN;
1.1.1.2 misho 1014: SET_NODE(opline->op1, variable);
1015: SET_NODE(opline->op2, value);
1016: opline->result_type = IS_VAR;
1017: opline->result.var = get_temporary_variable(CG(active_op_array));
1018: GET_NODE(result, opline->result);
1.1 misho 1019: }
1020: /* }}} */
1021:
1022: void zend_do_assign_ref(znode *result, const znode *lvar, const znode *rvar TSRMLS_DC) /* {{{ */
1023: {
1024: zend_op *opline;
1025:
1026: if (lvar->op_type == IS_CV) {
1.1.1.2 misho 1027: if (lvar->u.op.var == CG(active_op_array)->this_var) {
1.1 misho 1028: zend_error(E_COMPILE_ERROR, "Cannot re-assign $this");
1029: }
1030: } else if (lvar->op_type == IS_VAR) {
1031: int last_op_number = get_next_op_number(CG(active_op_array));
1032:
1033: if (last_op_number > 0) {
1034: opline = &CG(active_op_array)->opcodes[last_op_number-1];
1035: if (opline_is_fetch_this(opline TSRMLS_CC)) {
1036: zend_error(E_COMPILE_ERROR, "Cannot re-assign $this");
1037: }
1038: }
1039: }
1040:
1041: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1042: opline->opcode = ZEND_ASSIGN_REF;
1043: if (zend_is_function_or_method_call(rvar)) {
1044: opline->extended_value = ZEND_RETURNS_FUNCTION;
1.1.1.2 misho 1045: } else if (rvar->EA & ZEND_PARSED_NEW) {
1.1 misho 1046: opline->extended_value = ZEND_RETURNS_NEW;
1047: } else {
1048: opline->extended_value = 0;
1049: }
1050: if (result) {
1.1.1.2 misho 1051: opline->result_type = IS_VAR;
1052: opline->result.var = get_temporary_variable(CG(active_op_array));
1053: GET_NODE(result, opline->result);
1.1 misho 1054: } else {
1.1.1.2 misho 1055: opline->result_type = IS_UNUSED | EXT_TYPE_UNUSED;
1.1 misho 1056: }
1.1.1.2 misho 1057: SET_NODE(opline->op1, lvar);
1058: SET_NODE(opline->op2, rvar);
1.1 misho 1059: }
1060: /* }}} */
1061:
1062: static inline void do_begin_loop(TSRMLS_D) /* {{{ */
1063: {
1064: zend_brk_cont_element *brk_cont_element;
1065: int parent;
1066:
1.1.1.2 misho 1067: parent = CG(context).current_brk_cont;
1068: CG(context).current_brk_cont = CG(active_op_array)->last_brk_cont;
1.1 misho 1069: brk_cont_element = get_next_brk_cont_element(CG(active_op_array));
1070: brk_cont_element->start = get_next_op_number(CG(active_op_array));
1071: brk_cont_element->parent = parent;
1072: }
1073: /* }}} */
1074:
1075: static inline void do_end_loop(int cont_addr, int has_loop_var TSRMLS_DC) /* {{{ */
1076: {
1077: if (!has_loop_var) {
1078: /* The start fileld is used to free temporary variables in case of exceptions.
1079: * We won't try to free something of we don't have loop variable.
1080: */
1.1.1.2 misho 1081: CG(active_op_array)->brk_cont_array[CG(context).current_brk_cont].start = -1;
1.1 misho 1082: }
1.1.1.2 misho 1083: CG(active_op_array)->brk_cont_array[CG(context).current_brk_cont].cont = cont_addr;
1084: CG(active_op_array)->brk_cont_array[CG(context).current_brk_cont].brk = get_next_op_number(CG(active_op_array));
1085: CG(context).current_brk_cont = CG(active_op_array)->brk_cont_array[CG(context).current_brk_cont].parent;
1.1 misho 1086: }
1087: /* }}} */
1088:
1089: void zend_do_while_cond(const znode *expr, znode *close_bracket_token TSRMLS_DC) /* {{{ */
1090: {
1091: int while_cond_op_number = get_next_op_number(CG(active_op_array));
1092: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1093:
1094: opline->opcode = ZEND_JMPZ;
1.1.1.2 misho 1095: SET_NODE(opline->op1, expr);
1096: close_bracket_token->u.op.opline_num = while_cond_op_number;
1.1 misho 1097: SET_UNUSED(opline->op2);
1098:
1099: do_begin_loop(TSRMLS_C);
1100: INC_BPC(CG(active_op_array));
1101: }
1102: /* }}} */
1103:
1104: void zend_do_while_end(const znode *while_token, const znode *close_bracket_token TSRMLS_DC) /* {{{ */
1105: {
1106: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1107:
1108: /* add unconditional jump */
1109: opline->opcode = ZEND_JMP;
1.1.1.2 misho 1110: opline->op1.opline_num = while_token->u.op.opline_num;
1.1 misho 1111: SET_UNUSED(opline->op1);
1112: SET_UNUSED(opline->op2);
1113:
1114: /* update while's conditional jmp */
1.1.1.2 misho 1115: CG(active_op_array)->opcodes[close_bracket_token->u.op.opline_num].op2.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 1116:
1.1.1.2 misho 1117: do_end_loop(while_token->u.op.opline_num, 0 TSRMLS_CC);
1.1 misho 1118:
1119: DEC_BPC(CG(active_op_array));
1120: }
1121: /* }}} */
1122:
1123: void zend_do_for_cond(const znode *expr, znode *second_semicolon_token TSRMLS_DC) /* {{{ */
1124: {
1125: int for_cond_op_number = get_next_op_number(CG(active_op_array));
1126: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1127:
1128: opline->opcode = ZEND_JMPZNZ;
1.1.1.2 misho 1129: SET_NODE(opline->op1, expr); /* the conditional expression */
1130: second_semicolon_token->u.op.opline_num = for_cond_op_number;
1.1 misho 1131: SET_UNUSED(opline->op2);
1132: }
1133: /* }}} */
1134:
1135: void zend_do_for_before_statement(const znode *cond_start, const znode *second_semicolon_token TSRMLS_DC) /* {{{ */
1136: {
1137: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1138:
1139: opline->opcode = ZEND_JMP;
1.1.1.2 misho 1140: opline->op1.opline_num = cond_start->u.op.opline_num;
1141: CG(active_op_array)->opcodes[second_semicolon_token->u.op.opline_num].extended_value = get_next_op_number(CG(active_op_array));
1.1 misho 1142: SET_UNUSED(opline->op1);
1143: SET_UNUSED(opline->op2);
1144:
1145: do_begin_loop(TSRMLS_C);
1146:
1147: INC_BPC(CG(active_op_array));
1148: }
1149: /* }}} */
1150:
1151: void zend_do_for_end(const znode *second_semicolon_token TSRMLS_DC) /* {{{ */
1152: {
1153: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1154:
1155: opline->opcode = ZEND_JMP;
1.1.1.2 misho 1156: opline->op1.opline_num = second_semicolon_token->u.op.opline_num+1;
1157: CG(active_op_array)->opcodes[second_semicolon_token->u.op.opline_num].op2.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 1158: SET_UNUSED(opline->op1);
1159: SET_UNUSED(opline->op2);
1160:
1.1.1.2 misho 1161: do_end_loop(second_semicolon_token->u.op.opline_num+1, 0 TSRMLS_CC);
1.1 misho 1162:
1163: DEC_BPC(CG(active_op_array));
1164: }
1165: /* }}} */
1166:
1167: void zend_do_pre_incdec(znode *result, const znode *op1, zend_uchar op TSRMLS_DC) /* {{{ */
1168: {
1169: int last_op_number = get_next_op_number(CG(active_op_array));
1170: zend_op *opline;
1171:
1172: if (last_op_number > 0) {
1173: zend_op *last_op = &CG(active_op_array)->opcodes[last_op_number-1];
1174:
1175: if (last_op->opcode == ZEND_FETCH_OBJ_RW) {
1176: last_op->opcode = (op==ZEND_PRE_INC)?ZEND_PRE_INC_OBJ:ZEND_PRE_DEC_OBJ;
1.1.1.2 misho 1177: last_op->result_type = IS_VAR;
1178: last_op->result.var = get_temporary_variable(CG(active_op_array));
1179: GET_NODE(result, last_op->result);
1.1 misho 1180: return;
1181: }
1182: }
1183:
1184: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1185: opline->opcode = op;
1.1.1.2 misho 1186: SET_NODE(opline->op1, op1);
1.1 misho 1187: SET_UNUSED(opline->op2);
1.1.1.2 misho 1188: opline->result_type = IS_VAR;
1189: opline->result.var = get_temporary_variable(CG(active_op_array));
1190: GET_NODE(result, opline->result);
1.1 misho 1191: }
1192: /* }}} */
1193:
1194: void zend_do_post_incdec(znode *result, const znode *op1, zend_uchar op TSRMLS_DC) /* {{{ */
1195: {
1196: int last_op_number = get_next_op_number(CG(active_op_array));
1197: zend_op *opline;
1198:
1199: if (last_op_number > 0) {
1200: zend_op *last_op = &CG(active_op_array)->opcodes[last_op_number-1];
1201:
1202: if (last_op->opcode == ZEND_FETCH_OBJ_RW) {
1203: last_op->opcode = (op==ZEND_POST_INC)?ZEND_POST_INC_OBJ:ZEND_POST_DEC_OBJ;
1.1.1.2 misho 1204: last_op->result_type = IS_TMP_VAR;
1205: last_op->result.var = get_temporary_variable(CG(active_op_array));
1206: GET_NODE(result, last_op->result);
1.1 misho 1207: return;
1208: }
1209: }
1210:
1211: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1212: opline->opcode = op;
1.1.1.2 misho 1213: SET_NODE(opline->op1, op1);
1.1 misho 1214: SET_UNUSED(opline->op2);
1.1.1.2 misho 1215: opline->result_type = IS_TMP_VAR;
1216: opline->result.var = get_temporary_variable(CG(active_op_array));
1217: GET_NODE(result, opline->result);
1.1 misho 1218: }
1219: /* }}} */
1220:
1221: void zend_do_if_cond(const znode *cond, znode *closing_bracket_token TSRMLS_DC) /* {{{ */
1222: {
1223: int if_cond_op_number = get_next_op_number(CG(active_op_array));
1224: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1225:
1226: opline->opcode = ZEND_JMPZ;
1.1.1.2 misho 1227: SET_NODE(opline->op1, cond);
1228: closing_bracket_token->u.op.opline_num = if_cond_op_number;
1.1 misho 1229: SET_UNUSED(opline->op2);
1230: INC_BPC(CG(active_op_array));
1231: }
1232: /* }}} */
1233:
1234: void zend_do_if_after_statement(const znode *closing_bracket_token, unsigned char initialize TSRMLS_DC) /* {{{ */
1235: {
1236: int if_end_op_number = get_next_op_number(CG(active_op_array));
1237: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1238: zend_llist *jmp_list_ptr;
1239:
1240: opline->opcode = ZEND_JMP;
1241: /* save for backpatching */
1242: if (initialize) {
1243: zend_llist jmp_list;
1244:
1245: zend_llist_init(&jmp_list, sizeof(int), NULL, 0);
1246: zend_stack_push(&CG(bp_stack), (void *) &jmp_list, sizeof(zend_llist));
1247: }
1248: zend_stack_top(&CG(bp_stack), (void **) &jmp_list_ptr);
1249: zend_llist_add_element(jmp_list_ptr, &if_end_op_number);
1250:
1.1.1.2 misho 1251: CG(active_op_array)->opcodes[closing_bracket_token->u.op.opline_num].op2.opline_num = if_end_op_number+1;
1.1 misho 1252: SET_UNUSED(opline->op1);
1253: SET_UNUSED(opline->op2);
1254: }
1255: /* }}} */
1256:
1257: void zend_do_if_end(TSRMLS_D) /* {{{ */
1258: {
1259: int next_op_number = get_next_op_number(CG(active_op_array));
1260: zend_llist *jmp_list_ptr;
1261: zend_llist_element *le;
1262:
1263: zend_stack_top(&CG(bp_stack), (void **) &jmp_list_ptr);
1264: for (le=jmp_list_ptr->head; le; le = le->next) {
1.1.1.2 misho 1265: CG(active_op_array)->opcodes[*((int *) le->data)].op1.opline_num = next_op_number;
1.1 misho 1266: }
1267: zend_llist_destroy(jmp_list_ptr);
1268: zend_stack_del_top(&CG(bp_stack));
1269: DEC_BPC(CG(active_op_array));
1270: }
1271: /* }}} */
1272:
1273: void zend_check_writable_variable(const znode *variable) /* {{{ */
1274: {
1.1.1.2 misho 1275: zend_uint type = variable->EA;
1.1 misho 1276:
1277: if (type & ZEND_PARSED_METHOD_CALL) {
1278: zend_error(E_COMPILE_ERROR, "Can't use method return value in write context");
1279: }
1280: if (type == ZEND_PARSED_FUNCTION_CALL) {
1281: zend_error(E_COMPILE_ERROR, "Can't use function return value in write context");
1282: }
1283: }
1284: /* }}} */
1285:
1286: void zend_do_begin_variable_parse(TSRMLS_D) /* {{{ */
1287: {
1288: zend_llist fetch_list;
1289:
1290: zend_llist_init(&fetch_list, sizeof(zend_op), NULL, 0);
1291: zend_stack_push(&CG(bp_stack), (void *) &fetch_list, sizeof(zend_llist));
1292: }
1293: /* }}} */
1294:
1295: void zend_do_end_variable_parse(znode *variable, int type, int arg_offset TSRMLS_DC) /* {{{ */
1296: {
1297: zend_llist *fetch_list_ptr;
1298: zend_llist_element *le;
1299: zend_op *opline = NULL;
1300: zend_op *opline_ptr;
1301: zend_uint this_var = -1;
1302:
1303: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
1304:
1305: le = fetch_list_ptr->head;
1306:
1307: /* TODO: $foo->x->y->z = 1 should fetch "x" and "y" for R or RW, not just W */
1308:
1309: if (le) {
1310: opline_ptr = (zend_op *)le->data;
1311: if (opline_is_fetch_this(opline_ptr TSRMLS_CC)) {
1312: /* convert to FETCH_?(this) into IS_CV */
1313: if (CG(active_op_array)->last == 0 ||
1314: CG(active_op_array)->opcodes[CG(active_op_array)->last-1].opcode != ZEND_BEGIN_SILENCE) {
1315:
1.1.1.2 misho 1316: this_var = opline_ptr->result.var;
1.1 misho 1317: if (CG(active_op_array)->this_var == -1) {
1.1.1.2 misho 1318: CG(active_op_array)->this_var = lookup_cv(CG(active_op_array), Z_STRVAL(CONSTANT(opline_ptr->op1.constant)), Z_STRLEN(CONSTANT(opline_ptr->op1.constant)), Z_HASH_P(&CONSTANT(opline_ptr->op1.constant)) TSRMLS_CC);
1319: Z_TYPE(CONSTANT(opline_ptr->op1.constant)) = IS_NULL;
1.1 misho 1320: } else {
1.1.1.2 misho 1321: zend_del_literal(CG(active_op_array), opline_ptr->op1.constant);
1.1 misho 1322: }
1323: le = le->next;
1324: if (variable->op_type == IS_VAR &&
1.1.1.2 misho 1325: variable->u.op.var == this_var) {
1.1 misho 1326: variable->op_type = IS_CV;
1.1.1.2 misho 1327: variable->u.op.var = CG(active_op_array)->this_var;
1.1 misho 1328: }
1329: } else if (CG(active_op_array)->this_var == -1) {
1.1.1.2 misho 1330: CG(active_op_array)->this_var = lookup_cv(CG(active_op_array), estrndup("this", sizeof("this")-1), sizeof("this")-1, THIS_HASHVAL TSRMLS_CC);
1.1 misho 1331: }
1332: }
1333:
1334: while (le) {
1335: opline_ptr = (zend_op *)le->data;
1.1.1.2 misho 1336: if (opline_ptr->opcode == ZEND_SEPARATE) {
1337: if (type != BP_VAR_R && type != BP_VAR_IS) {
1338: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1339: memcpy(opline, opline_ptr, sizeof(zend_op));
1340: }
1341: le = le->next;
1342: continue;
1343: }
1.1 misho 1344: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1345: memcpy(opline, opline_ptr, sizeof(zend_op));
1.1.1.2 misho 1346: if (opline->op1_type == IS_VAR &&
1347: opline->op1.var == this_var) {
1348: opline->op1_type = IS_CV;
1349: opline->op1.var = CG(active_op_array)->this_var;
1.1 misho 1350: }
1351: switch (type) {
1352: case BP_VAR_R:
1.1.1.2 misho 1353: if (opline->opcode == ZEND_FETCH_DIM_W && opline->op2_type == IS_UNUSED) {
1.1 misho 1354: zend_error(E_COMPILE_ERROR, "Cannot use [] for reading");
1355: }
1356: opline->opcode -= 3;
1357: break;
1358: case BP_VAR_W:
1359: break;
1360: case BP_VAR_RW:
1361: opline->opcode += 3;
1362: break;
1363: case BP_VAR_IS:
1.1.1.2 misho 1364: if (opline->opcode == ZEND_FETCH_DIM_W && opline->op2_type == IS_UNUSED) {
1.1 misho 1365: zend_error(E_COMPILE_ERROR, "Cannot use [] for reading");
1366: }
1367: opline->opcode += 6; /* 3+3 */
1368: break;
1369: case BP_VAR_FUNC_ARG:
1370: opline->opcode += 9; /* 3+3+3 */
1.1.1.2 misho 1371: opline->extended_value |= arg_offset;
1.1 misho 1372: break;
1373: case BP_VAR_UNSET:
1.1.1.2 misho 1374: if (opline->opcode == ZEND_FETCH_DIM_W && opline->op2_type == IS_UNUSED) {
1.1 misho 1375: zend_error(E_COMPILE_ERROR, "Cannot use [] for unsetting");
1376: }
1377: opline->opcode += 12; /* 3+3+3+3 */
1378: break;
1379: }
1380: le = le->next;
1381: }
1382: if (opline && type == BP_VAR_W && arg_offset) {
1.1.1.2 misho 1383: opline->extended_value |= ZEND_FETCH_MAKE_REF;
1.1 misho 1384: }
1385: }
1386: zend_llist_destroy(fetch_list_ptr);
1387: zend_stack_del_top(&CG(bp_stack));
1388: }
1389: /* }}} */
1390:
1391: void zend_do_add_string(znode *result, const znode *op1, znode *op2 TSRMLS_DC) /* {{{ */
1392: {
1393: zend_op *opline;
1394:
1395: if (Z_STRLEN(op2->u.constant) > 1) {
1396: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1397: opline->opcode = ZEND_ADD_STRING;
1398: } else if (Z_STRLEN(op2->u.constant) == 1) {
1399: int ch = *Z_STRVAL(op2->u.constant);
1400:
1401: /* Free memory and use ZEND_ADD_CHAR in case of 1 character strings */
1402: efree(Z_STRVAL(op2->u.constant));
1403: ZVAL_LONG(&op2->u.constant, ch);
1404: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1405: opline->opcode = ZEND_ADD_CHAR;
1406: } else { /* String can be empty after a variable at the end of a heredoc */
1407: efree(Z_STRVAL(op2->u.constant));
1408: return;
1409: }
1410:
1411: if (op1) {
1.1.1.2 misho 1412: SET_NODE(opline->op1, op1);
1413: SET_NODE(opline->result, op1);
1.1 misho 1414: } else {
1415: SET_UNUSED(opline->op1);
1.1.1.2 misho 1416: opline->result_type = IS_TMP_VAR;
1417: opline->result.var = get_temporary_variable(CG(active_op_array));
1.1 misho 1418: }
1.1.1.2 misho 1419: SET_NODE(opline->op2, op2);
1420: GET_NODE(result, opline->result);
1.1 misho 1421: }
1422: /* }}} */
1423:
1424: void zend_do_add_variable(znode *result, const znode *op1, const znode *op2 TSRMLS_DC) /* {{{ */
1425: {
1426: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1427:
1428: opline->opcode = ZEND_ADD_VAR;
1429:
1430: if (op1) {
1.1.1.2 misho 1431: SET_NODE(opline->op1, op1);
1432: SET_NODE(opline->result, op1);
1.1 misho 1433: } else {
1434: SET_UNUSED(opline->op1);
1.1.1.2 misho 1435: opline->result_type = IS_TMP_VAR;
1436: opline->result.var = get_temporary_variable(CG(active_op_array));
1.1 misho 1437: }
1.1.1.2 misho 1438: SET_NODE(opline->op2, op2);
1439: GET_NODE(result, opline->result);
1.1 misho 1440: }
1441: /* }}} */
1442:
1443: void zend_do_free(znode *op1 TSRMLS_DC) /* {{{ */
1444: {
1445: if (op1->op_type==IS_TMP_VAR) {
1446: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1447:
1448: opline->opcode = ZEND_FREE;
1.1.1.2 misho 1449: SET_NODE(opline->op1, op1);
1.1 misho 1450: SET_UNUSED(opline->op2);
1451: } else if (op1->op_type==IS_VAR) {
1452: zend_op *opline = &CG(active_op_array)->opcodes[CG(active_op_array)->last-1];
1453:
1454: while (opline->opcode == ZEND_END_SILENCE || opline->opcode == ZEND_EXT_FCALL_END || opline->opcode == ZEND_OP_DATA) {
1455: opline--;
1456: }
1.1.1.2 misho 1457: if (opline->result_type == IS_VAR
1458: && opline->result.var == op1->u.op.var) {
1459: if (opline->opcode == ZEND_FETCH_R ||
1460: opline->opcode == ZEND_FETCH_DIM_R ||
1461: opline->opcode == ZEND_FETCH_OBJ_R ||
1462: opline->opcode == ZEND_QM_ASSIGN_VAR) {
1463: /* It's very rare and useless case. It's better to use
1464: additional FREE opcode and simplify the FETCH handlers
1465: their selves */
1466: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1467: opline->opcode = ZEND_FREE;
1468: SET_NODE(opline->op1, op1);
1469: SET_UNUSED(opline->op2);
1470: } else {
1471: opline->result_type |= EXT_TYPE_UNUSED;
1472: }
1.1 misho 1473: } else {
1474: while (opline>CG(active_op_array)->opcodes) {
1475: if (opline->opcode == ZEND_FETCH_DIM_R
1.1.1.2 misho 1476: && opline->op1_type == IS_VAR
1477: && opline->op1.var == op1->u.op.var) {
1.1 misho 1478: /* This should the end of a list() construct
1479: * Mark its result as unused
1480: */
1481: opline->extended_value = ZEND_FETCH_STANDARD;
1482: break;
1.1.1.2 misho 1483: } else if (opline->result_type==IS_VAR
1484: && opline->result.var == op1->u.op.var) {
1.1 misho 1485: if (opline->opcode == ZEND_NEW) {
1.1.1.2 misho 1486: opline->result_type |= EXT_TYPE_UNUSED;
1.1 misho 1487: }
1488: break;
1489: }
1490: opline--;
1491: }
1492: }
1493: } else if (op1->op_type == IS_CONST) {
1494: zval_dtor(&op1->u.constant);
1495: }
1496: }
1497: /* }}} */
1498:
1499: int zend_do_verify_access_types(const znode *current_access_type, const znode *new_modifier) /* {{{ */
1500: {
1501: if ((Z_LVAL(current_access_type->u.constant) & ZEND_ACC_PPP_MASK)
1502: && (Z_LVAL(new_modifier->u.constant) & ZEND_ACC_PPP_MASK)) {
1503: zend_error(E_COMPILE_ERROR, "Multiple access type modifiers are not allowed");
1504: }
1505: if ((Z_LVAL(current_access_type->u.constant) & ZEND_ACC_ABSTRACT)
1506: && (Z_LVAL(new_modifier->u.constant) & ZEND_ACC_ABSTRACT)) {
1507: zend_error(E_COMPILE_ERROR, "Multiple abstract modifiers are not allowed");
1508: }
1509: if ((Z_LVAL(current_access_type->u.constant) & ZEND_ACC_STATIC)
1510: && (Z_LVAL(new_modifier->u.constant) & ZEND_ACC_STATIC)) {
1511: zend_error(E_COMPILE_ERROR, "Multiple static modifiers are not allowed");
1512: }
1513: if ((Z_LVAL(current_access_type->u.constant) & ZEND_ACC_FINAL)
1514: && (Z_LVAL(new_modifier->u.constant) & ZEND_ACC_FINAL)) {
1515: zend_error(E_COMPILE_ERROR, "Multiple final modifiers are not allowed");
1516: }
1517: if (((Z_LVAL(current_access_type->u.constant) | Z_LVAL(new_modifier->u.constant)) & (ZEND_ACC_ABSTRACT | ZEND_ACC_FINAL)) == (ZEND_ACC_ABSTRACT | ZEND_ACC_FINAL)) {
1518: zend_error(E_COMPILE_ERROR, "Cannot use the final modifier on an abstract class member");
1519: }
1520: return (Z_LVAL(current_access_type->u.constant) | Z_LVAL(new_modifier->u.constant));
1521: }
1522: /* }}} */
1523:
1524: void zend_do_begin_function_declaration(znode *function_token, znode *function_name, int is_method, int return_reference, znode *fn_flags_znode TSRMLS_DC) /* {{{ */
1525: {
1526: zend_op_array op_array;
1527: char *name = function_name->u.constant.value.str.val;
1528: int name_len = function_name->u.constant.value.str.len;
1.1.1.2 misho 1529: int function_begin_line = function_token->u.op.opline_num;
1.1 misho 1530: zend_uint fn_flags;
1.1.1.2 misho 1531: const char *lcname;
1.1 misho 1532: zend_bool orig_interactive;
1533: ALLOCA_FLAG(use_heap)
1534:
1535: if (is_method) {
1536: if (CG(active_class_entry)->ce_flags & ZEND_ACC_INTERFACE) {
1537: if ((Z_LVAL(fn_flags_znode->u.constant) & ~(ZEND_ACC_STATIC|ZEND_ACC_PUBLIC))) {
1538: zend_error(E_COMPILE_ERROR, "Access type for interface method %s::%s() must be omitted", CG(active_class_entry)->name, function_name->u.constant.value.str.val);
1539: }
1540: Z_LVAL(fn_flags_znode->u.constant) |= ZEND_ACC_ABSTRACT; /* propagates to the rest of the parser */
1541: }
1542: fn_flags = Z_LVAL(fn_flags_znode->u.constant); /* must be done *after* the above check */
1543: } else {
1544: fn_flags = 0;
1545: }
1546: if ((fn_flags & ZEND_ACC_STATIC) && (fn_flags & ZEND_ACC_ABSTRACT) && !(CG(active_class_entry)->ce_flags & ZEND_ACC_INTERFACE)) {
1547: zend_error(E_STRICT, "Static function %s%s%s() should not be abstract", is_method ? CG(active_class_entry)->name : "", is_method ? "::" : "", Z_STRVAL(function_name->u.constant));
1548: }
1549:
1550: function_token->u.op_array = CG(active_op_array);
1551:
1552: orig_interactive = CG(interactive);
1553: CG(interactive) = 0;
1554: init_op_array(&op_array, ZEND_USER_FUNCTION, INITIAL_OP_ARRAY_SIZE TSRMLS_CC);
1555: CG(interactive) = orig_interactive;
1556:
1557: op_array.function_name = name;
1.1.1.2 misho 1558: if (return_reference) {
1559: op_array.fn_flags |= ZEND_ACC_RETURN_REFERENCE;
1560: }
1.1 misho 1561: op_array.fn_flags |= fn_flags;
1562:
1563: op_array.scope = is_method?CG(active_class_entry):NULL;
1564: op_array.prototype = NULL;
1565:
1566: op_array.line_start = zend_get_compiled_lineno(TSRMLS_C);
1567:
1568: if (is_method) {
1.1.1.2 misho 1569: int result;
1570:
1571: lcname = zend_new_interned_string(zend_str_tolower_dup(name, name_len), name_len + 1, 1 TSRMLS_CC);
1572:
1573: if (IS_INTERNED(lcname)) {
1574: result = zend_hash_quick_add(&CG(active_class_entry)->function_table, lcname, name_len+1, INTERNED_HASH(lcname), &op_array, sizeof(zend_op_array), (void **) &CG(active_op_array));
1575: } else {
1576: result = zend_hash_add(&CG(active_class_entry)->function_table, lcname, name_len+1, &op_array, sizeof(zend_op_array), (void **) &CG(active_op_array));
1577: }
1578: if (result == FAILURE) {
1.1 misho 1579: zend_error(E_COMPILE_ERROR, "Cannot redeclare %s::%s()", CG(active_class_entry)->name, name);
1580: }
1581:
1.1.1.2 misho 1582: zend_stack_push(&CG(context_stack), (void *) &CG(context), sizeof(CG(context)));
1583: zend_init_compiler_context(TSRMLS_C);
1584:
1.1 misho 1585: if (fn_flags & ZEND_ACC_ABSTRACT) {
1586: CG(active_class_entry)->ce_flags |= ZEND_ACC_IMPLICIT_ABSTRACT_CLASS;
1587: }
1588:
1589: if (!(fn_flags & ZEND_ACC_PPP_MASK)) {
1590: fn_flags |= ZEND_ACC_PUBLIC;
1591: }
1592:
1593: if (CG(active_class_entry)->ce_flags & ZEND_ACC_INTERFACE) {
1594: if ((name_len == sizeof(ZEND_CALL_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_CALL_FUNC_NAME, sizeof(ZEND_CALL_FUNC_NAME)-1))) {
1595: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1596: zend_error(E_WARNING, "The magic method __call() must have public visibility and cannot be static");
1597: }
1598: } else if ((name_len == sizeof(ZEND_CALLSTATIC_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_CALLSTATIC_FUNC_NAME, sizeof(ZEND_CALLSTATIC_FUNC_NAME)-1))) {
1599: if ((fn_flags & (ZEND_ACC_PPP_MASK ^ ZEND_ACC_PUBLIC)) || (fn_flags & ZEND_ACC_STATIC) == 0) {
1600: zend_error(E_WARNING, "The magic method __callStatic() must have public visibility and be static");
1601: }
1602: } else if ((name_len == sizeof(ZEND_GET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_GET_FUNC_NAME, sizeof(ZEND_GET_FUNC_NAME)-1))) {
1603: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1604: zend_error(E_WARNING, "The magic method __get() must have public visibility and cannot be static");
1605: }
1606: } else if ((name_len == sizeof(ZEND_SET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_SET_FUNC_NAME, sizeof(ZEND_SET_FUNC_NAME)-1))) {
1607: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1608: zend_error(E_WARNING, "The magic method __set() must have public visibility and cannot be static");
1609: }
1610: } else if ((name_len == sizeof(ZEND_UNSET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_UNSET_FUNC_NAME, sizeof(ZEND_UNSET_FUNC_NAME)-1))) {
1611: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1612: zend_error(E_WARNING, "The magic method __unset() must have public visibility and cannot be static");
1613: }
1614: } else if ((name_len == sizeof(ZEND_ISSET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_ISSET_FUNC_NAME, sizeof(ZEND_ISSET_FUNC_NAME)-1))) {
1615: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1616: zend_error(E_WARNING, "The magic method __isset() must have public visibility and cannot be static");
1617: }
1618: } else if ((name_len == sizeof(ZEND_TOSTRING_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_TOSTRING_FUNC_NAME, sizeof(ZEND_TOSTRING_FUNC_NAME)-1))) {
1619: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1620: zend_error(E_WARNING, "The magic method __toString() must have public visibility and cannot be static");
1621: }
1622: }
1623: } else {
1624: char *class_lcname;
1625:
1626: class_lcname = do_alloca(CG(active_class_entry)->name_length + 1, use_heap);
1627: zend_str_tolower_copy(class_lcname, CG(active_class_entry)->name, CG(active_class_entry)->name_length);
1628: /* Improve after RC: cache the lowercase class name */
1629:
1.1.1.2 misho 1630: if ((CG(active_class_entry)->name_length == name_len) && ((CG(active_class_entry)->ce_flags & ZEND_ACC_TRAIT) != ZEND_ACC_TRAIT) && (!memcmp(class_lcname, lcname, name_len))) {
1.1 misho 1631: if (!CG(active_class_entry)->constructor) {
1632: CG(active_class_entry)->constructor = (zend_function *) CG(active_op_array);
1633: }
1634: } else if ((name_len == sizeof(ZEND_CONSTRUCTOR_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_CONSTRUCTOR_FUNC_NAME, sizeof(ZEND_CONSTRUCTOR_FUNC_NAME)))) {
1635: if (CG(active_class_entry)->constructor) {
1636: zend_error(E_STRICT, "Redefining already defined constructor for class %s", CG(active_class_entry)->name);
1637: }
1638: CG(active_class_entry)->constructor = (zend_function *) CG(active_op_array);
1639: } else if ((name_len == sizeof(ZEND_DESTRUCTOR_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_DESTRUCTOR_FUNC_NAME, sizeof(ZEND_DESTRUCTOR_FUNC_NAME)-1))) {
1640: CG(active_class_entry)->destructor = (zend_function *) CG(active_op_array);
1641: } else if ((name_len == sizeof(ZEND_CLONE_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_CLONE_FUNC_NAME, sizeof(ZEND_CLONE_FUNC_NAME)-1))) {
1642: CG(active_class_entry)->clone = (zend_function *) CG(active_op_array);
1643: } else if ((name_len == sizeof(ZEND_CALL_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_CALL_FUNC_NAME, sizeof(ZEND_CALL_FUNC_NAME)-1))) {
1644: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1645: zend_error(E_WARNING, "The magic method __call() must have public visibility and cannot be static");
1646: }
1647: CG(active_class_entry)->__call = (zend_function *) CG(active_op_array);
1648: } else if ((name_len == sizeof(ZEND_CALLSTATIC_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_CALLSTATIC_FUNC_NAME, sizeof(ZEND_CALLSTATIC_FUNC_NAME)-1))) {
1649: if ((fn_flags & (ZEND_ACC_PPP_MASK ^ ZEND_ACC_PUBLIC)) || (fn_flags & ZEND_ACC_STATIC) == 0) {
1650: zend_error(E_WARNING, "The magic method __callStatic() must have public visibility and be static");
1651: }
1652: CG(active_class_entry)->__callstatic = (zend_function *) CG(active_op_array);
1653: } else if ((name_len == sizeof(ZEND_GET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_GET_FUNC_NAME, sizeof(ZEND_GET_FUNC_NAME)-1))) {
1654: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1655: zend_error(E_WARNING, "The magic method __get() must have public visibility and cannot be static");
1656: }
1657: CG(active_class_entry)->__get = (zend_function *) CG(active_op_array);
1658: } else if ((name_len == sizeof(ZEND_SET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_SET_FUNC_NAME, sizeof(ZEND_SET_FUNC_NAME)-1))) {
1659: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1660: zend_error(E_WARNING, "The magic method __set() must have public visibility and cannot be static");
1661: }
1662: CG(active_class_entry)->__set = (zend_function *) CG(active_op_array);
1663: } else if ((name_len == sizeof(ZEND_UNSET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_UNSET_FUNC_NAME, sizeof(ZEND_UNSET_FUNC_NAME)-1))) {
1664: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1665: zend_error(E_WARNING, "The magic method __unset() must have public visibility and cannot be static");
1666: }
1667: CG(active_class_entry)->__unset = (zend_function *) CG(active_op_array);
1668: } else if ((name_len == sizeof(ZEND_ISSET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_ISSET_FUNC_NAME, sizeof(ZEND_ISSET_FUNC_NAME)-1))) {
1669: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1670: zend_error(E_WARNING, "The magic method __isset() must have public visibility and cannot be static");
1671: }
1672: CG(active_class_entry)->__isset = (zend_function *) CG(active_op_array);
1673: } else if ((name_len == sizeof(ZEND_TOSTRING_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_TOSTRING_FUNC_NAME, sizeof(ZEND_TOSTRING_FUNC_NAME)-1))) {
1674: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1675: zend_error(E_WARNING, "The magic method __toString() must have public visibility and cannot be static");
1676: }
1677: CG(active_class_entry)->__tostring = (zend_function *) CG(active_op_array);
1678: } else if (!(fn_flags & ZEND_ACC_STATIC)) {
1679: CG(active_op_array)->fn_flags |= ZEND_ACC_ALLOW_STATIC;
1680: }
1681: free_alloca(class_lcname, use_heap);
1682: }
1683:
1.1.1.2 misho 1684: str_efree(lcname);
1.1 misho 1685: } else {
1686: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1.1.1.2 misho 1687: zval key;
1.1 misho 1688:
1689: if (CG(current_namespace)) {
1.1.1.3 misho 1690: /* Prefix function name with current namespace name */
1.1 misho 1691: znode tmp;
1692:
1693: tmp.u.constant = *CG(current_namespace);
1694: zval_copy_ctor(&tmp.u.constant);
1695: zend_do_build_namespace_name(&tmp, &tmp, function_name TSRMLS_CC);
1696: op_array.function_name = Z_STRVAL(tmp.u.constant);
1697: name_len = Z_STRLEN(tmp.u.constant);
1698: lcname = zend_str_tolower_dup(Z_STRVAL(tmp.u.constant), name_len);
1.1.1.2 misho 1699: } else {
1700: lcname = zend_str_tolower_dup(name, name_len);
1.1 misho 1701: }
1702:
1703: opline->opcode = ZEND_DECLARE_FUNCTION;
1.1.1.2 misho 1704: opline->op1_type = IS_CONST;
1705: build_runtime_defined_function_key(&key, lcname, name_len TSRMLS_CC);
1706: opline->op1.constant = zend_add_literal(CG(active_op_array), &key TSRMLS_CC);
1707: Z_HASH_P(&CONSTANT(opline->op1.constant)) = zend_hash_func(Z_STRVAL(CONSTANT(opline->op1.constant)), Z_STRLEN(CONSTANT(opline->op1.constant)));
1708: opline->op2_type = IS_CONST;
1709: LITERAL_STRINGL(opline->op2, lcname, name_len, 0);
1710: CALCULATE_LITERAL_HASH(opline->op2.constant);
1.1 misho 1711: opline->extended_value = ZEND_DECLARE_FUNCTION;
1.1.1.2 misho 1712: zend_hash_quick_update(CG(function_table), Z_STRVAL(key), Z_STRLEN(key), Z_HASH_P(&CONSTANT(opline->op1.constant)), &op_array, sizeof(zend_op_array), (void **) &CG(active_op_array));
1713: zend_stack_push(&CG(context_stack), (void *) &CG(context), sizeof(CG(context)));
1714: zend_init_compiler_context(TSRMLS_C);
1.1 misho 1715: }
1716:
1717: if (CG(compiler_options) & ZEND_COMPILE_EXTENDED_INFO) {
1718: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1719:
1720: opline->opcode = ZEND_EXT_NOP;
1721: opline->lineno = function_begin_line;
1722: SET_UNUSED(opline->op1);
1723: SET_UNUSED(opline->op2);
1724: }
1725:
1726: {
1.1.1.4 misho 1727: /* Push a separator to the switch and foreach stacks */
1.1 misho 1728: zend_switch_entry switch_entry;
1729:
1730: switch_entry.cond.op_type = IS_UNUSED;
1731: switch_entry.default_case = 0;
1732: switch_entry.control_var = 0;
1733:
1734: zend_stack_push(&CG(switch_cond_stack), (void *) &switch_entry, sizeof(switch_entry));
1735:
1736: {
1737: /* Foreach stack separator */
1738: zend_op dummy_opline;
1739:
1.1.1.2 misho 1740: dummy_opline.result_type = IS_UNUSED;
1741: dummy_opline.op1_type = IS_UNUSED;
1.1 misho 1742:
1743: zend_stack_push(&CG(foreach_copy_stack), (void *) &dummy_opline, sizeof(zend_op));
1744: }
1745: }
1746:
1747: if (CG(doc_comment)) {
1748: CG(active_op_array)->doc_comment = CG(doc_comment);
1749: CG(active_op_array)->doc_comment_len = CG(doc_comment_len);
1750: CG(doc_comment) = NULL;
1751: CG(doc_comment_len) = 0;
1752: }
1753: }
1754: /* }}} */
1755:
1.1.1.2 misho 1756: void zend_do_begin_lambda_function_declaration(znode *result, znode *function_token, int return_reference, int is_static TSRMLS_DC) /* {{{ */
1.1 misho 1757: {
1758: znode function_name;
1759: zend_op_array *current_op_array = CG(active_op_array);
1760: int current_op_number = get_next_op_number(CG(active_op_array));
1761: zend_op *current_op;
1762:
1763: function_name.op_type = IS_CONST;
1764: ZVAL_STRINGL(&function_name.u.constant, "{closure}", sizeof("{closure}")-1, 1);
1765:
1766: zend_do_begin_function_declaration(function_token, &function_name, 0, return_reference, NULL TSRMLS_CC);
1767:
1768: result->op_type = IS_TMP_VAR;
1.1.1.2 misho 1769: result->u.op.var = get_temporary_variable(current_op_array);
1.1 misho 1770:
1771: current_op = ¤t_op_array->opcodes[current_op_number];
1772: current_op->opcode = ZEND_DECLARE_LAMBDA_FUNCTION;
1.1.1.2 misho 1773: zend_del_literal(current_op_array, current_op->op2.constant);
1774: SET_UNUSED(current_op->op2);
1775: SET_NODE(current_op->result, result);
1776: if (is_static) {
1777: CG(active_op_array)->fn_flags |= ZEND_ACC_STATIC;
1778: }
1.1 misho 1779: CG(active_op_array)->fn_flags |= ZEND_ACC_CLOSURE;
1780: }
1781: /* }}} */
1782:
1783: void zend_do_handle_exception(TSRMLS_D) /* {{{ */
1784: {
1785: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1786:
1787: opline->opcode = ZEND_HANDLE_EXCEPTION;
1788: SET_UNUSED(opline->op1);
1789: SET_UNUSED(opline->op2);
1790: }
1791: /* }}} */
1792:
1793: void zend_do_end_function_declaration(const znode *function_token TSRMLS_DC) /* {{{ */
1794: {
1795: char lcname[16];
1796: int name_len;
1797:
1798: zend_do_extended_info(TSRMLS_C);
1799: zend_do_return(NULL, 0 TSRMLS_CC);
1800:
1801: pass_two(CG(active_op_array) TSRMLS_CC);
1.1.1.3 misho 1802: zend_release_labels(0 TSRMLS_CC);
1.1 misho 1803:
1804: if (CG(active_class_entry)) {
1805: zend_check_magic_method_implementation(CG(active_class_entry), (zend_function*)CG(active_op_array), E_COMPILE_ERROR TSRMLS_CC);
1806: } else {
1807: /* we don't care if the function name is longer, in fact lowercasing only
1808: * the beginning of the name speeds up the check process */
1809: name_len = strlen(CG(active_op_array)->function_name);
1810: zend_str_tolower_copy(lcname, CG(active_op_array)->function_name, MIN(name_len, sizeof(lcname)-1));
1811: lcname[sizeof(lcname)-1] = '\0'; /* zend_str_tolower_copy won't necessarily set the zero byte */
1812: if (name_len == sizeof(ZEND_AUTOLOAD_FUNC_NAME) - 1 && !memcmp(lcname, ZEND_AUTOLOAD_FUNC_NAME, sizeof(ZEND_AUTOLOAD_FUNC_NAME)) && CG(active_op_array)->num_args != 1) {
1813: zend_error(E_COMPILE_ERROR, "%s() must take exactly 1 argument", ZEND_AUTOLOAD_FUNC_NAME);
1814: }
1815: }
1816:
1817: CG(active_op_array)->line_end = zend_get_compiled_lineno(TSRMLS_C);
1818: CG(active_op_array) = function_token->u.op_array;
1819:
1820:
1.1.1.4 misho 1821: /* Pop the switch and foreach separators */
1.1 misho 1822: zend_stack_del_top(&CG(switch_cond_stack));
1823: zend_stack_del_top(&CG(foreach_copy_stack));
1824: }
1825: /* }}} */
1826:
1.1.1.2 misho 1827: void zend_do_receive_arg(zend_uchar op, znode *varname, const znode *offset, const znode *initialization, znode *class_type, zend_uchar pass_by_reference TSRMLS_DC) /* {{{ */
1.1 misho 1828: {
1829: zend_op *opline;
1830: zend_arg_info *cur_arg_info;
1.1.1.2 misho 1831: znode var;
1.1 misho 1832:
1833: if (class_type->op_type == IS_CONST &&
1834: Z_TYPE(class_type->u.constant) == IS_STRING &&
1835: Z_STRLEN(class_type->u.constant) == 0) {
1836: /* Usage of namespace as class name not in namespace */
1837: zval_dtor(&class_type->u.constant);
1838: zend_error(E_COMPILE_ERROR, "Cannot use 'namespace' as a class name");
1839: return;
1840: }
1841:
1.1.1.2 misho 1842: if (zend_is_auto_global_quick(Z_STRVAL(varname->u.constant), Z_STRLEN(varname->u.constant), 0 TSRMLS_CC)) {
1843: zend_error(E_COMPILE_ERROR, "Cannot re-assign auto-global variable %s", Z_STRVAL(varname->u.constant));
1844: } else {
1845: var.op_type = IS_CV;
1846: var.u.op.var = lookup_cv(CG(active_op_array), varname->u.constant.value.str.val, varname->u.constant.value.str.len, 0 TSRMLS_CC);
1847: Z_STRVAL(varname->u.constant) = (char*)CG(active_op_array)->vars[var.u.op.var].name;
1848: var.EA = 0;
1849: if (CG(active_op_array)->vars[var.u.op.var].hash_value == THIS_HASHVAL &&
1850: Z_STRLEN(varname->u.constant) == sizeof("this")-1 &&
1851: !memcmp(Z_STRVAL(varname->u.constant), "this", sizeof("this")-1)) {
1852: if (CG(active_op_array)->scope &&
1853: (CG(active_op_array)->fn_flags & ZEND_ACC_STATIC) == 0) {
1854: zend_error(E_COMPILE_ERROR, "Cannot re-assign $this");
1855: }
1856: CG(active_op_array)->this_var = var.u.op.var;
1857: }
1.1 misho 1858: }
1859:
1860: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1861: CG(active_op_array)->num_args++;
1862: opline->opcode = op;
1.1.1.2 misho 1863: SET_NODE(opline->result, &var);
1864: SET_NODE(opline->op1, offset);
1.1 misho 1865: if (op == ZEND_RECV_INIT) {
1.1.1.2 misho 1866: SET_NODE(opline->op2, initialization);
1.1 misho 1867: } else {
1868: CG(active_op_array)->required_num_args = CG(active_op_array)->num_args;
1869: SET_UNUSED(opline->op2);
1870: }
1871: CG(active_op_array)->arg_info = erealloc(CG(active_op_array)->arg_info, sizeof(zend_arg_info)*(CG(active_op_array)->num_args));
1872: cur_arg_info = &CG(active_op_array)->arg_info[CG(active_op_array)->num_args-1];
1.1.1.2 misho 1873: cur_arg_info->name = zend_new_interned_string(estrndup(varname->u.constant.value.str.val, varname->u.constant.value.str.len), varname->u.constant.value.str.len + 1, 1 TSRMLS_CC);
1.1 misho 1874: cur_arg_info->name_len = varname->u.constant.value.str.len;
1.1.1.2 misho 1875: cur_arg_info->type_hint = 0;
1.1 misho 1876: cur_arg_info->allow_null = 1;
1877: cur_arg_info->pass_by_reference = pass_by_reference;
1878: cur_arg_info->class_name = NULL;
1879: cur_arg_info->class_name_len = 0;
1880:
1881: if (class_type->op_type != IS_UNUSED) {
1882: cur_arg_info->allow_null = 0;
1.1.1.2 misho 1883:
1884: if (class_type->u.constant.type != IS_NULL) {
1885: if (class_type->u.constant.type == IS_ARRAY) {
1886: cur_arg_info->type_hint = IS_ARRAY;
1887: if (op == ZEND_RECV_INIT) {
1888: if (Z_TYPE(initialization->u.constant) == IS_NULL || (Z_TYPE(initialization->u.constant) == IS_CONSTANT && !strcasecmp(Z_STRVAL(initialization->u.constant), "NULL"))) {
1889: cur_arg_info->allow_null = 1;
1890: } else if (Z_TYPE(initialization->u.constant) != IS_ARRAY && Z_TYPE(initialization->u.constant) != IS_CONSTANT_ARRAY) {
1891: zend_error(E_COMPILE_ERROR, "Default value for parameters with array type hint can only be an array or NULL");
1892: }
1.1 misho 1893: }
1.1.1.2 misho 1894: } else if (class_type->u.constant.type == IS_CALLABLE) {
1895: cur_arg_info->type_hint = IS_CALLABLE;
1896: if (op == ZEND_RECV_INIT) {
1897: if (Z_TYPE(initialization->u.constant) == IS_NULL || (Z_TYPE(initialization->u.constant) == IS_CONSTANT && !strcasecmp(Z_STRVAL(initialization->u.constant), "NULL"))) {
1898: cur_arg_info->allow_null = 1;
1899: } else {
1900: zend_error(E_COMPILE_ERROR, "Default value for parameters with callable type hint can only be NULL");
1901: }
1902: }
1903: } else {
1904: cur_arg_info->type_hint = IS_OBJECT;
1905: if (ZEND_FETCH_CLASS_DEFAULT == zend_get_class_fetch_type(Z_STRVAL(class_type->u.constant), Z_STRLEN(class_type->u.constant))) {
1906: zend_resolve_class_name(class_type, opline->extended_value, 1 TSRMLS_CC);
1907: }
1908: Z_STRVAL(class_type->u.constant) = (char*)zend_new_interned_string(class_type->u.constant.value.str.val, class_type->u.constant.value.str.len + 1, 1 TSRMLS_CC);
1909: cur_arg_info->class_name = class_type->u.constant.value.str.val;
1910: cur_arg_info->class_name_len = class_type->u.constant.value.str.len;
1911: if (op == ZEND_RECV_INIT) {
1912: if (Z_TYPE(initialization->u.constant) == IS_NULL || (Z_TYPE(initialization->u.constant) == IS_CONSTANT && !strcasecmp(Z_STRVAL(initialization->u.constant), "NULL"))) {
1913: cur_arg_info->allow_null = 1;
1914: } else {
1915: zend_error(E_COMPILE_ERROR, "Default value for parameters with a class type hint can only be NULL");
1916: }
1.1 misho 1917: }
1918: }
1919: }
1920: }
1921: }
1922: /* }}} */
1923:
1924: int zend_do_begin_function_call(znode *function_name, zend_bool check_namespace TSRMLS_DC) /* {{{ */
1925: {
1926: zend_function *function;
1927: char *lcname;
1928: char *is_compound = memchr(Z_STRVAL(function_name->u.constant), '\\', Z_STRLEN(function_name->u.constant));
1929:
1930: zend_resolve_non_class_name(function_name, check_namespace TSRMLS_CC);
1931:
1932: if (check_namespace && CG(current_namespace) && !is_compound) {
1933: /* We assume we call function from the current namespace
1934: if it is not prefixed. */
1935:
1936: /* In run-time PHP will check for function with full name and
1937: internal function with short name */
1938: zend_do_begin_dynamic_function_call(function_name, 1 TSRMLS_CC);
1939: return 1;
1940: }
1941:
1942: lcname = zend_str_tolower_dup(function_name->u.constant.value.str.val, function_name->u.constant.value.str.len);
1943: if ((zend_hash_find(CG(function_table), lcname, function_name->u.constant.value.str.len+1, (void **) &function)==FAILURE) ||
1944: ((CG(compiler_options) & ZEND_COMPILE_IGNORE_INTERNAL_FUNCTIONS) &&
1945: (function->type == ZEND_INTERNAL_FUNCTION))) {
1946: zend_do_begin_dynamic_function_call(function_name, 0 TSRMLS_CC);
1947: efree(lcname);
1948: return 1; /* Dynamic */
1949: }
1950: efree(function_name->u.constant.value.str.val);
1951: function_name->u.constant.value.str.val = lcname;
1952:
1953: zend_stack_push(&CG(function_call_stack), (void *) &function, sizeof(zend_function *));
1954: zend_do_extended_fcall_begin(TSRMLS_C);
1955: return 0;
1956: }
1957: /* }}} */
1958:
1959: void zend_do_begin_method_call(znode *left_bracket TSRMLS_DC) /* {{{ */
1960: {
1961: zend_op *last_op;
1962: int last_op_number;
1963: unsigned char *ptr = NULL;
1964:
1965: zend_do_end_variable_parse(left_bracket, BP_VAR_R, 0 TSRMLS_CC);
1966: zend_do_begin_variable_parse(TSRMLS_C);
1967:
1968: last_op_number = get_next_op_number(CG(active_op_array))-1;
1969: last_op = &CG(active_op_array)->opcodes[last_op_number];
1970:
1.1.1.2 misho 1971: if ((last_op->op2_type == IS_CONST) && (Z_TYPE(CONSTANT(last_op->op2.constant)) == IS_STRING) && (Z_STRLEN(CONSTANT(last_op->op2.constant)) == sizeof(ZEND_CLONE_FUNC_NAME)-1)
1972: && !zend_binary_strcasecmp(Z_STRVAL(CONSTANT(last_op->op2.constant)), Z_STRLEN(CONSTANT(last_op->op2.constant)), ZEND_CLONE_FUNC_NAME, sizeof(ZEND_CLONE_FUNC_NAME)-1)) {
1.1 misho 1973: zend_error(E_COMPILE_ERROR, "Cannot call __clone() method on objects - use 'clone $obj' instead");
1974: }
1975:
1976: if (last_op->opcode == ZEND_FETCH_OBJ_R) {
1.1.1.2 misho 1977: if (last_op->op2_type == IS_CONST) {
1978: zval name;
1979: name = CONSTANT(last_op->op2.constant);
1980: if (Z_TYPE(name) != IS_STRING) {
1981: zend_error(E_COMPILE_ERROR, "Method name must be a string");
1982: }
1983: if (!IS_INTERNED(Z_STRVAL(name))) {
1984: Z_STRVAL(name) = estrndup(Z_STRVAL(name), Z_STRLEN(name));
1985: }
1986: FREE_POLYMORPHIC_CACHE_SLOT(last_op->op2.constant);
1987: last_op->op2.constant =
1988: zend_add_func_name_literal(CG(active_op_array), &name TSRMLS_CC);
1989: GET_POLYMORPHIC_CACHE_SLOT(last_op->op2.constant);
1990: }
1.1 misho 1991: last_op->opcode = ZEND_INIT_METHOD_CALL;
1992: SET_UNUSED(last_op->result);
1993: Z_LVAL(left_bracket->u.constant) = ZEND_INIT_FCALL_BY_NAME;
1994: } else {
1995: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1996: opline->opcode = ZEND_INIT_FCALL_BY_NAME;
1.1.1.2 misho 1997: SET_UNUSED(opline->op1);
1998: if (left_bracket->op_type == IS_CONST) {
1999: opline->op2_type = IS_CONST;
2000: opline->op2.constant = zend_add_func_name_literal(CG(active_op_array), &left_bracket->u.constant TSRMLS_CC);
2001: GET_CACHE_SLOT(opline->op2.constant);
1.1 misho 2002: } else {
1.1.1.2 misho 2003: SET_NODE(opline->op2, left_bracket);
1.1 misho 2004: }
2005: }
2006:
2007: zend_stack_push(&CG(function_call_stack), (void *) &ptr, sizeof(zend_function *));
2008: zend_do_extended_fcall_begin(TSRMLS_C);
2009: }
2010: /* }}} */
2011:
2012: void zend_do_clone(znode *result, const znode *expr TSRMLS_DC) /* {{{ */
2013: {
2014: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2015:
2016: opline->opcode = ZEND_CLONE;
1.1.1.2 misho 2017: SET_NODE(opline->op1, expr);
1.1 misho 2018: SET_UNUSED(opline->op2);
1.1.1.2 misho 2019: opline->result_type = IS_VAR;
2020: opline->result.var = get_temporary_variable(CG(active_op_array));
2021: GET_NODE(result, opline->result);
1.1 misho 2022: }
2023: /* }}} */
2024:
2025: void zend_do_begin_dynamic_function_call(znode *function_name, int ns_call TSRMLS_DC) /* {{{ */
2026: {
2027: unsigned char *ptr = NULL;
1.1.1.2 misho 2028: zend_op *opline;
1.1 misho 2029:
2030: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2031: if (ns_call) {
2032: /* In run-time PHP will check for function with full name and
2033: internal function with short name */
2034: opline->opcode = ZEND_INIT_NS_FCALL_BY_NAME;
1.1.1.2 misho 2035: SET_UNUSED(opline->op1);
2036: opline->op2_type = IS_CONST;
2037: opline->op2.constant = zend_add_ns_func_name_literal(CG(active_op_array), &function_name->u.constant TSRMLS_CC);
2038: GET_CACHE_SLOT(opline->op2.constant);
1.1 misho 2039: } else {
2040: opline->opcode = ZEND_INIT_FCALL_BY_NAME;
1.1.1.2 misho 2041: SET_UNUSED(opline->op1);
2042: if (function_name->op_type == IS_CONST) {
2043: opline->op2_type = IS_CONST;
2044: opline->op2.constant = zend_add_func_name_literal(CG(active_op_array), &function_name->u.constant TSRMLS_CC);
2045: GET_CACHE_SLOT(opline->op2.constant);
1.1 misho 2046: } else {
1.1.1.2 misho 2047: SET_NODE(opline->op2, function_name);
1.1 misho 2048: }
2049: }
2050:
2051: zend_stack_push(&CG(function_call_stack), (void *) &ptr, sizeof(zend_function *));
2052: zend_do_extended_fcall_begin(TSRMLS_C);
2053: }
2054: /* }}} */
2055:
2056: void zend_resolve_non_class_name(znode *element_name, zend_bool check_namespace TSRMLS_DC) /* {{{ */
2057: {
2058: znode tmp;
2059: int len;
2060: zval **ns;
2061: char *lcname, *compound = memchr(Z_STRVAL(element_name->u.constant), '\\', Z_STRLEN(element_name->u.constant));
2062:
2063: if (Z_STRVAL(element_name->u.constant)[0] == '\\') {
2064: /* name starts with \ so it is known and unambiguos, nothing to do here but shorten it */
2065: memmove(Z_STRVAL(element_name->u.constant), Z_STRVAL(element_name->u.constant)+1, Z_STRLEN(element_name->u.constant));
2066: --Z_STRLEN(element_name->u.constant);
2067: return;
2068: }
2069:
2070: if(!check_namespace) {
2071: return;
2072: }
2073:
2074: if (compound && CG(current_import)) {
2075: len = compound - Z_STRVAL(element_name->u.constant);
2076: lcname = zend_str_tolower_dup(Z_STRVAL(element_name->u.constant), len);
2077: /* Check if first part of compound name is an import name */
2078: if (zend_hash_find(CG(current_import), lcname, len+1, (void**)&ns) == SUCCESS) {
2079: /* Substitute import name */
2080: tmp.op_type = IS_CONST;
2081: tmp.u.constant = **ns;
2082: zval_copy_ctor(&tmp.u.constant);
2083: len += 1;
2084: Z_STRLEN(element_name->u.constant) -= len;
2085: memmove(Z_STRVAL(element_name->u.constant), Z_STRVAL(element_name->u.constant)+len, Z_STRLEN(element_name->u.constant)+1);
2086: zend_do_build_namespace_name(&tmp, &tmp, element_name TSRMLS_CC);
2087: *element_name = tmp;
2088: efree(lcname);
2089: return;
2090: }
2091: efree(lcname);
2092: }
2093:
2094: if (CG(current_namespace)) {
2095: tmp = *element_name;
2096: Z_STRLEN(tmp.u.constant) = sizeof("\\")-1 + Z_STRLEN(element_name->u.constant) + Z_STRLEN_P(CG(current_namespace));
2097: Z_STRVAL(tmp.u.constant) = (char *) emalloc(Z_STRLEN(tmp.u.constant)+1);
2098: memcpy(Z_STRVAL(tmp.u.constant), Z_STRVAL_P(CG(current_namespace)), Z_STRLEN_P(CG(current_namespace)));
2099: memcpy(&(Z_STRVAL(tmp.u.constant)[Z_STRLEN_P(CG(current_namespace))]), "\\", sizeof("\\")-1);
2100: memcpy(&(Z_STRVAL(tmp.u.constant)[Z_STRLEN_P(CG(current_namespace)) + sizeof("\\")-1]), Z_STRVAL(element_name->u.constant), Z_STRLEN(element_name->u.constant)+1);
2101: STR_FREE(Z_STRVAL(element_name->u.constant));
2102: *element_name = tmp;
2103: }
2104: }
2105: /* }}} */
2106:
1.1.1.2 misho 2107: void zend_resolve_class_name(znode *class_name, ulong fetch_type, int check_ns_name TSRMLS_DC) /* {{{ */
1.1 misho 2108: {
2109: char *compound;
2110: char *lcname;
2111: zval **ns;
2112: znode tmp;
2113: int len;
2114:
2115: compound = memchr(Z_STRVAL(class_name->u.constant), '\\', Z_STRLEN(class_name->u.constant));
2116: if (compound) {
2117: /* This is a compound class name that contains namespace prefix */
2118: if (Z_STRVAL(class_name->u.constant)[0] == '\\') {
1.1.1.2 misho 2119: /* The STRING name has "\" prefix */
2120: Z_STRLEN(class_name->u.constant) -= 1;
2121: memmove(Z_STRVAL(class_name->u.constant), Z_STRVAL(class_name->u.constant)+1, Z_STRLEN(class_name->u.constant)+1);
1.1 misho 2122: Z_STRVAL(class_name->u.constant) = erealloc(
1.1.1.2 misho 2123: Z_STRVAL(class_name->u.constant),
2124: Z_STRLEN(class_name->u.constant) + 1);
1.1 misho 2125:
2126: if (ZEND_FETCH_CLASS_DEFAULT != zend_get_class_fetch_type(Z_STRVAL(class_name->u.constant), Z_STRLEN(class_name->u.constant))) {
2127: zend_error(E_COMPILE_ERROR, "'\\%s' is an invalid class name", Z_STRVAL(class_name->u.constant));
2128: }
2129: } else {
2130: if (CG(current_import)) {
2131: len = compound - Z_STRVAL(class_name->u.constant);
2132: lcname = zend_str_tolower_dup(Z_STRVAL(class_name->u.constant), len);
2133: /* Check if first part of compound name is an import name */
2134: if (zend_hash_find(CG(current_import), lcname, len+1, (void**)&ns) == SUCCESS) {
2135: /* Substitute import name */
2136: tmp.op_type = IS_CONST;
2137: tmp.u.constant = **ns;
2138: zval_copy_ctor(&tmp.u.constant);
2139: len += 1;
2140: Z_STRLEN(class_name->u.constant) -= len;
2141: memmove(Z_STRVAL(class_name->u.constant), Z_STRVAL(class_name->u.constant)+len, Z_STRLEN(class_name->u.constant)+1);
2142: zend_do_build_namespace_name(&tmp, &tmp, class_name TSRMLS_CC);
2143: *class_name = tmp;
2144: efree(lcname);
2145: return;
2146: }
2147: efree(lcname);
2148: }
2149: /* Here name is not prefixed with \ and not imported */
2150: if (CG(current_namespace)) {
2151: tmp.op_type = IS_CONST;
2152: tmp.u.constant = *CG(current_namespace);
2153: zval_copy_ctor(&tmp.u.constant);
2154: zend_do_build_namespace_name(&tmp, &tmp, class_name TSRMLS_CC);
2155: *class_name = tmp;
2156: }
2157: }
2158: } else if (CG(current_import) || CG(current_namespace)) {
2159: /* this is a plain name (without \) */
2160: lcname = zend_str_tolower_dup(Z_STRVAL(class_name->u.constant), Z_STRLEN(class_name->u.constant));
2161:
2162: if (CG(current_import) &&
2163: zend_hash_find(CG(current_import), lcname, Z_STRLEN(class_name->u.constant)+1, (void**)&ns) == SUCCESS) {
2164: /* The given name is an import name. Substitute it. */
2165: zval_dtor(&class_name->u.constant);
2166: class_name->u.constant = **ns;
2167: zval_copy_ctor(&class_name->u.constant);
2168: } else if (CG(current_namespace)) {
2169: /* plain name, no import - prepend current namespace to it */
2170: tmp.op_type = IS_CONST;
2171: tmp.u.constant = *CG(current_namespace);
2172: zval_copy_ctor(&tmp.u.constant);
2173: zend_do_build_namespace_name(&tmp, &tmp, class_name TSRMLS_CC);
2174: *class_name = tmp;
2175: }
2176: efree(lcname);
2177: }
2178: }
2179: /* }}} */
2180:
2181: void zend_do_fetch_class(znode *result, znode *class_name TSRMLS_DC) /* {{{ */
2182: {
2183: long fetch_class_op_number;
2184: zend_op *opline;
2185:
2186: if (class_name->op_type == IS_CONST &&
2187: Z_TYPE(class_name->u.constant) == IS_STRING &&
2188: Z_STRLEN(class_name->u.constant) == 0) {
2189: /* Usage of namespace as class name not in namespace */
2190: zval_dtor(&class_name->u.constant);
2191: zend_error(E_COMPILE_ERROR, "Cannot use 'namespace' as a class name");
2192: return;
2193: }
2194:
2195: fetch_class_op_number = get_next_op_number(CG(active_op_array));
2196: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2197:
2198: opline->opcode = ZEND_FETCH_CLASS;
2199: SET_UNUSED(opline->op1);
2200: opline->extended_value = ZEND_FETCH_CLASS_GLOBAL;
2201: CG(catch_begin) = fetch_class_op_number;
2202: if (class_name->op_type == IS_CONST) {
2203: int fetch_type;
2204:
2205: fetch_type = zend_get_class_fetch_type(class_name->u.constant.value.str.val, class_name->u.constant.value.str.len);
2206: switch (fetch_type) {
2207: case ZEND_FETCH_CLASS_SELF:
2208: case ZEND_FETCH_CLASS_PARENT:
2209: case ZEND_FETCH_CLASS_STATIC:
2210: SET_UNUSED(opline->op2);
2211: opline->extended_value = fetch_type;
2212: zval_dtor(&class_name->u.constant);
2213: break;
2214: default:
1.1.1.2 misho 2215: zend_resolve_class_name(class_name, opline->extended_value, 0 TSRMLS_CC);
2216: opline->op2_type = IS_CONST;
2217: opline->op2.constant =
2218: zend_add_class_name_literal(CG(active_op_array), &class_name->u.constant TSRMLS_CC);
1.1 misho 2219: break;
2220: }
2221: } else {
1.1.1.2 misho 2222: SET_NODE(opline->op2, class_name);
1.1 misho 2223: }
1.1.1.2 misho 2224: opline->result.var = get_temporary_variable(CG(active_op_array));
2225: opline->result_type = IS_VAR; /* FIXME: Hack so that INIT_FCALL_BY_NAME still knows this is a class */
2226: GET_NODE(result, opline->result);
2227: result->EA = opline->extended_value;
1.1 misho 2228: }
2229: /* }}} */
2230:
2231: void zend_do_label(znode *label TSRMLS_DC) /* {{{ */
2232: {
2233: zend_label dest;
2234:
1.1.1.2 misho 2235: if (!CG(context).labels) {
2236: ALLOC_HASHTABLE(CG(context).labels);
2237: zend_hash_init(CG(context).labels, 4, NULL, NULL, 0);
1.1 misho 2238: }
2239:
1.1.1.2 misho 2240: dest.brk_cont = CG(context).current_brk_cont;
2241: dest.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 2242:
1.1.1.2 misho 2243: if (zend_hash_add(CG(context).labels, Z_STRVAL(label->u.constant), Z_STRLEN(label->u.constant) + 1, (void**)&dest, sizeof(zend_label), NULL) == FAILURE) {
1.1 misho 2244: zend_error(E_COMPILE_ERROR, "Label '%s' already defined", Z_STRVAL(label->u.constant));
2245: }
2246:
2247: /* Done with label now */
2248: zval_dtor(&label->u.constant);
2249: }
2250: /* }}} */
2251:
2252: void zend_resolve_goto_label(zend_op_array *op_array, zend_op *opline, int pass2 TSRMLS_DC) /* {{{ */
2253: {
2254: zend_label *dest;
2255: long current, distance;
1.1.1.2 misho 2256: zval *label;
1.1 misho 2257:
1.1.1.2 misho 2258: if (pass2) {
2259: label = opline->op2.zv;
2260: } else {
2261: label = &CONSTANT_EX(op_array, opline->op2.constant);
2262: }
2263: if (CG(context).labels == NULL ||
2264: zend_hash_find(CG(context).labels, Z_STRVAL_P(label), Z_STRLEN_P(label)+1, (void**)&dest) == FAILURE) {
1.1 misho 2265:
2266: if (pass2) {
2267: CG(in_compilation) = 1;
2268: CG(active_op_array) = op_array;
2269: CG(zend_lineno) = opline->lineno;
1.1.1.2 misho 2270: zend_error(E_COMPILE_ERROR, "'goto' to undefined label '%s'", Z_STRVAL_P(label));
1.1 misho 2271: } else {
2272: /* Label is not defined. Delay to pass 2. */
2273: INC_BPC(op_array);
2274: return;
2275: }
2276: }
2277:
1.1.1.2 misho 2278: opline->op1.opline_num = dest->opline_num;
2279: zval_dtor(label);
2280: Z_TYPE_P(label) = IS_NULL;
1.1 misho 2281:
2282: /* Check that we are not moving into loop or switch */
2283: current = opline->extended_value;
2284: for (distance = 0; current != dest->brk_cont; distance++) {
2285: if (current == -1) {
2286: if (pass2) {
2287: CG(in_compilation) = 1;
2288: CG(active_op_array) = op_array;
2289: CG(zend_lineno) = opline->lineno;
2290: }
2291: zend_error(E_COMPILE_ERROR, "'goto' into loop or switch statement is disallowed");
2292: }
2293: current = op_array->brk_cont_array[current].parent;
2294: }
2295:
2296: if (distance == 0) {
2297: /* Nothing to break out of, optimize to ZEND_JMP */
2298: opline->opcode = ZEND_JMP;
2299: opline->extended_value = 0;
2300: SET_UNUSED(opline->op2);
2301: } else {
2302: /* Set real break distance */
1.1.1.2 misho 2303: ZVAL_LONG(label, distance);
1.1 misho 2304: }
2305:
2306: if (pass2) {
2307: DEC_BPC(op_array);
2308: }
2309: }
2310: /* }}} */
2311:
2312: void zend_do_goto(const znode *label TSRMLS_DC) /* {{{ */
2313: {
2314: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2315:
2316: opline->opcode = ZEND_GOTO;
1.1.1.2 misho 2317: opline->extended_value = CG(context).current_brk_cont;
1.1 misho 2318: SET_UNUSED(opline->op1);
1.1.1.2 misho 2319: SET_NODE(opline->op2, label);
1.1 misho 2320: zend_resolve_goto_label(CG(active_op_array), opline, 0 TSRMLS_CC);
2321: }
2322: /* }}} */
2323:
1.1.1.3 misho 2324: void zend_release_labels(int temporary TSRMLS_DC) /* {{{ */
1.1 misho 2325: {
1.1.1.2 misho 2326: if (CG(context).labels) {
2327: zend_hash_destroy(CG(context).labels);
2328: FREE_HASHTABLE(CG(context).labels);
1.1.1.3 misho 2329: CG(context).labels = NULL;
1.1.1.2 misho 2330: }
1.1.1.3 misho 2331: if (!temporary && !zend_stack_is_empty(&CG(context_stack))) {
1.1.1.2 misho 2332: zend_compiler_context *ctx;
2333:
2334: zend_stack_top(&CG(context_stack), (void**)&ctx);
2335: CG(context) = *ctx;
2336: zend_stack_del_top(&CG(context_stack));
1.1 misho 2337: }
2338: }
2339: /* }}} */
2340:
2341: void zend_do_build_full_name(znode *result, znode *prefix, znode *name, int is_class_member TSRMLS_DC) /* {{{ */
2342: {
2343: zend_uint length;
2344:
2345: if (!result) {
2346: result = prefix;
2347: } else {
2348: *result = *prefix;
2349: }
2350:
2351: if (is_class_member) {
2352: length = sizeof("::")-1 + result->u.constant.value.str.len + name->u.constant.value.str.len;
2353: result->u.constant.value.str.val = erealloc(result->u.constant.value.str.val, length+1);
2354: memcpy(&result->u.constant.value.str.val[result->u.constant.value.str.len], "::", sizeof("::")-1);
2355: memcpy(&result->u.constant.value.str.val[result->u.constant.value.str.len + sizeof("::")-1], name->u.constant.value.str.val, name->u.constant.value.str.len+1);
2356: STR_FREE(name->u.constant.value.str.val);
2357: result->u.constant.value.str.len = length;
2358: } else {
2359: length = sizeof("\\")-1 + result->u.constant.value.str.len + name->u.constant.value.str.len;
2360: result->u.constant.value.str.val = erealloc(result->u.constant.value.str.val, length+1);
2361: memcpy(&result->u.constant.value.str.val[result->u.constant.value.str.len], "\\", sizeof("\\")-1);
2362: memcpy(&result->u.constant.value.str.val[result->u.constant.value.str.len + sizeof("\\")-1], name->u.constant.value.str.val, name->u.constant.value.str.len+1);
2363: STR_FREE(name->u.constant.value.str.val);
2364: result->u.constant.value.str.len = length;
2365: }
2366: }
2367: /* }}} */
2368:
2369: int zend_do_begin_class_member_function_call(znode *class_name, znode *method_name TSRMLS_DC) /* {{{ */
2370: {
2371: znode class_node;
2372: unsigned char *ptr = NULL;
2373: zend_op *opline;
2374:
2375: if (method_name->op_type == IS_CONST) {
1.1.1.2 misho 2376: char *lcname;
2377: if (Z_TYPE(method_name->u.constant) != IS_STRING) {
2378: zend_error(E_COMPILE_ERROR, "Method name must be a string");
2379: }
2380: lcname = zend_str_tolower_dup(Z_STRVAL(method_name->u.constant), Z_STRLEN(method_name->u.constant));
1.1 misho 2381: if ((sizeof(ZEND_CONSTRUCTOR_FUNC_NAME)-1) == Z_STRLEN(method_name->u.constant) &&
1.1.1.2 misho 2382: memcmp(lcname, ZEND_CONSTRUCTOR_FUNC_NAME, sizeof(ZEND_CONSTRUCTOR_FUNC_NAME)-1) == 0) {
1.1 misho 2383: zval_dtor(&method_name->u.constant);
1.1.1.2 misho 2384: method_name->op_type = IS_UNUSED;
1.1 misho 2385: }
2386: efree(lcname);
2387: }
2388:
2389: if (class_name->op_type == IS_CONST &&
1.1.1.2 misho 2390: ZEND_FETCH_CLASS_DEFAULT == zend_get_class_fetch_type(Z_STRVAL(class_name->u.constant), Z_STRLEN(class_name->u.constant))) {
2391: zend_resolve_class_name(class_name, ZEND_FETCH_CLASS_GLOBAL, 1 TSRMLS_CC);
1.1 misho 2392: class_node = *class_name;
1.1.1.2 misho 2393: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1.1 misho 2394: } else {
2395: zend_do_fetch_class(&class_node, class_name TSRMLS_CC);
1.1.1.2 misho 2396: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2397: opline->extended_value = class_node.EA ;
1.1 misho 2398: }
2399: opline->opcode = ZEND_INIT_STATIC_METHOD_CALL;
1.1.1.2 misho 2400: if (class_node.op_type == IS_CONST) {
2401: opline->op1_type = IS_CONST;
2402: opline->op1.constant =
2403: zend_add_class_name_literal(CG(active_op_array), &class_node.u.constant TSRMLS_CC);
2404: } else {
2405: SET_NODE(opline->op1, &class_node);
2406: }
2407: if (method_name->op_type == IS_CONST) {
2408: opline->op2_type = IS_CONST;
2409: opline->op2.constant =
2410: zend_add_func_name_literal(CG(active_op_array), &method_name->u.constant TSRMLS_CC);
2411: if (opline->op1_type == IS_CONST) {
2412: GET_CACHE_SLOT(opline->op2.constant);
2413: } else {
2414: GET_POLYMORPHIC_CACHE_SLOT(opline->op2.constant);
2415: }
2416: } else {
2417: SET_NODE(opline->op2, method_name);
2418: }
1.1 misho 2419:
2420: zend_stack_push(&CG(function_call_stack), (void *) &ptr, sizeof(zend_function *));
2421: zend_do_extended_fcall_begin(TSRMLS_C);
2422: return 1; /* Dynamic */
2423: }
2424: /* }}} */
2425:
2426: void zend_do_end_function_call(znode *function_name, znode *result, const znode *argument_list, int is_method, int is_dynamic_fcall TSRMLS_DC) /* {{{ */
2427: {
2428: zend_op *opline;
2429:
2430: if (is_method && function_name && function_name->op_type == IS_UNUSED) {
2431: /* clone */
2432: if (Z_LVAL(argument_list->u.constant) != 0) {
2433: zend_error(E_WARNING, "Clone method does not require arguments");
2434: }
2435: opline = &CG(active_op_array)->opcodes[Z_LVAL(function_name->u.constant)];
2436: } else {
2437: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2438: if (!is_method && !is_dynamic_fcall && function_name->op_type==IS_CONST) {
2439: opline->opcode = ZEND_DO_FCALL;
1.1.1.2 misho 2440: SET_NODE(opline->op1, function_name);
2441: CALCULATE_LITERAL_HASH(opline->op1.constant);
2442: GET_CACHE_SLOT(opline->op1.constant);
1.1 misho 2443: } else {
2444: opline->opcode = ZEND_DO_FCALL_BY_NAME;
2445: SET_UNUSED(opline->op1);
2446: }
2447: }
2448:
1.1.1.2 misho 2449: opline->result.var = get_temporary_variable(CG(active_op_array));
2450: opline->result_type = IS_VAR;
2451: GET_NODE(result, opline->result) ;
1.1 misho 2452: SET_UNUSED(opline->op2);
2453:
2454: zend_stack_del_top(&CG(function_call_stack));
2455: opline->extended_value = Z_LVAL(argument_list->u.constant);
2456: }
2457: /* }}} */
2458:
2459: void zend_do_pass_param(znode *param, zend_uchar op, int offset TSRMLS_DC) /* {{{ */
2460: {
2461: zend_op *opline;
2462: int original_op=op;
2463: zend_function **function_ptr_ptr, *function_ptr;
2464: int send_by_reference;
2465: int send_function = 0;
2466:
2467: zend_stack_top(&CG(function_call_stack), (void **) &function_ptr_ptr);
2468: function_ptr = *function_ptr_ptr;
2469:
1.1.1.2 misho 2470: if (original_op == ZEND_SEND_REF) {
1.1 misho 2471: if (function_ptr &&
1.1.1.2 misho 2472: function_ptr->common.function_name &&
2473: function_ptr->common.type == ZEND_USER_FUNCTION &&
2474: !ARG_SHOULD_BE_SENT_BY_REF(function_ptr, (zend_uint) offset)) {
2475: zend_error(E_COMPILE_ERROR,
2476: "Call-time pass-by-reference has been removed; "
2477: "If you would like to pass argument by reference, modify the declaration of %s().",
2478: function_ptr->common.function_name);
1.1 misho 2479: } else {
1.1.1.2 misho 2480: zend_error(E_COMPILE_ERROR, "Call-time pass-by-reference has been removed");
1.1 misho 2481: }
1.1.1.2 misho 2482: return;
2483: }
2484:
1.1 misho 2485: if (function_ptr) {
2486: if (ARG_MAY_BE_SENT_BY_REF(function_ptr, (zend_uint) offset)) {
1.1.1.2 misho 2487: if (param->op_type & (IS_VAR|IS_CV) && original_op != ZEND_SEND_VAL) {
1.1 misho 2488: send_by_reference = 1;
2489: if (op == ZEND_SEND_VAR && zend_is_function_or_method_call(param)) {
2490: /* Method call */
2491: op = ZEND_SEND_VAR_NO_REF;
2492: send_function = ZEND_ARG_SEND_FUNCTION | ZEND_ARG_SEND_SILENT;
2493: }
2494: } else {
2495: op = ZEND_SEND_VAL;
2496: send_by_reference = 0;
2497: }
2498: } else {
2499: send_by_reference = ARG_SHOULD_BE_SENT_BY_REF(function_ptr, (zend_uint) offset) ? ZEND_ARG_SEND_BY_REF : 0;
2500: }
2501: } else {
2502: send_by_reference = 0;
2503: }
2504:
2505: if (op == ZEND_SEND_VAR && zend_is_function_or_method_call(param)) {
2506: /* Method call */
2507: op = ZEND_SEND_VAR_NO_REF;
2508: send_function = ZEND_ARG_SEND_FUNCTION;
2509: } else if (op == ZEND_SEND_VAL && (param->op_type & (IS_VAR|IS_CV))) {
2510: op = ZEND_SEND_VAR_NO_REF;
2511: }
2512:
2513: if (op!=ZEND_SEND_VAR_NO_REF && send_by_reference==ZEND_ARG_SEND_BY_REF) {
2514: /* change to passing by reference */
2515: switch (param->op_type) {
2516: case IS_VAR:
2517: case IS_CV:
2518: op = ZEND_SEND_REF;
2519: break;
2520: default:
2521: zend_error(E_COMPILE_ERROR, "Only variables can be passed by reference");
2522: break;
2523: }
2524: }
2525:
2526: if (original_op == ZEND_SEND_VAR) {
2527: switch (op) {
2528: case ZEND_SEND_VAR_NO_REF:
2529: zend_do_end_variable_parse(param, BP_VAR_R, 0 TSRMLS_CC);
2530: break;
2531: case ZEND_SEND_VAR:
2532: if (function_ptr) {
2533: zend_do_end_variable_parse(param, BP_VAR_R, 0 TSRMLS_CC);
2534: } else {
2535: zend_do_end_variable_parse(param, BP_VAR_FUNC_ARG, offset TSRMLS_CC);
2536: }
2537: break;
2538: case ZEND_SEND_REF:
2539: zend_do_end_variable_parse(param, BP_VAR_W, 0 TSRMLS_CC);
2540: break;
2541: }
2542: }
2543:
2544: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2545:
2546: if (op == ZEND_SEND_VAR_NO_REF) {
2547: if (function_ptr) {
2548: opline->extended_value = ZEND_ARG_COMPILE_TIME_BOUND | send_by_reference | send_function;
2549: } else {
2550: opline->extended_value = send_function;
2551: }
2552: } else {
2553: if (function_ptr) {
2554: opline->extended_value = ZEND_DO_FCALL;
2555: } else {
2556: opline->extended_value = ZEND_DO_FCALL_BY_NAME;
2557: }
2558: }
2559: opline->opcode = op;
1.1.1.2 misho 2560: SET_NODE(opline->op1, param);
2561: opline->op2.opline_num = offset;
1.1 misho 2562: SET_UNUSED(opline->op2);
2563: }
2564: /* }}} */
2565:
2566: static int generate_free_switch_expr(const zend_switch_entry *switch_entry TSRMLS_DC) /* {{{ */
2567: {
2568: zend_op *opline;
2569:
2570: if (switch_entry->cond.op_type != IS_VAR && switch_entry->cond.op_type != IS_TMP_VAR) {
2571: return (switch_entry->cond.op_type == IS_UNUSED);
2572: }
2573:
2574: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2575:
2576: opline->opcode = (switch_entry->cond.op_type == IS_TMP_VAR) ? ZEND_FREE : ZEND_SWITCH_FREE;
1.1.1.2 misho 2577: SET_NODE(opline->op1, &switch_entry->cond);
1.1 misho 2578: SET_UNUSED(opline->op2);
2579: opline->extended_value = 0;
2580: return 0;
2581: }
2582: /* }}} */
2583:
2584: static int generate_free_foreach_copy(const zend_op *foreach_copy TSRMLS_DC) /* {{{ */
2585: {
2586: zend_op *opline;
2587:
1.1.1.4 misho 2588: /* If we reach the separator then stop applying the stack */
1.1.1.2 misho 2589: if (foreach_copy->result_type == IS_UNUSED && foreach_copy->op1_type == IS_UNUSED) {
1.1 misho 2590: return 1;
2591: }
2592:
2593: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2594:
1.1.1.2 misho 2595: opline->opcode = (foreach_copy->result_type == IS_TMP_VAR) ? ZEND_FREE : ZEND_SWITCH_FREE;
2596: COPY_NODE(opline->op1, foreach_copy->result);
1.1 misho 2597: SET_UNUSED(opline->op2);
2598: opline->extended_value = 1;
2599:
1.1.1.2 misho 2600: if (foreach_copy->op1_type != IS_UNUSED) {
1.1 misho 2601: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2602:
1.1.1.2 misho 2603: opline->opcode = (foreach_copy->op1_type == IS_TMP_VAR) ? ZEND_FREE : ZEND_SWITCH_FREE;
2604: COPY_NODE(opline->op1, foreach_copy->op1);
1.1 misho 2605: SET_UNUSED(opline->op2);
2606: opline->extended_value = 0;
2607: }
2608:
2609: return 0;
2610: }
2611: /* }}} */
2612:
2613: void zend_do_return(znode *expr, int do_end_vparse TSRMLS_DC) /* {{{ */
2614: {
2615: zend_op *opline;
2616: int start_op_number, end_op_number;
2617:
2618: if (do_end_vparse) {
1.1.1.2 misho 2619: if ((CG(active_op_array)->fn_flags & ZEND_ACC_RETURN_REFERENCE) && !zend_is_function_or_method_call(expr)) {
1.1 misho 2620: zend_do_end_variable_parse(expr, BP_VAR_W, 0 TSRMLS_CC);
2621: } else {
2622: zend_do_end_variable_parse(expr, BP_VAR_R, 0 TSRMLS_CC);
2623: }
2624: }
2625:
2626: start_op_number = get_next_op_number(CG(active_op_array));
2627:
2628: #ifdef ZTS
2629: zend_stack_apply_with_argument(&CG(switch_cond_stack), ZEND_STACK_APPLY_TOPDOWN, (int (*)(void *element, void *)) generate_free_switch_expr TSRMLS_CC);
2630: zend_stack_apply_with_argument(&CG(foreach_copy_stack), ZEND_STACK_APPLY_TOPDOWN, (int (*)(void *element, void *)) generate_free_foreach_copy TSRMLS_CC);
2631: #else
2632: zend_stack_apply(&CG(switch_cond_stack), ZEND_STACK_APPLY_TOPDOWN, (int (*)(void *element)) generate_free_switch_expr);
2633: zend_stack_apply(&CG(foreach_copy_stack), ZEND_STACK_APPLY_TOPDOWN, (int (*)(void *element)) generate_free_foreach_copy);
2634: #endif
2635:
2636: end_op_number = get_next_op_number(CG(active_op_array));
2637: while (start_op_number < end_op_number) {
1.1.1.2 misho 2638: CG(active_op_array)->opcodes[start_op_number].extended_value |= EXT_TYPE_FREE_ON_RETURN;
1.1 misho 2639: start_op_number++;
2640: }
2641:
2642: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2643:
1.1.1.2 misho 2644: opline->opcode = (CG(active_op_array)->fn_flags & ZEND_ACC_RETURN_REFERENCE) ? ZEND_RETURN_BY_REF : ZEND_RETURN;
1.1 misho 2645:
2646: if (expr) {
1.1.1.2 misho 2647: SET_NODE(opline->op1, expr);
1.1 misho 2648:
2649: if (do_end_vparse && zend_is_function_or_method_call(expr)) {
2650: opline->extended_value = ZEND_RETURNS_FUNCTION;
2651: }
2652: } else {
1.1.1.2 misho 2653: opline->op1_type = IS_CONST;
2654: LITERAL_NULL(opline->op1);
1.1 misho 2655: }
2656:
2657: SET_UNUSED(opline->op2);
2658: }
2659: /* }}} */
2660:
2661: static int zend_add_try_element(zend_uint try_op TSRMLS_DC) /* {{{ */
2662: {
2663: int try_catch_offset = CG(active_op_array)->last_try_catch++;
2664:
2665: CG(active_op_array)->try_catch_array = erealloc(CG(active_op_array)->try_catch_array, sizeof(zend_try_catch_element)*CG(active_op_array)->last_try_catch);
2666: CG(active_op_array)->try_catch_array[try_catch_offset].try_op = try_op;
2667: return try_catch_offset;
2668: }
2669: /* }}} */
2670:
2671: static void zend_add_catch_element(int offset, zend_uint catch_op TSRMLS_DC) /* {{{ */
2672: {
2673: CG(active_op_array)->try_catch_array[offset].catch_op = catch_op;
2674: }
2675: /* }}} */
2676:
2677: void zend_do_first_catch(znode *open_parentheses TSRMLS_DC) /* {{{ */
2678: {
1.1.1.2 misho 2679: open_parentheses->u.op.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 2680: }
2681: /* }}} */
2682:
2683: void zend_initialize_try_catch_element(const znode *try_token TSRMLS_DC) /* {{{ */
2684: {
2685: int jmp_op_number = get_next_op_number(CG(active_op_array));
2686: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2687: zend_llist jmp_list;
2688: zend_llist *jmp_list_ptr;
2689:
2690: opline->opcode = ZEND_JMP;
2691: SET_UNUSED(opline->op1);
2692: SET_UNUSED(opline->op2);
2693: /* save for backpatching */
2694:
2695: zend_llist_init(&jmp_list, sizeof(int), NULL, 0);
2696: zend_stack_push(&CG(bp_stack), (void *) &jmp_list, sizeof(zend_llist));
2697: zend_stack_top(&CG(bp_stack), (void **) &jmp_list_ptr);
2698: zend_llist_add_element(jmp_list_ptr, &jmp_op_number);
2699:
1.1.1.2 misho 2700: zend_add_catch_element(try_token->u.op.opline_num, get_next_op_number(CG(active_op_array)) TSRMLS_CC);
1.1 misho 2701: }
2702: /* }}} */
2703:
2704: void zend_do_mark_last_catch(const znode *first_catch, const znode *last_additional_catch TSRMLS_DC) /* {{{ */
2705: {
2706: CG(active_op_array)->last--;
2707: zend_do_if_end(TSRMLS_C);
1.1.1.2 misho 2708: if (last_additional_catch->u.op.opline_num == -1) {
2709: CG(active_op_array)->opcodes[first_catch->u.op.opline_num].result.num = 1;
2710: CG(active_op_array)->opcodes[first_catch->u.op.opline_num].extended_value = get_next_op_number(CG(active_op_array));
1.1 misho 2711: } else {
1.1.1.2 misho 2712: CG(active_op_array)->opcodes[last_additional_catch->u.op.opline_num].result.num = 1;
2713: CG(active_op_array)->opcodes[last_additional_catch->u.op.opline_num].extended_value = get_next_op_number(CG(active_op_array));
1.1 misho 2714: }
2715: DEC_BPC(CG(active_op_array));
2716: }
2717: /* }}} */
2718:
2719: void zend_do_try(znode *try_token TSRMLS_DC) /* {{{ */
2720: {
1.1.1.2 misho 2721: try_token->u.op.opline_num = zend_add_try_element(get_next_op_number(CG(active_op_array)) TSRMLS_CC);
1.1 misho 2722: INC_BPC(CG(active_op_array));
2723: }
2724: /* }}} */
2725:
1.1.1.2 misho 2726: void zend_do_begin_catch(znode *try_token, znode *class_name, znode *catch_var, znode *first_catch TSRMLS_DC) /* {{{ */
1.1 misho 2727: {
2728: long catch_op_number;
2729: zend_op *opline;
2730: znode catch_class;
2731:
1.1.1.2 misho 2732: if (class_name->op_type == IS_CONST &&
2733: ZEND_FETCH_CLASS_DEFAULT == zend_get_class_fetch_type(Z_STRVAL(class_name->u.constant), Z_STRLEN(class_name->u.constant))) {
2734: zend_resolve_class_name(class_name, ZEND_FETCH_CLASS_GLOBAL, 1 TSRMLS_CC);
2735: catch_class = *class_name;
2736: } else {
2737: zend_error(E_COMPILE_ERROR, "Bad class name in the catch statement");
1.1 misho 2738: }
2739:
1.1.1.2 misho 2740: catch_op_number = get_next_op_number(CG(active_op_array));
1.1 misho 2741: if (first_catch) {
1.1.1.2 misho 2742: first_catch->u.op.opline_num = catch_op_number;
1.1 misho 2743: }
2744:
2745: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2746: opline->opcode = ZEND_CATCH;
1.1.1.2 misho 2747: opline->op1_type = IS_CONST;
2748: opline->op1.constant = zend_add_class_name_literal(CG(active_op_array), &catch_class.u.constant TSRMLS_CC);
2749: opline->op2_type = IS_CV;
2750: opline->op2.var = lookup_cv(CG(active_op_array), catch_var->u.constant.value.str.val, catch_var->u.constant.value.str.len, 0 TSRMLS_CC);
2751: Z_STRVAL(catch_var->u.constant) = (char*)CG(active_op_array)->vars[opline->op2.var].name;
2752: opline->result.num = 0; /* 1 means it's the last catch in the block */
1.1 misho 2753:
1.1.1.2 misho 2754: try_token->u.op.opline_num = catch_op_number;
1.1 misho 2755: }
2756: /* }}} */
2757:
2758: void zend_do_end_catch(const znode *try_token TSRMLS_DC) /* {{{ */
2759: {
2760: int jmp_op_number = get_next_op_number(CG(active_op_array));
2761: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2762: zend_llist *jmp_list_ptr;
2763:
2764: opline->opcode = ZEND_JMP;
2765: SET_UNUSED(opline->op1);
2766: SET_UNUSED(opline->op2);
2767: /* save for backpatching */
2768:
2769: zend_stack_top(&CG(bp_stack), (void **) &jmp_list_ptr);
2770: zend_llist_add_element(jmp_list_ptr, &jmp_op_number);
2771:
1.1.1.2 misho 2772: CG(active_op_array)->opcodes[try_token->u.op.opline_num].extended_value = get_next_op_number(CG(active_op_array));
1.1 misho 2773: }
2774: /* }}} */
2775:
2776: void zend_do_throw(const znode *expr TSRMLS_DC) /* {{{ */
2777: {
2778: zend_op *opline;
2779:
2780: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2781: opline->opcode = ZEND_THROW;
1.1.1.2 misho 2782: SET_NODE(opline->op1, expr);
1.1 misho 2783: SET_UNUSED(opline->op2);
2784: }
2785: /* }}} */
2786:
2787: ZEND_API void function_add_ref(zend_function *function) /* {{{ */
2788: {
2789: if (function->type == ZEND_USER_FUNCTION) {
2790: zend_op_array *op_array = &function->op_array;
2791:
2792: (*op_array->refcount)++;
2793: if (op_array->static_variables) {
2794: HashTable *static_variables = op_array->static_variables;
2795: zval *tmp_zval;
2796:
2797: ALLOC_HASHTABLE(op_array->static_variables);
2798: zend_hash_init(op_array->static_variables, zend_hash_num_elements(static_variables), NULL, ZVAL_PTR_DTOR, 0);
2799: zend_hash_copy(op_array->static_variables, static_variables, (copy_ctor_func_t) zval_add_ref, (void *) &tmp_zval, sizeof(zval *));
2800: }
1.1.1.2 misho 2801: op_array->run_time_cache = NULL;
1.1 misho 2802: }
2803: }
2804: /* }}} */
2805:
2806: static void do_inherit_parent_constructor(zend_class_entry *ce) /* {{{ */
2807: {
1.1.1.2 misho 2808: zend_function *function, *new_function;
1.1 misho 2809:
2810: if (!ce->parent) {
2811: return;
2812: }
2813:
2814: /* You cannot change create_object */
2815: ce->create_object = ce->parent->create_object;
2816:
2817: /* Inherit special functions if needed */
2818: if (!ce->get_iterator) {
2819: ce->get_iterator = ce->parent->get_iterator;
2820: }
2821: if (!ce->iterator_funcs.funcs) {
2822: ce->iterator_funcs.funcs = ce->parent->iterator_funcs.funcs;
2823: }
2824: if (!ce->__get) {
2825: ce->__get = ce->parent->__get;
2826: }
2827: if (!ce->__set) {
2828: ce->__set = ce->parent->__set;
2829: }
2830: if (!ce->__unset) {
2831: ce->__unset = ce->parent->__unset;
2832: }
2833: if (!ce->__isset) {
2834: ce->__isset = ce->parent->__isset;
2835: }
2836: if (!ce->__call) {
2837: ce->__call = ce->parent->__call;
2838: }
2839: if (!ce->__callstatic) {
2840: ce->__callstatic = ce->parent->__callstatic;
2841: }
2842: if (!ce->__tostring) {
2843: ce->__tostring = ce->parent->__tostring;
2844: }
2845: if (!ce->clone) {
2846: ce->clone = ce->parent->clone;
2847: }
2848: if(!ce->serialize) {
2849: ce->serialize = ce->parent->serialize;
2850: }
2851: if(!ce->unserialize) {
2852: ce->unserialize = ce->parent->unserialize;
2853: }
2854: if (!ce->destructor) {
2855: ce->destructor = ce->parent->destructor;
2856: }
2857: if (ce->constructor) {
2858: if (ce->parent->constructor && ce->parent->constructor->common.fn_flags & ZEND_ACC_FINAL) {
2859: zend_error(E_ERROR, "Cannot override final %s::%s() with %s::%s()",
2860: ce->parent->name, ce->parent->constructor->common.function_name,
2861: ce->name, ce->constructor->common.function_name
2862: );
2863: }
2864: return;
2865: }
2866:
2867: if (zend_hash_find(&ce->parent->function_table, ZEND_CONSTRUCTOR_FUNC_NAME, sizeof(ZEND_CONSTRUCTOR_FUNC_NAME), (void **)&function)==SUCCESS) {
2868: /* inherit parent's constructor */
1.1.1.2 misho 2869: zend_hash_update(&ce->function_table, ZEND_CONSTRUCTOR_FUNC_NAME, sizeof(ZEND_CONSTRUCTOR_FUNC_NAME), function, sizeof(zend_function), (void**)&new_function);
2870: function_add_ref(new_function);
1.1 misho 2871: } else {
2872: /* Don't inherit the old style constructor if we already have the new style constructor */
2873: char *lc_class_name;
2874: char *lc_parent_class_name;
2875:
2876: lc_class_name = zend_str_tolower_dup(ce->name, ce->name_length);
2877: if (!zend_hash_exists(&ce->function_table, lc_class_name, ce->name_length+1)) {
2878: lc_parent_class_name = zend_str_tolower_dup(ce->parent->name, ce->parent->name_length);
2879: if (!zend_hash_exists(&ce->function_table, lc_parent_class_name, ce->parent->name_length+1) &&
2880: zend_hash_find(&ce->parent->function_table, lc_parent_class_name, ce->parent->name_length+1, (void **)&function)==SUCCESS) {
2881: if (function->common.fn_flags & ZEND_ACC_CTOR) {
2882: /* inherit parent's constructor */
1.1.1.2 misho 2883: zend_hash_update(&ce->function_table, lc_parent_class_name, ce->parent->name_length+1, function, sizeof(zend_function), (void**)&new_function);
2884: function_add_ref(new_function);
1.1 misho 2885: }
2886: }
2887: efree(lc_parent_class_name);
2888: }
2889: efree(lc_class_name);
2890: }
2891: ce->constructor = ce->parent->constructor;
2892: }
2893: /* }}} */
2894:
2895: char *zend_visibility_string(zend_uint fn_flags) /* {{{ */
2896: {
2897: if (fn_flags & ZEND_ACC_PRIVATE) {
2898: return "private";
2899: }
2900: if (fn_flags & ZEND_ACC_PROTECTED) {
2901: return "protected";
2902: }
2903: if (fn_flags & ZEND_ACC_PUBLIC) {
2904: return "public";
2905: }
2906: return "";
2907: }
2908: /* }}} */
2909:
2910: static void do_inherit_method(zend_function *function) /* {{{ */
2911: {
2912: /* The class entry of the derived function intentionally remains the same
2913: * as that of the parent class. That allows us to know in which context
2914: * we're running, and handle private method calls properly.
2915: */
2916: function_add_ref(function);
2917: }
2918: /* }}} */
2919:
2920: static zend_bool zend_do_perform_implementation_check(const zend_function *fe, const zend_function *proto TSRMLS_DC) /* {{{ */
2921: {
2922: zend_uint i;
2923:
2924: /* If it's a user function then arg_info == NULL means we don't have any parameters but
2925: * we still need to do the arg number checks. We are only willing to ignore this for internal
2926: * functions because extensions don't always define arg_info.
2927: */
2928: if (!proto || (!proto->common.arg_info && proto->common.type != ZEND_USER_FUNCTION)) {
2929: return 1;
2930: }
2931:
1.1.1.2 misho 2932: /* Checks for constructors only if they are declared in an interface,
2933: * or explicitly marked as abstract
2934: */
2935: if ((fe->common.fn_flags & ZEND_ACC_CTOR)
2936: && ((proto->common.scope->ce_flags & ZEND_ACC_INTERFACE) == 0
2937: && (proto->common.fn_flags & ZEND_ACC_ABSTRACT) == 0)) {
1.1 misho 2938: return 1;
2939: }
2940:
1.1.1.3 misho 2941: /* If both methods are private do not enforce a signature */
2942: if ((fe->common.fn_flags & ZEND_ACC_PRIVATE) && (proto->common.fn_flags & ZEND_ACC_PRIVATE)) {
2943: return 1;
2944: }
2945:
1.1 misho 2946: /* check number of arguments */
2947: if (proto->common.required_num_args < fe->common.required_num_args
2948: || proto->common.num_args > fe->common.num_args) {
2949: return 0;
2950: }
2951:
2952: if (fe->common.type != ZEND_USER_FUNCTION
1.1.1.2 misho 2953: && (proto->common.fn_flags & ZEND_ACC_PASS_REST_BY_REFERENCE) != 0
2954: && (fe->common.fn_flags & ZEND_ACC_PASS_REST_BY_REFERENCE) == 0) {
1.1 misho 2955: return 0;
2956: }
2957:
2958: /* by-ref constraints on return values are covariant */
1.1.1.2 misho 2959: if ((proto->common.fn_flags & ZEND_ACC_RETURN_REFERENCE)
2960: && !(fe->common.fn_flags & ZEND_ACC_RETURN_REFERENCE)) {
1.1 misho 2961: return 0;
2962: }
2963:
2964: for (i=0; i < proto->common.num_args; i++) {
2965: if (ZEND_LOG_XOR(fe->common.arg_info[i].class_name, proto->common.arg_info[i].class_name)) {
2966: /* Only one has a type hint and the other one doesn't */
2967: return 0;
2968: }
2969:
1.1.1.2 misho 2970: if (fe->common.arg_info[i].class_name) {
2971: const char *fe_class_name, *proto_class_name;
2972: zend_uint fe_class_name_len, proto_class_name_len;
2973:
2974: if (!strcasecmp(fe->common.arg_info[i].class_name, "parent") && proto->common.scope) {
2975: fe_class_name = proto->common.scope->name;
2976: fe_class_name_len = proto->common.scope->name_length;
2977: } else if (!strcasecmp(fe->common.arg_info[i].class_name, "self") && fe->common.scope) {
2978: fe_class_name = fe->common.scope->name;
2979: fe_class_name_len = fe->common.scope->name_length;
2980: } else {
2981: fe_class_name = fe->common.arg_info[i].class_name;
2982: fe_class_name_len = fe->common.arg_info[i].class_name_len;
2983: }
2984:
2985: if (!strcasecmp(proto->common.arg_info[i].class_name, "parent") && proto->common.scope && proto->common.scope->parent) {
2986: proto_class_name = proto->common.scope->parent->name;
2987: proto_class_name_len = proto->common.scope->parent->name_length;
2988: } else if (!strcasecmp(proto->common.arg_info[i].class_name, "self") && proto->common.scope) {
2989: proto_class_name = proto->common.scope->name;
2990: proto_class_name_len = proto->common.scope->name_length;
2991: } else {
2992: proto_class_name = proto->common.arg_info[i].class_name;
2993: proto_class_name_len = proto->common.arg_info[i].class_name_len;
2994: }
2995:
2996: if (strcasecmp(fe_class_name, proto_class_name)!=0) {
2997: const char *colon;
2998:
2999: if (fe->common.type != ZEND_USER_FUNCTION) {
1.1 misho 3000: return 0;
1.1.1.2 misho 3001: } else if (strchr(proto_class_name, '\\') != NULL ||
3002: (colon = zend_memrchr(fe_class_name, '\\', fe_class_name_len)) == NULL ||
3003: strcasecmp(colon+1, proto_class_name) != 0) {
3004: zend_class_entry **fe_ce, **proto_ce;
3005: int found, found2;
3006:
3007: found = zend_lookup_class(fe_class_name, fe_class_name_len, &fe_ce TSRMLS_CC);
3008: found2 = zend_lookup_class(proto_class_name, proto_class_name_len, &proto_ce TSRMLS_CC);
3009:
3010: /* Check for class alias */
3011: if (found != SUCCESS || found2 != SUCCESS ||
3012: (*fe_ce)->type == ZEND_INTERNAL_CLASS ||
3013: (*proto_ce)->type == ZEND_INTERNAL_CLASS ||
3014: *fe_ce != *proto_ce) {
3015: return 0;
3016: }
1.1 misho 3017: }
1.1.1.2 misho 3018: }
3019: }
3020: if (fe->common.arg_info[i].type_hint != proto->common.arg_info[i].type_hint) {
3021: /* Incompatible type hint */
1.1 misho 3022: return 0;
3023: }
3024:
3025: /* by-ref constraints on arguments are invariant */
3026: if (fe->common.arg_info[i].pass_by_reference != proto->common.arg_info[i].pass_by_reference) {
3027: return 0;
3028: }
3029: }
3030:
1.1.1.2 misho 3031: if (proto->common.fn_flags & ZEND_ACC_PASS_REST_BY_REFERENCE) {
1.1 misho 3032: for (i=proto->common.num_args; i < fe->common.num_args; i++) {
3033: if (!fe->common.arg_info[i].pass_by_reference) {
3034: return 0;
3035: }
3036: }
3037: }
3038: return 1;
3039: }
3040: /* }}} */
3041:
1.1.1.2 misho 3042: #define REALLOC_BUF_IF_EXCEED(buf, offset, length, size) \
3043: if (UNEXPECTED(offset - buf + size >= length)) { \
3044: length += size + 1; \
3045: buf = erealloc(buf, length); \
3046: }
3047:
3048: static char * zend_get_function_declaration(zend_function *fptr TSRMLS_DC) /* {{{ */
1.1 misho 3049: {
1.1.1.2 misho 3050: char *offset, *buf;
3051: zend_uint length = 1024;
1.1 misho 3052:
1.1.1.2 misho 3053: offset = buf = (char *)emalloc(length * sizeof(char));
3054: if (fptr->op_array.fn_flags & ZEND_ACC_RETURN_REFERENCE) {
3055: *(offset++) = '&';
3056: *(offset++) = ' ';
3057: }
3058:
3059: if (fptr->common.scope) {
3060: memcpy(offset, fptr->common.scope->name, fptr->common.scope->name_length);
3061: offset += fptr->common.scope->name_length;
3062: *(offset++) = ':';
3063: *(offset++) = ':';
3064: }
3065:
3066: {
3067: size_t name_len = strlen(fptr->common.function_name);
3068: REALLOC_BUF_IF_EXCEED(buf, offset, length, name_len);
3069: memcpy(offset, fptr->common.function_name, name_len);
3070: offset += name_len;
3071: }
3072:
3073: *(offset++) = '(';
3074: if (fptr->common.arg_info) {
3075: zend_uint i, required;
3076: zend_arg_info *arg_info = fptr->common.arg_info;
3077:
3078: required = fptr->common.required_num_args;
3079: for (i = 0; i < fptr->common.num_args;) {
3080: if (arg_info->class_name) {
3081: const char *class_name;
3082: zend_uint class_name_len;
3083: if (!strcasecmp(arg_info->class_name, "self") && fptr->common.scope ) {
3084: class_name = fptr->common.scope->name;
3085: class_name_len = fptr->common.scope->name_length;
3086: } else if (!strcasecmp(arg_info->class_name, "parent") && fptr->common.scope->parent) {
3087: class_name = fptr->common.scope->parent->name;
3088: class_name_len = fptr->common.scope->parent->name_length;
3089: } else {
3090: class_name = arg_info->class_name;
3091: class_name_len = arg_info->class_name_len;
3092: }
3093: REALLOC_BUF_IF_EXCEED(buf, offset, length, class_name_len);
3094: memcpy(offset, class_name, class_name_len);
3095: offset += class_name_len;
3096: *(offset++) = ' ';
3097: } else if (arg_info->type_hint) {
3098: zend_uint type_name_len;
3099: char *type_name = zend_get_type_by_const(arg_info->type_hint);
3100: type_name_len = strlen(type_name);
3101: REALLOC_BUF_IF_EXCEED(buf, offset, length, type_name_len);
3102: memcpy(offset, type_name, type_name_len);
3103: offset += type_name_len;
3104: *(offset++) = ' ';
3105: }
3106:
3107: if (arg_info->pass_by_reference) {
3108: *(offset++) = '&';
3109: }
3110: *(offset++) = '$';
3111:
3112: if (arg_info->name) {
3113: REALLOC_BUF_IF_EXCEED(buf, offset, length, arg_info->name_len);
3114: memcpy(offset, arg_info->name, arg_info->name_len);
3115: offset += arg_info->name_len;
3116: } else {
3117: zend_uint idx = i;
3118: memcpy(offset, "param", 5);
3119: offset += 5;
3120: do {
3121: *(offset++) = (char) (idx % 10) + '0';
3122: idx /= 10;
3123: } while (idx > 0);
3124: }
3125: if (i >= required) {
3126: *(offset++) = ' ';
3127: *(offset++) = '=';
3128: *(offset++) = ' ';
3129: if (fptr->type == ZEND_USER_FUNCTION) {
3130: zend_op *precv = NULL;
3131: {
3132: zend_uint idx = i;
3133: zend_op *op = ((zend_op_array *)fptr)->opcodes;
3134: zend_op *end = op + ((zend_op_array *)fptr)->last;
3135:
3136: ++idx;
3137: while (op < end) {
3138: if ((op->opcode == ZEND_RECV || op->opcode == ZEND_RECV_INIT)
3139: && op->op1.num == (long)idx)
3140: {
3141: precv = op;
3142: }
3143: ++op;
3144: }
3145: }
3146: if (precv && precv->opcode == ZEND_RECV_INIT && precv->op2_type != IS_UNUSED) {
3147: zval *zv, zv_copy;
3148: int use_copy;
3149: ALLOC_ZVAL(zv);
3150: *zv = *precv->op2.zv;
3151: zval_copy_ctor(zv);
3152: INIT_PZVAL(zv);
3153: zval_update_constant_ex(&zv, (void*)1, fptr->common.scope TSRMLS_CC);
3154: if (Z_TYPE_P(zv) == IS_BOOL) {
3155: if (Z_LVAL_P(zv)) {
3156: memcpy(offset, "true", 4);
3157: offset += 4;
3158: } else {
3159: memcpy(offset, "false", 5);
3160: offset += 5;
3161: }
3162: } else if (Z_TYPE_P(zv) == IS_NULL) {
3163: memcpy(offset, "NULL", 4);
3164: offset += 4;
3165: } else if (Z_TYPE_P(zv) == IS_STRING) {
3166: *(offset++) = '\'';
3167: REALLOC_BUF_IF_EXCEED(buf, offset, length, MIN(Z_STRLEN_P(zv), 10));
3168: memcpy(offset, Z_STRVAL_P(zv), MIN(Z_STRLEN_P(zv), 10));
3169: offset += MIN(Z_STRLEN_P(zv), 10);
3170: if (Z_STRLEN_P(zv) > 10) {
3171: *(offset++) = '.';
3172: *(offset++) = '.';
3173: *(offset++) = '.';
3174: }
3175: *(offset++) = '\'';
3176: } else if (Z_TYPE_P(zv) == IS_ARRAY) {
3177: memcpy(offset, "Array", 5);
3178: offset += 5;
3179: } else {
3180: zend_make_printable_zval(zv, &zv_copy, &use_copy);
3181: REALLOC_BUF_IF_EXCEED(buf, offset, length, Z_STRLEN(zv_copy));
3182: memcpy(offset, Z_STRVAL(zv_copy), Z_STRLEN(zv_copy));
3183: offset += Z_STRLEN(zv_copy);
3184: if (use_copy) {
3185: zval_dtor(&zv_copy);
3186: }
3187: }
3188: zval_ptr_dtor(&zv);
3189: }
3190: } else {
3191: memcpy(offset, "NULL", 4);
3192: offset += 4;
3193: }
3194: }
3195:
3196: if (++i < fptr->common.num_args) {
3197: *(offset++) = ',';
3198: *(offset++) = ' ';
3199: }
3200: arg_info++;
3201: REALLOC_BUF_IF_EXCEED(buf, offset, length, 32);
1.1 misho 3202: }
3203: }
1.1.1.2 misho 3204: *(offset++) = ')';
3205: *offset = '\0';
3206:
3207: return buf;
3208: }
3209: /* }}} */
3210:
3211: static void do_inheritance_check_on_method(zend_function *child, zend_function *parent TSRMLS_DC) /* {{{ */
3212: {
3213: zend_uint child_flags;
3214: zend_uint parent_flags = parent->common.fn_flags;
1.1 misho 3215:
3216: if ((parent->common.scope->ce_flags & ZEND_ACC_INTERFACE) == 0
3217: && parent->common.fn_flags & ZEND_ACC_ABSTRACT
3218: && parent->common.scope != (child->common.prototype ? child->common.prototype->common.scope : child->common.scope)
3219: && child->common.fn_flags & (ZEND_ACC_ABSTRACT|ZEND_ACC_IMPLEMENTED_ABSTRACT)) {
3220: zend_error(E_COMPILE_ERROR, "Can't inherit abstract function %s::%s() (previously declared abstract in %s)",
3221: parent->common.scope->name,
3222: child->common.function_name,
3223: child->common.prototype ? child->common.prototype->common.scope->name : child->common.scope->name);
3224: }
3225:
3226: if (parent_flags & ZEND_ACC_FINAL) {
3227: zend_error(E_COMPILE_ERROR, "Cannot override final method %s::%s()", ZEND_FN_SCOPE_NAME(parent), child->common.function_name);
3228: }
3229:
3230: child_flags = child->common.fn_flags;
3231: /* You cannot change from static to non static and vice versa.
3232: */
3233: if ((child_flags & ZEND_ACC_STATIC) != (parent_flags & ZEND_ACC_STATIC)) {
3234: if (child->common.fn_flags & ZEND_ACC_STATIC) {
3235: zend_error(E_COMPILE_ERROR, "Cannot make non static method %s::%s() static in class %s", ZEND_FN_SCOPE_NAME(parent), child->common.function_name, ZEND_FN_SCOPE_NAME(child));
3236: } else {
3237: zend_error(E_COMPILE_ERROR, "Cannot make static method %s::%s() non static in class %s", ZEND_FN_SCOPE_NAME(parent), child->common.function_name, ZEND_FN_SCOPE_NAME(child));
3238: }
3239: }
3240:
3241: /* Disallow making an inherited method abstract. */
3242: if ((child_flags & ZEND_ACC_ABSTRACT) && !(parent_flags & ZEND_ACC_ABSTRACT)) {
3243: zend_error(E_COMPILE_ERROR, "Cannot make non abstract method %s::%s() abstract in class %s", ZEND_FN_SCOPE_NAME(parent), child->common.function_name, ZEND_FN_SCOPE_NAME(child));
3244: }
3245:
3246: if (parent_flags & ZEND_ACC_CHANGED) {
3247: child->common.fn_flags |= ZEND_ACC_CHANGED;
3248: } else {
3249: /* Prevent derived classes from restricting access that was available in parent classes
3250: */
3251: if ((child_flags & ZEND_ACC_PPP_MASK) > (parent_flags & ZEND_ACC_PPP_MASK)) {
3252: zend_error(E_COMPILE_ERROR, "Access level to %s::%s() must be %s (as in class %s)%s", ZEND_FN_SCOPE_NAME(child), child->common.function_name, zend_visibility_string(parent_flags), ZEND_FN_SCOPE_NAME(parent), (parent_flags&ZEND_ACC_PUBLIC) ? "" : " or weaker");
3253: } else if (((child_flags & ZEND_ACC_PPP_MASK) < (parent_flags & ZEND_ACC_PPP_MASK))
3254: && ((parent_flags & ZEND_ACC_PPP_MASK) & ZEND_ACC_PRIVATE)) {
3255: child->common.fn_flags |= ZEND_ACC_CHANGED;
3256: }
3257: }
3258:
3259: if (parent_flags & ZEND_ACC_PRIVATE) {
3260: child->common.prototype = NULL;
3261: } else if (parent_flags & ZEND_ACC_ABSTRACT) {
3262: child->common.fn_flags |= ZEND_ACC_IMPLEMENTED_ABSTRACT;
3263: child->common.prototype = parent;
3264: } else if (!(parent->common.fn_flags & ZEND_ACC_CTOR) || (parent->common.prototype && (parent->common.prototype->common.scope->ce_flags & ZEND_ACC_INTERFACE))) {
3265: /* ctors only have a prototype if it comes from an interface */
3266: child->common.prototype = parent->common.prototype ? parent->common.prototype : parent;
3267: }
3268:
3269: if (child->common.prototype && (child->common.prototype->common.fn_flags & ZEND_ACC_ABSTRACT)) {
3270: if (!zend_do_perform_implementation_check(child, child->common.prototype TSRMLS_CC)) {
1.1.1.2 misho 3271: zend_error(E_COMPILE_ERROR, "Declaration of %s::%s() must be compatible with %s", ZEND_FN_SCOPE_NAME(child), child->common.function_name, zend_get_function_declaration(child->common.prototype TSRMLS_CC));
1.1 misho 3272: }
3273: } else if (EG(error_reporting) & E_STRICT || EG(user_error_handler)) { /* Check E_STRICT (or custom error handler) before the check so that we save some time */
3274: if (!zend_do_perform_implementation_check(child, parent TSRMLS_CC)) {
1.1.1.3 misho 3275: char *method_prototype = zend_get_function_declaration(parent TSRMLS_CC);
1.1.1.2 misho 3276: zend_error(E_STRICT, "Declaration of %s::%s() should be compatible with %s", ZEND_FN_SCOPE_NAME(child), child->common.function_name, method_prototype);
3277: efree(method_prototype);
1.1 misho 3278: }
3279: }
1.1.1.2 misho 3280: }
3281: /* }}} */
3282:
3283: static zend_bool do_inherit_method_check(HashTable *child_function_table, zend_function *parent, const zend_hash_key *hash_key, zend_class_entry *child_ce) /* {{{ */
3284: {
3285: zend_uint parent_flags = parent->common.fn_flags;
3286: zend_function *child;
3287: TSRMLS_FETCH();
1.1 misho 3288:
1.1.1.2 misho 3289: if (zend_hash_quick_find(child_function_table, hash_key->arKey, hash_key->nKeyLength, hash_key->h, (void **) &child)==FAILURE) {
3290: if (parent_flags & (ZEND_ACC_ABSTRACT)) {
3291: child_ce->ce_flags |= ZEND_ACC_IMPLICIT_ABSTRACT_CLASS;
3292: }
3293: return 1; /* method doesn't exist in child, copy from parent */
3294: }
3295:
3296: do_inheritance_check_on_method(child, parent TSRMLS_CC);
3297:
1.1 misho 3298: return 0;
3299: }
3300: /* }}} */
3301:
3302: static zend_bool do_inherit_property_access_check(HashTable *target_ht, zend_property_info *parent_info, const zend_hash_key *hash_key, zend_class_entry *ce) /* {{{ */
3303: {
3304: zend_property_info *child_info;
3305: zend_class_entry *parent_ce = ce->parent;
3306:
3307: if (parent_info->flags & (ZEND_ACC_PRIVATE|ZEND_ACC_SHADOW)) {
3308: if (zend_hash_quick_find(&ce->properties_info, hash_key->arKey, hash_key->nKeyLength, hash_key->h, (void **) &child_info)==SUCCESS) {
3309: child_info->flags |= ZEND_ACC_CHANGED;
3310: } else {
3311: zend_hash_quick_update(&ce->properties_info, hash_key->arKey, hash_key->nKeyLength, hash_key->h, parent_info, sizeof(zend_property_info), (void **) &child_info);
3312: if(ce->type & ZEND_INTERNAL_CLASS) {
3313: zend_duplicate_property_info_internal(child_info);
3314: } else {
3315: zend_duplicate_property_info(child_info);
3316: }
3317: child_info->flags &= ~ZEND_ACC_PRIVATE; /* it's not private anymore */
3318: child_info->flags |= ZEND_ACC_SHADOW; /* but it's a shadow of private */
3319: }
3320: return 0; /* don't copy access information to child */
3321: }
3322:
3323: if (zend_hash_quick_find(&ce->properties_info, hash_key->arKey, hash_key->nKeyLength, hash_key->h, (void **) &child_info)==SUCCESS) {
3324: if ((parent_info->flags & ZEND_ACC_STATIC) != (child_info->flags & ZEND_ACC_STATIC)) {
3325: zend_error(E_COMPILE_ERROR, "Cannot redeclare %s%s::$%s as %s%s::$%s",
3326: (parent_info->flags & ZEND_ACC_STATIC) ? "static " : "non static ", parent_ce->name, hash_key->arKey,
3327: (child_info->flags & ZEND_ACC_STATIC) ? "static " : "non static ", ce->name, hash_key->arKey);
3328:
3329: }
3330:
3331: if(parent_info->flags & ZEND_ACC_CHANGED) {
3332: child_info->flags |= ZEND_ACC_CHANGED;
3333: }
3334:
3335: if ((child_info->flags & ZEND_ACC_PPP_MASK) > (parent_info->flags & ZEND_ACC_PPP_MASK)) {
3336: zend_error(E_COMPILE_ERROR, "Access level to %s::$%s must be %s (as in class %s)%s", ce->name, hash_key->arKey, zend_visibility_string(parent_info->flags), parent_ce->name, (parent_info->flags&ZEND_ACC_PUBLIC) ? "" : " or weaker");
1.1.1.2 misho 3337: } else if ((child_info->flags & ZEND_ACC_STATIC) == 0) {
1.1.1.3 misho 3338: zval_ptr_dtor(&(ce->default_properties_table[parent_info->offset]));
1.1.1.2 misho 3339: ce->default_properties_table[parent_info->offset] = ce->default_properties_table[child_info->offset];
3340: ce->default_properties_table[child_info->offset] = NULL;
3341: child_info->offset = parent_info->offset;
1.1 misho 3342: }
3343: return 0; /* Don't copy from parent */
3344: } else {
3345: return 1; /* Copy from parent */
3346: }
3347: }
3348: /* }}} */
3349:
3350: static inline void do_implement_interface(zend_class_entry *ce, zend_class_entry *iface TSRMLS_DC) /* {{{ */
3351: {
3352: if (!(ce->ce_flags & ZEND_ACC_INTERFACE) && iface->interface_gets_implemented && iface->interface_gets_implemented(iface, ce TSRMLS_CC) == FAILURE) {
3353: zend_error(E_CORE_ERROR, "Class %s could not implement interface %s", ce->name, iface->name);
3354: }
3355: if (ce == iface) {
3356: zend_error(E_ERROR, "Interface %s cannot implement itself", ce->name);
3357: }
3358: }
3359: /* }}} */
3360:
3361: ZEND_API void zend_do_inherit_interfaces(zend_class_entry *ce, const zend_class_entry *iface TSRMLS_DC) /* {{{ */
3362: {
3363: /* expects interface to be contained in ce's interface list already */
3364: zend_uint i, ce_num, if_num = iface->num_interfaces;
3365: zend_class_entry *entry;
3366:
3367: if (if_num==0) {
3368: return;
3369: }
3370: ce_num = ce->num_interfaces;
3371:
3372: if (ce->type == ZEND_INTERNAL_CLASS) {
3373: ce->interfaces = (zend_class_entry **) realloc(ce->interfaces, sizeof(zend_class_entry *) * (ce_num + if_num));
3374: } else {
3375: ce->interfaces = (zend_class_entry **) erealloc(ce->interfaces, sizeof(zend_class_entry *) * (ce_num + if_num));
3376: }
3377:
3378: /* Inherit the interfaces, only if they're not already inherited by the class */
3379: while (if_num--) {
3380: entry = iface->interfaces[if_num];
3381: for (i = 0; i < ce_num; i++) {
3382: if (ce->interfaces[i] == entry) {
3383: break;
3384: }
3385: }
3386: if (i == ce_num) {
3387: ce->interfaces[ce->num_interfaces++] = entry;
3388: }
3389: }
3390:
3391: /* and now call the implementing handlers */
3392: while (ce_num < ce->num_interfaces) {
3393: do_implement_interface(ce, ce->interfaces[ce_num++] TSRMLS_CC);
3394: }
3395: }
3396: /* }}} */
3397:
1.1.1.2 misho 3398: #ifdef ZTS
3399: static void zval_internal_ctor(zval **p) /* {{{ */
1.1 misho 3400: {
1.1.1.2 misho 3401: zval *orig_ptr = *p;
1.1 misho 3402:
1.1.1.2 misho 3403: ALLOC_ZVAL(*p);
3404: MAKE_COPY_ZVAL(&orig_ptr, *p);
1.1 misho 3405: }
3406: /* }}} */
3407:
1.1.1.2 misho 3408: # define zval_property_ctor(parent_ce, ce) \
3409: ((void (*)(void *)) (((parent_ce)->type != (ce)->type) ? zval_internal_ctor : zval_add_ref))
3410: #else
3411: # define zval_property_ctor(parent_ce, ce) \
3412: ((void (*)(void *)) zval_add_ref)
3413: #endif
1.1 misho 3414:
3415: ZEND_API void zend_do_inheritance(zend_class_entry *ce, zend_class_entry *parent_ce TSRMLS_DC) /* {{{ */
3416: {
1.1.1.2 misho 3417: zend_property_info *property_info;
3418:
1.1 misho 3419: if ((ce->ce_flags & ZEND_ACC_INTERFACE)
3420: && !(parent_ce->ce_flags & ZEND_ACC_INTERFACE)) {
3421: zend_error(E_COMPILE_ERROR, "Interface %s may not inherit from class (%s)", ce->name, parent_ce->name);
3422: }
3423: if (parent_ce->ce_flags & ZEND_ACC_FINAL_CLASS) {
3424: zend_error(E_COMPILE_ERROR, "Class %s may not inherit from final class (%s)", ce->name, parent_ce->name);
3425: }
3426:
3427: ce->parent = parent_ce;
3428: /* Copy serialize/unserialize callbacks */
3429: if (!ce->serialize) {
3430: ce->serialize = parent_ce->serialize;
3431: }
3432: if (!ce->unserialize) {
3433: ce->unserialize = parent_ce->unserialize;
3434: }
3435:
3436: /* Inherit interfaces */
3437: zend_do_inherit_interfaces(ce, parent_ce TSRMLS_CC);
3438:
3439: /* Inherit properties */
1.1.1.2 misho 3440: if (parent_ce->default_properties_count) {
3441: int i = ce->default_properties_count + parent_ce->default_properties_count;
3442:
3443: ce->default_properties_table = perealloc(ce->default_properties_table, sizeof(void*) * i, ce->type == ZEND_INTERNAL_CLASS);
3444: if (ce->default_properties_count) {
3445: while (i-- > parent_ce->default_properties_count) {
3446: ce->default_properties_table[i] = ce->default_properties_table[i - parent_ce->default_properties_count];
3447: }
3448: }
3449: for (i = 0; i < parent_ce->default_properties_count; i++) {
3450: ce->default_properties_table[i] = parent_ce->default_properties_table[i];
3451: if (ce->default_properties_table[i]) {
3452: #ifdef ZTS
3453: if (parent_ce->type != ce->type) {
3454: zval *p;
3455:
3456: ALLOC_ZVAL(p);
3457: MAKE_COPY_ZVAL(&ce->default_properties_table[i], p);
3458: ce->default_properties_table[i] = p;
3459: } else {
3460: Z_ADDREF_P(ce->default_properties_table[i]);
3461: }
3462: #else
3463: Z_ADDREF_P(ce->default_properties_table[i]);
3464: #endif
3465: }
3466: }
3467: ce->default_properties_count += parent_ce->default_properties_count;
3468: }
3469:
1.1 misho 3470: if (parent_ce->type != ce->type) {
3471: /* User class extends internal class */
3472: zend_update_class_constants(parent_ce TSRMLS_CC);
1.1.1.2 misho 3473: if (parent_ce->default_static_members_count) {
3474: int i = ce->default_static_members_count + parent_ce->default_static_members_count;
3475:
3476: ce->default_static_members_table = erealloc(ce->default_static_members_table, sizeof(void*) * i);
3477: if (ce->default_static_members_count) {
3478: while (i-- > parent_ce->default_static_members_count) {
3479: ce->default_static_members_table[i] = ce->default_static_members_table[i - parent_ce->default_static_members_count];
3480: }
3481: }
3482: for (i = 0; i < parent_ce->default_static_members_count; i++) {
3483: SEPARATE_ZVAL_TO_MAKE_IS_REF(&CE_STATIC_MEMBERS(parent_ce)[i]);
3484: ce->default_static_members_table[i] = CE_STATIC_MEMBERS(parent_ce)[i];
3485: Z_ADDREF_P(ce->default_static_members_table[i]);
3486: }
3487: ce->default_static_members_count += parent_ce->default_static_members_count;
3488: ce->static_members_table = ce->default_static_members_table;
3489: }
3490: } else {
3491: if (parent_ce->default_static_members_count) {
3492: int i = ce->default_static_members_count + parent_ce->default_static_members_count;
3493:
3494: ce->default_static_members_table = perealloc(ce->default_static_members_table, sizeof(void*) * i, ce->type == ZEND_INTERNAL_CLASS);
3495: if (ce->default_static_members_count) {
3496: while (i-- > parent_ce->default_static_members_count) {
3497: ce->default_static_members_table[i] = ce->default_static_members_table[i - parent_ce->default_static_members_count];
3498: }
3499: }
3500: for (i = 0; i < parent_ce->default_static_members_count; i++) {
3501: SEPARATE_ZVAL_TO_MAKE_IS_REF(&parent_ce->default_static_members_table[i]);
3502: ce->default_static_members_table[i] = parent_ce->default_static_members_table[i];
3503: Z_ADDREF_P(ce->default_static_members_table[i]);
3504: }
3505: ce->default_static_members_count += parent_ce->default_static_members_count;
3506: if (ce->type == ZEND_USER_CLASS) {
3507: ce->static_members_table = ce->default_static_members_table;
3508: }
3509: }
1.1 misho 3510: }
1.1.1.2 misho 3511:
3512: for (zend_hash_internal_pointer_reset(&ce->properties_info);
3513: zend_hash_get_current_data(&ce->properties_info, (void *) &property_info) == SUCCESS;
3514: zend_hash_move_forward(&ce->properties_info)) {
3515: if (property_info->ce == ce) {
3516: if (property_info->flags & ZEND_ACC_STATIC) {
3517: property_info->offset += parent_ce->default_static_members_count;
3518: } else {
3519: property_info->offset += parent_ce->default_properties_count;
3520: }
3521: }
3522: }
3523:
1.1 misho 3524: zend_hash_merge_ex(&ce->properties_info, &parent_ce->properties_info, (copy_ctor_func_t) (ce->type & ZEND_INTERNAL_CLASS ? zend_duplicate_property_info_internal : zend_duplicate_property_info), sizeof(zend_property_info), (merge_checker_func_t) do_inherit_property_access_check, ce);
3525:
3526: zend_hash_merge(&ce->constants_table, &parent_ce->constants_table, zval_property_ctor(parent_ce, ce), NULL, sizeof(zval *), 0);
3527: zend_hash_merge_ex(&ce->function_table, &parent_ce->function_table, (copy_ctor_func_t) do_inherit_method, sizeof(zend_function), (merge_checker_func_t) do_inherit_method_check, ce);
3528: do_inherit_parent_constructor(ce);
3529:
3530: if (ce->ce_flags & ZEND_ACC_IMPLICIT_ABSTRACT_CLASS && ce->type == ZEND_INTERNAL_CLASS) {
3531: ce->ce_flags |= ZEND_ACC_EXPLICIT_ABSTRACT_CLASS;
1.1.1.3 misho 3532: } else if (!(ce->ce_flags & (ZEND_ACC_IMPLEMENT_INTERFACES|ZEND_ACC_IMPLEMENT_TRAITS))) {
1.1 misho 3533: /* The verification will be done in runtime by ZEND_VERIFY_ABSTRACT_CLASS */
3534: zend_verify_abstract_class(ce TSRMLS_CC);
3535: }
1.1.1.2 misho 3536: ce->ce_flags |= parent_ce->ce_flags & ZEND_HAS_STATIC_IN_METHODS;
1.1 misho 3537: }
3538: /* }}} */
3539:
3540: static zend_bool do_inherit_constant_check(HashTable *child_constants_table, const zval **parent_constant, const zend_hash_key *hash_key, const zend_class_entry *iface) /* {{{ */
3541: {
3542: zval **old_constant;
3543:
3544: if (zend_hash_quick_find(child_constants_table, hash_key->arKey, hash_key->nKeyLength, hash_key->h, (void**)&old_constant) == SUCCESS) {
3545: if (*old_constant != *parent_constant) {
3546: zend_error(E_COMPILE_ERROR, "Cannot inherit previously-inherited or override constant %s from interface %s", hash_key->arKey, iface->name);
3547: }
3548: return 0;
3549: }
3550: return 1;
3551: }
3552: /* }}} */
3553:
3554: static int do_interface_constant_check(zval **val TSRMLS_DC, int num_args, va_list args, const zend_hash_key *key) /* {{{ */
3555: {
3556: zend_class_entry **iface = va_arg(args, zend_class_entry**);
3557:
3558: do_inherit_constant_check(&(*iface)->constants_table, (const zval **) val, key, *iface);
3559:
3560: return ZEND_HASH_APPLY_KEEP;
3561: }
3562: /* }}} */
3563:
3564: ZEND_API void zend_do_implement_interface(zend_class_entry *ce, zend_class_entry *iface TSRMLS_DC) /* {{{ */
3565: {
3566: zend_uint i, ignore = 0;
3567: zend_uint current_iface_num = ce->num_interfaces;
3568: zend_uint parent_iface_num = ce->parent ? ce->parent->num_interfaces : 0;
3569:
3570: for (i = 0; i < ce->num_interfaces; i++) {
3571: if (ce->interfaces[i] == NULL) {
3572: memmove(ce->interfaces + i, ce->interfaces + i + 1, sizeof(zend_class_entry*) * (--ce->num_interfaces - i));
3573: i--;
3574: } else if (ce->interfaces[i] == iface) {
3575: if (i < parent_iface_num) {
3576: ignore = 1;
3577: } else {
3578: zend_error(E_COMPILE_ERROR, "Class %s cannot implement previously implemented interface %s", ce->name, iface->name);
3579: }
3580: }
3581: }
3582: if (ignore) {
3583: /* Check for attempt to redeclare interface constants */
3584: zend_hash_apply_with_arguments(&ce->constants_table TSRMLS_CC, (apply_func_args_t) do_interface_constant_check, 1, &iface);
3585: } else {
3586: if (ce->num_interfaces >= current_iface_num) {
3587: if (ce->type == ZEND_INTERNAL_CLASS) {
3588: ce->interfaces = (zend_class_entry **) realloc(ce->interfaces, sizeof(zend_class_entry *) * (++current_iface_num));
3589: } else {
3590: ce->interfaces = (zend_class_entry **) erealloc(ce->interfaces, sizeof(zend_class_entry *) * (++current_iface_num));
3591: }
3592: }
3593: ce->interfaces[ce->num_interfaces++] = iface;
3594:
3595: zend_hash_merge_ex(&ce->constants_table, &iface->constants_table, (copy_ctor_func_t) zval_add_ref, sizeof(zval *), (merge_checker_func_t) do_inherit_constant_check, iface);
3596: zend_hash_merge_ex(&ce->function_table, &iface->function_table, (copy_ctor_func_t) do_inherit_method, sizeof(zend_function), (merge_checker_func_t) do_inherit_method_check, ce);
3597:
3598: do_implement_interface(ce, iface TSRMLS_CC);
3599: zend_do_inherit_interfaces(ce, iface TSRMLS_CC);
3600: }
3601: }
3602: /* }}} */
3603:
1.1.1.2 misho 3604: ZEND_API void zend_do_implement_trait(zend_class_entry *ce, zend_class_entry *trait TSRMLS_DC) /* {{{ */
3605: {
3606: zend_uint i, ignore = 0;
3607: zend_uint current_trait_num = ce->num_traits;
3608: zend_uint parent_trait_num = ce->parent ? ce->parent->num_traits : 0;
3609:
3610: for (i = 0; i < ce->num_traits; i++) {
3611: if (ce->traits[i] == NULL) {
3612: memmove(ce->traits + i, ce->traits + i + 1, sizeof(zend_class_entry*) * (--ce->num_traits - i));
3613: i--;
3614: } else if (ce->traits[i] == trait) {
3615: if (i < parent_trait_num) {
3616: ignore = 1;
3617: }
3618: }
3619: }
3620: if (!ignore) {
3621: if (ce->num_traits >= current_trait_num) {
3622: if (ce->type == ZEND_INTERNAL_CLASS) {
3623: ce->traits = (zend_class_entry **) realloc(ce->traits, sizeof(zend_class_entry *) * (++current_trait_num));
3624: } else {
3625: ce->traits = (zend_class_entry **) erealloc(ce->traits, sizeof(zend_class_entry *) * (++current_trait_num));
3626: }
3627: }
3628: ce->traits[ce->num_traits++] = trait;
3629: }
3630: }
3631: /* }}} */
3632:
3633: static zend_bool zend_traits_method_compatibility_check(zend_function *fn, zend_function *other_fn TSRMLS_DC) /* {{{ */
3634: {
3635: zend_uint fn_flags = fn->common.scope->ce_flags;
3636: zend_uint other_flags = other_fn->common.scope->ce_flags;
3637:
3638: return zend_do_perform_implementation_check(fn, other_fn TSRMLS_CC)
1.1.1.3 misho 3639: && ((other_fn->common.scope->ce_flags & ZEND_ACC_INTERFACE) || zend_do_perform_implementation_check(other_fn, fn TSRMLS_CC))
3640: && ((fn_flags & (ZEND_ACC_FINAL|ZEND_ACC_STATIC)) ==
3641: (other_flags & (ZEND_ACC_FINAL|ZEND_ACC_STATIC))); /* equal final and static qualifier */
1.1.1.2 misho 3642: }
3643: /* }}} */
3644:
3645: static void zend_add_magic_methods(zend_class_entry* ce, const char* mname, uint mname_len, zend_function* fe TSRMLS_DC) /* {{{ */
3646: {
3647: if (!strncmp(mname, ZEND_CLONE_FUNC_NAME, mname_len)) {
3648: ce->clone = fe; fe->common.fn_flags |= ZEND_ACC_CLONE;
3649: } else if (!strncmp(mname, ZEND_CONSTRUCTOR_FUNC_NAME, mname_len)) {
3650: if (ce->constructor) {
3651: zend_error(E_COMPILE_ERROR, "%s has colliding constructor definitions coming from traits", ce->name);
3652: }
3653: ce->constructor = fe; fe->common.fn_flags |= ZEND_ACC_CTOR;
3654: } else if (!strncmp(mname, ZEND_DESTRUCTOR_FUNC_NAME, mname_len)) {
3655: ce->destructor = fe; fe->common.fn_flags |= ZEND_ACC_DTOR;
3656: } else if (!strncmp(mname, ZEND_GET_FUNC_NAME, mname_len)) {
3657: ce->__get = fe;
3658: } else if (!strncmp(mname, ZEND_SET_FUNC_NAME, mname_len)) {
3659: ce->__set = fe;
3660: } else if (!strncmp(mname, ZEND_CALL_FUNC_NAME, mname_len)) {
3661: ce->__call = fe;
3662: } else if (!strncmp(mname, ZEND_UNSET_FUNC_NAME, mname_len)) {
3663: ce->__unset = fe;
3664: } else if (!strncmp(mname, ZEND_ISSET_FUNC_NAME, mname_len)) {
3665: ce->__isset = fe;
3666: } else if (!strncmp(mname, ZEND_CALLSTATIC_FUNC_NAME, mname_len)) {
3667: ce->__callstatic = fe;
3668: } else if (!strncmp(mname, ZEND_TOSTRING_FUNC_NAME, mname_len)) {
3669: ce->__tostring = fe;
3670: } else if (ce->name_length + 1 == mname_len) {
3671: char *lowercase_name = emalloc(ce->name_length + 1);
3672: zend_str_tolower_copy(lowercase_name, ce->name, ce->name_length);
3673: lowercase_name = (char*)zend_new_interned_string(lowercase_name, ce->name_length + 1, 1 TSRMLS_CC);
3674: if (!memcmp(mname, lowercase_name, mname_len)) {
3675: if (ce->constructor) {
3676: zend_error(E_COMPILE_ERROR, "%s has colliding constructor definitions coming from traits", ce->name);
3677: }
3678: ce->constructor = fe;
3679: fe->common.fn_flags |= ZEND_ACC_CTOR;
3680: }
3681: str_efree(lowercase_name);
3682: }
3683: }
3684: /* }}} */
3685:
1.1.1.3 misho 3686: static void zend_add_trait_method(zend_class_entry *ce, const char *name, const char *arKey, uint nKeyLength, zend_function *fn, HashTable **overriden TSRMLS_DC) /* {{{ */
1.1.1.2 misho 3687: {
1.1.1.3 misho 3688: zend_function *existing_fn = NULL;
3689: ulong h = zend_hash_func(arKey, nKeyLength);
1.1.1.2 misho 3690:
1.1.1.3 misho 3691: if (zend_hash_quick_find(&ce->function_table, arKey, nKeyLength, h, (void**) &existing_fn) == SUCCESS) {
3692: if (existing_fn->common.scope == ce) {
3693: /* members from the current class override trait methods */
3694: /* use temporary *overriden HashTable to detect hidden conflict */
3695: if (*overriden) {
3696: if (zend_hash_quick_find(*overriden, arKey, nKeyLength, h, (void**) &existing_fn) == SUCCESS) {
3697: if (existing_fn->common.fn_flags & ZEND_ACC_ABSTRACT) {
3698: /* Make sure the trait method is compatible with previosly declared abstract method */
3699: if (!zend_traits_method_compatibility_check(fn, existing_fn TSRMLS_CC)) {
3700: zend_error(E_COMPILE_ERROR, "Declaration of %s must be compatible with %s",
3701: zend_get_function_declaration(fn TSRMLS_CC),
3702: zend_get_function_declaration(existing_fn TSRMLS_CC));
3703: }
3704: } else if (fn->common.fn_flags & ZEND_ACC_ABSTRACT) {
3705: /* Make sure the abstract declaration is compatible with previous declaration */
3706: if (!zend_traits_method_compatibility_check(existing_fn, fn TSRMLS_CC)) {
3707: zend_error(E_COMPILE_ERROR, "Declaration of %s must be compatible with %s",
3708: zend_get_function_declaration(fn TSRMLS_CC),
3709: zend_get_function_declaration(existing_fn TSRMLS_CC));
3710: }
3711: return;
3712: }
3713: }
3714: } else {
3715: ALLOC_HASHTABLE(*overriden);
3716: zend_hash_init_ex(*overriden, 2, NULL, NULL, 0, 0);
1.1.1.2 misho 3717: }
1.1.1.3 misho 3718: zend_hash_quick_update(*overriden, arKey, nKeyLength, h, fn, sizeof(zend_function), (void**)&fn);
3719: return;
3720: } else if (existing_fn->common.fn_flags & ZEND_ACC_ABSTRACT) {
3721: /* Make sure the trait method is compatible with previosly declared abstract method */
3722: if (!zend_traits_method_compatibility_check(fn, existing_fn TSRMLS_CC)) {
3723: zend_error(E_COMPILE_ERROR, "Declaration of %s must be compatible with %s",
3724: zend_get_function_declaration(fn TSRMLS_CC),
3725: zend_get_function_declaration(existing_fn TSRMLS_CC));
3726: }
3727: } else if (fn->common.fn_flags & ZEND_ACC_ABSTRACT) {
3728: /* Make sure the abstract declaration is compatible with previous declaration */
3729: if (!zend_traits_method_compatibility_check(existing_fn, fn TSRMLS_CC)) {
3730: zend_error(E_COMPILE_ERROR, "Declaration of %s must be compatible with %s",
3731: zend_get_function_declaration(fn TSRMLS_CC),
3732: zend_get_function_declaration(existing_fn TSRMLS_CC));
3733: }
3734: return;
3735: } else if ((existing_fn->common.scope->ce_flags & ZEND_ACC_TRAIT) == ZEND_ACC_TRAIT) {
3736: /* two trais can't define the same non-abstract method */
3737: #if 1
3738: zend_error(E_COMPILE_ERROR, "Trait method %s has not been applied, because there are collisions with other trait methods on %s",
3739: name, ce->name);
3740: #else /* TODO: better errot message */
3741: zend_error(E_COMPILE_ERROR, "Trait method %s::%s has not been applied as %s::%s, because of collision with %s::%s",
3742: fn->common.scope->name, fn->common.function_name,
3743: ce->name, name,
3744: existing_fn->common.scope->name, existing_fn->common.function_name);
3745: #endif
3746: } else {
3747: /* inherited members are overridden by members inserted by traits */
3748: /* check whether the trait method fulfills the inheritance requirements */
1.1.1.2 misho 3749: do_inheritance_check_on_method(fn, existing_fn TSRMLS_CC);
3750: }
1.1.1.3 misho 3751: }
1.1.1.2 misho 3752:
1.1.1.3 misho 3753: function_add_ref(fn);
3754: zend_hash_quick_update(&ce->function_table, arKey, nKeyLength, h, fn, sizeof(zend_function), (void**)&fn);
3755: zend_add_magic_methods(ce, arKey, nKeyLength, fn TSRMLS_CC);
3756: }
3757: /* }}} */
1.1.1.2 misho 3758:
1.1.1.3 misho 3759: static int zend_fixup_trait_method(zend_function *fn, zend_class_entry *ce TSRMLS_DC) /* {{{ */
3760: {
3761: if ((fn->common.scope->ce_flags & ZEND_ACC_TRAIT) == ZEND_ACC_TRAIT) {
3762:
3763: fn->common.scope = ce;
1.1.1.2 misho 3764:
3765: if (fn->common.fn_flags & ZEND_ACC_ABSTRACT) {
3766: ce->ce_flags |= ZEND_ACC_IMPLICIT_ABSTRACT_CLASS;
3767: }
3768: if (fn->op_array.static_variables) {
3769: ce->ce_flags |= ZEND_HAS_STATIC_IN_METHODS;
3770: }
3771: }
1.1.1.3 misho 3772: return ZEND_HASH_APPLY_KEEP;
1.1.1.2 misho 3773: }
3774: /* }}} */
3775:
3776: static int zend_traits_copy_functions(zend_function *fn TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key) /* {{{ */
3777: {
1.1.1.3 misho 3778: zend_class_entry *ce;
3779: HashTable **overriden;
3780: zend_trait_alias *alias, **alias_ptr;
3781: HashTable *exclude_table;
3782: char *lcname;
3783: unsigned int fnname_len;
3784: zend_function fn_copy;
3785: void *dummy;
1.1.1.2 misho 3786:
1.1.1.3 misho 3787: ce = va_arg(args, zend_class_entry*);
3788: overriden = va_arg(args, HashTable**);
1.1.1.2 misho 3789: exclude_table = va_arg(args, HashTable*);
1.1.1.3 misho 3790:
3791: fnname_len = hash_key->nKeyLength - 1;
1.1.1.2 misho 3792:
3793: /* apply aliases which are qualified with a class name, there should not be any ambiguity */
1.1.1.3 misho 3794: if (ce->trait_aliases) {
3795: alias_ptr = ce->trait_aliases;
3796: alias = *alias_ptr;
3797: while (alias) {
1.1.1.2 misho 3798: /* Scope unset or equal to the function we compare to, and the alias applies to fn */
1.1.1.3 misho 3799: if (alias->alias != NULL
3800: && (!alias->trait_method->ce || fn->common.scope == alias->trait_method->ce)
3801: && alias->trait_method->mname_len == fnname_len
3802: && (zend_binary_strcasecmp(alias->trait_method->method_name, alias->trait_method->mname_len, hash_key->arKey, fnname_len) == 0)) {
1.1.1.2 misho 3803: fn_copy = *fn;
3804:
3805: /* if it is 0, no modifieres has been changed */
1.1.1.3 misho 3806: if (alias->modifiers) {
3807: fn_copy.common.fn_flags = alias->modifiers | (fn->common.fn_flags ^ (fn->common.fn_flags & ZEND_ACC_PPP_MASK));
1.1.1.2 misho 3808: }
3809:
1.1.1.3 misho 3810: lcname = zend_str_tolower_dup(alias->alias, alias->alias_len);
3811: zend_add_trait_method(ce, alias->alias, lcname, alias->alias_len+1, &fn_copy, overriden TSRMLS_CC);
1.1.1.2 misho 3812: efree(lcname);
3813:
1.1.1.3 misho 3814: /* Record the trait from which this alias was resolved. */
3815: if (!alias->trait_method->ce) {
3816: alias->trait_method->ce = fn->common.scope;
1.1.1.2 misho 3817: }
3818: }
1.1.1.3 misho 3819: alias_ptr++;
3820: alias = *alias_ptr;
1.1.1.2 misho 3821: }
3822: }
3823:
1.1.1.3 misho 3824: lcname = hash_key->arKey;
1.1.1.2 misho 3825:
3826: if (exclude_table == NULL || zend_hash_find(exclude_table, lcname, fnname_len, &dummy) == FAILURE) {
3827: /* is not in hashtable, thus, function is not to be excluded */
3828: fn_copy = *fn;
3829:
1.1.1.3 misho 3830: /* apply aliases which have not alias name, just setting visibility */
3831: if (ce->trait_aliases) {
3832: alias_ptr = ce->trait_aliases;
3833: alias = *alias_ptr;
3834: while (alias) {
1.1.1.2 misho 3835: /* Scope unset or equal to the function we compare to, and the alias applies to fn */
1.1.1.3 misho 3836: if (alias->alias == NULL && alias->modifiers != 0
3837: && (!alias->trait_method->ce || fn->common.scope == alias->trait_method->ce)
3838: && (alias->trait_method->mname_len == fnname_len)
3839: && (zend_binary_strcasecmp(alias->trait_method->method_name, alias->trait_method->mname_len, lcname, fnname_len) == 0)) {
1.1.1.2 misho 3840:
1.1.1.3 misho 3841: fn_copy.common.fn_flags = alias->modifiers | (fn->common.fn_flags ^ (fn->common.fn_flags & ZEND_ACC_PPP_MASK));
1.1.1.2 misho 3842:
3843: /** Record the trait from which this alias was resolved. */
1.1.1.3 misho 3844: if (!alias->trait_method->ce) {
3845: alias->trait_method->ce = fn->common.scope;
1.1.1.2 misho 3846: }
3847: }
1.1.1.3 misho 3848: alias_ptr++;
3849: alias = *alias_ptr;
1.1.1.2 misho 3850: }
3851: }
3852:
1.1.1.3 misho 3853: zend_add_trait_method(ce, fn->common.function_name, lcname, fnname_len+1, &fn_copy, overriden TSRMLS_CC);
1.1.1.2 misho 3854: }
3855:
3856: return ZEND_HASH_APPLY_KEEP;
3857: }
3858: /* }}} */
3859:
1.1.1.3 misho 3860: static void zend_check_trait_usage(zend_class_entry *ce, zend_class_entry *trait TSRMLS_DC) /* {{{ */
1.1.1.2 misho 3861: {
1.1.1.3 misho 3862: zend_uint i;
3863:
3864: if ((trait->ce_flags & ZEND_ACC_TRAIT) != ZEND_ACC_TRAIT) {
3865: zend_error(E_COMPILE_ERROR, "Class %s is not a trait, Only traits may be used in 'as' and 'insteadof' statements", trait->name);
3866: }
3867:
3868: for (i = 0; i < ce->num_traits; i++) {
3869: if (ce->traits[i] == trait) {
3870: return;
3871: }
3872: }
3873: zend_error(E_COMPILE_ERROR, "Required Trait %s wasn't added to %s", trait->name, ce->name);
1.1.1.2 misho 3874: }
3875: /* }}} */
3876:
3877: static void zend_traits_init_trait_structures(zend_class_entry *ce TSRMLS_DC) /* {{{ */
3878: {
3879: size_t i, j = 0;
3880: zend_trait_precedence *cur_precedence;
3881: zend_trait_method_reference *cur_method_ref;
3882: char *lcname;
3883: zend_bool method_exists;
3884:
3885: /* resolve class references */
3886: if (ce->trait_precedences) {
3887: i = 0;
3888: while ((cur_precedence = ce->trait_precedences[i])) {
3889: /** Resolve classes for all precedence operations. */
3890: if (cur_precedence->exclude_from_classes) {
3891: cur_method_ref = cur_precedence->trait_method;
1.1.1.3 misho 3892: if (!(cur_precedence->trait_method->ce = zend_fetch_class(cur_method_ref->class_name, cur_method_ref->cname_len,
3893: ZEND_FETCH_CLASS_TRAIT|ZEND_FETCH_CLASS_NO_AUTOLOAD TSRMLS_CC))) {
3894: zend_error(E_COMPILE_ERROR, "Could not find trait %s", cur_method_ref->class_name);
3895: }
3896: zend_check_trait_usage(ce, cur_precedence->trait_method->ce TSRMLS_CC);
1.1.1.2 misho 3897:
3898: /** Ensure that the prefered method is actually available. */
3899: lcname = zend_str_tolower_dup(cur_method_ref->method_name,
3900: cur_method_ref->mname_len);
3901: method_exists = zend_hash_exists(&cur_method_ref->ce->function_table,
3902: lcname,
3903: cur_method_ref->mname_len + 1);
3904: efree(lcname);
3905: if (!method_exists) {
3906: zend_error(E_COMPILE_ERROR,
3907: "A precedence rule was defined for %s::%s but this method does not exist",
3908: cur_method_ref->ce->name,
3909: cur_method_ref->method_name);
3910: }
3911:
3912: /** With the other traits, we are more permissive.
3913: We do not give errors for those. This allows to be more
3914: defensive in such definitions.
1.1.1.4 misho 3915: However, we want to make sure that the insteadof declaration
1.1.1.2 misho 3916: is consistent in itself.
3917: */
3918: j = 0;
3919: while (cur_precedence->exclude_from_classes[j]) {
3920: char* class_name = (char*)cur_precedence->exclude_from_classes[j];
3921: zend_uint name_length = strlen(class_name);
3922:
1.1.1.3 misho 3923: if (!(cur_precedence->exclude_from_classes[j] = zend_fetch_class(class_name, name_length, ZEND_FETCH_CLASS_TRAIT |ZEND_FETCH_CLASS_NO_AUTOLOAD TSRMLS_CC))) {
3924: zend_error(E_COMPILE_ERROR, "Could not find trait %s", class_name);
3925: }
3926: zend_check_trait_usage(ce, cur_precedence->exclude_from_classes[j] TSRMLS_CC);
3927:
1.1.1.2 misho 3928: /* make sure that the trait method is not from a class mentioned in
3929: exclude_from_classes, for consistency */
3930: if (cur_precedence->trait_method->ce == cur_precedence->exclude_from_classes[i]) {
3931: zend_error(E_COMPILE_ERROR,
3932: "Inconsistent insteadof definition. "
3933: "The method %s is to be used from %s, but %s is also on the exclude list",
3934: cur_method_ref->method_name,
3935: cur_precedence->trait_method->ce->name,
3936: cur_precedence->trait_method->ce->name);
3937: }
3938:
3939: efree(class_name);
3940: j++;
3941: }
3942: }
3943: i++;
3944: }
3945: }
3946:
3947: if (ce->trait_aliases) {
3948: i = 0;
3949: while (ce->trait_aliases[i]) {
3950: /** For all aliases with an explicit class name, resolve the class now. */
3951: if (ce->trait_aliases[i]->trait_method->class_name) {
3952: cur_method_ref = ce->trait_aliases[i]->trait_method;
1.1.1.3 misho 3953: if (!(cur_method_ref->ce = zend_fetch_class(cur_method_ref->class_name, cur_method_ref->cname_len, ZEND_FETCH_CLASS_TRAIT|ZEND_FETCH_CLASS_NO_AUTOLOAD TSRMLS_CC))) {
3954: zend_error(E_COMPILE_ERROR, "Could not find trait %s", cur_method_ref->class_name);
3955: }
3956: zend_check_trait_usage(ce, cur_method_ref->ce TSRMLS_CC);
1.1.1.2 misho 3957:
3958: /** And, ensure that the referenced method is resolvable, too. */
3959: lcname = zend_str_tolower_dup(cur_method_ref->method_name,
1.1.1.3 misho 3960: cur_method_ref->mname_len);
1.1.1.2 misho 3961: method_exists = zend_hash_exists(&cur_method_ref->ce->function_table,
1.1.1.3 misho 3962: lcname, cur_method_ref->mname_len + 1);
1.1.1.2 misho 3963: efree(lcname);
3964:
3965: if (!method_exists) {
3966: zend_error(E_COMPILE_ERROR, "An alias was defined for %s::%s but this method does not exist", cur_method_ref->ce->name, cur_method_ref->method_name);
3967: }
3968: }
3969: i++;
3970: }
3971: }
3972: }
3973: /* }}} */
3974:
3975: static void zend_traits_compile_exclude_table(HashTable* exclude_table, zend_trait_precedence **precedences, zend_class_entry *trait) /* {{{ */
3976: {
3977: size_t i = 0, j;
3978:
3979: if (!precedences) {
3980: return;
3981: }
3982: while (precedences[i]) {
3983: if (precedences[i]->exclude_from_classes) {
3984: j = 0;
3985: while (precedences[i]->exclude_from_classes[j]) {
3986: if (precedences[i]->exclude_from_classes[j] == trait) {
3987: zend_uint lcname_len = precedences[i]->trait_method->mname_len;
3988: char *lcname = zend_str_tolower_dup(precedences[i]->trait_method->method_name, lcname_len);
3989:
3990: if (zend_hash_add(exclude_table, lcname, lcname_len, NULL, 0, NULL) == FAILURE) {
3991: efree(lcname);
3992: zend_error(E_COMPILE_ERROR, "Failed to evaluate a trait precedence (%s). Method of trait %s was defined to be excluded multiple times", precedences[i]->trait_method->method_name, trait->name);
3993: }
3994: efree(lcname);
3995: }
3996: ++j;
3997: }
3998: }
3999: ++i;
4000: }
4001: }
4002: /* }}} */
4003:
4004: static void zend_do_traits_method_binding(zend_class_entry *ce TSRMLS_DC) /* {{{ */
4005: {
1.1.1.3 misho 4006: zend_uint i;
4007: HashTable *overriden = NULL;
1.1.1.2 misho 4008:
4009: for (i = 0; i < ce->num_traits; i++) {
4010: if (ce->trait_precedences) {
1.1.1.3 misho 4011: HashTable exclude_table;
4012:
1.1.1.2 misho 4013: /* TODO: revisit this start size, may be its not optimal */
4014: zend_hash_init_ex(&exclude_table, 2, NULL, NULL, 0, 0);
4015:
4016: zend_traits_compile_exclude_table(&exclude_table, ce->trait_precedences, ce->traits[i]);
4017:
4018: /* copies functions, applies defined aliasing, and excludes unused trait methods */
1.1.1.3 misho 4019: zend_hash_apply_with_arguments(&ce->traits[i]->function_table TSRMLS_CC, (apply_func_args_t)zend_traits_copy_functions, 3, ce, &overriden, &exclude_table);
4020:
1.1.1.2 misho 4021: zend_hash_destroy(&exclude_table);
4022: } else {
1.1.1.3 misho 4023: zend_hash_apply_with_arguments(&ce->traits[i]->function_table TSRMLS_CC, (apply_func_args_t)zend_traits_copy_functions, 3, ce, &overriden, NULL);
1.1.1.2 misho 4024: }
4025: }
4026:
1.1.1.3 misho 4027: zend_hash_apply_with_argument(&ce->function_table, (apply_func_arg_t)zend_fixup_trait_method, ce TSRMLS_CC);
4028:
4029: if (overriden) {
4030: zend_hash_destroy(overriden);
4031: FREE_HASHTABLE(overriden);
1.1.1.2 misho 4032: }
4033: }
4034: /* }}} */
4035:
4036: static zend_class_entry* find_first_definition(zend_class_entry *ce, size_t current_trait, const char* prop_name, int prop_name_length, ulong prop_hash, zend_class_entry *coliding_ce) /* {{{ */
4037: {
4038: size_t i;
4039:
1.1.1.3 misho 4040: if (coliding_ce == ce) {
4041: for (i = 0; i < current_trait; i++) {
4042: if (zend_hash_quick_exists(&ce->traits[i]->properties_info, prop_name, prop_name_length+1, prop_hash)) {
4043: return ce->traits[i];
4044: }
1.1.1.2 misho 4045: }
4046: }
4047:
1.1.1.3 misho 4048: return coliding_ce;
1.1.1.2 misho 4049: }
4050: /* }}} */
4051:
4052: static void zend_do_traits_property_binding(zend_class_entry *ce TSRMLS_DC) /* {{{ */
4053: {
4054: size_t i;
4055: zend_property_info *property_info;
4056: zend_property_info *coliding_prop;
4057: zval compare_result;
4058: const char* prop_name;
4059: int prop_name_length;
4060: ulong prop_hash;
4061: const char* class_name_unused;
4062: zend_bool not_compatible;
4063: zval* prop_value;
4064: char* doc_comment;
1.1.1.3 misho 4065: zend_uint flags;
4066:
1.1.1.2 misho 4067: /* In the following steps the properties are inserted into the property table
4068: * for that, a very strict approach is applied:
4069: * - check for compatibility, if not compatible with any property in class -> fatal
4070: * - if compatible, then strict notice
4071: */
4072: for (i = 0; i < ce->num_traits; i++) {
4073: for (zend_hash_internal_pointer_reset(&ce->traits[i]->properties_info);
4074: zend_hash_get_current_data(&ce->traits[i]->properties_info, (void *) &property_info) == SUCCESS;
4075: zend_hash_move_forward(&ce->traits[i]->properties_info)) {
4076: /* first get the unmangeld name if necessary,
4077: * then check whether the property is already there
4078: */
1.1.1.3 misho 4079: flags = property_info->flags;
4080: if ((flags & ZEND_ACC_PPP_MASK) == ZEND_ACC_PUBLIC) {
1.1.1.2 misho 4081: prop_hash = property_info->h;
4082: prop_name = property_info->name;
4083: prop_name_length = property_info->name_length;
4084: } else {
4085: /* for private and protected we need to unmangle the names */
4086: zend_unmangle_property_name(property_info->name, property_info->name_length,
4087: &class_name_unused, &prop_name);
4088: prop_name_length = strlen(prop_name);
4089: prop_hash = zend_get_hash_value(prop_name, prop_name_length + 1);
4090: }
4091:
4092: /* next: check for conflicts with current class */
4093: if (zend_hash_quick_find(&ce->properties_info, prop_name, prop_name_length+1, prop_hash, (void **) &coliding_prop) == SUCCESS) {
1.1.1.3 misho 4094: if (coliding_prop->flags & ZEND_ACC_SHADOW) {
4095: zend_hash_quick_del(&ce->properties_info, prop_name, prop_name_length+1, prop_hash);
4096: flags |= ZEND_ACC_CHANGED;
4097: } else {
4098: if ((coliding_prop->flags & (ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC))
4099: == (flags & (ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC))) {
4100: /* flags are identical, now the value needs to be checked */
4101: if (flags & ZEND_ACC_STATIC) {
4102: not_compatible = (FAILURE == compare_function(&compare_result,
4103: ce->default_static_members_table[coliding_prop->offset],
4104: ce->traits[i]->default_static_members_table[property_info->offset] TSRMLS_CC))
4105: || (Z_LVAL(compare_result) != 0);
1.1.1.2 misho 4106: } else {
1.1.1.3 misho 4107: not_compatible = (FAILURE == compare_function(&compare_result,
4108: ce->default_properties_table[coliding_prop->offset],
4109: ce->traits[i]->default_properties_table[property_info->offset] TSRMLS_CC))
4110: || (Z_LVAL(compare_result) != 0);
1.1.1.2 misho 4111: }
4112: } else {
1.1.1.3 misho 4113: /* the flags are not identical, thus, we assume properties are not compatible */
4114: not_compatible = 1;
1.1.1.2 misho 4115: }
4116:
1.1.1.3 misho 4117: if (not_compatible) {
4118: zend_error(E_COMPILE_ERROR,
1.1.1.2 misho 4119: "%s and %s define the same property ($%s) in the composition of %s. However, the definition differs and is considered incompatible. Class was composed",
4120: find_first_definition(ce, i, prop_name, prop_name_length, prop_hash, coliding_prop->ce)->name,
4121: property_info->ce->name,
4122: prop_name,
4123: ce->name);
1.1.1.3 misho 4124: } else {
4125: zend_error(E_STRICT,
1.1.1.2 misho 4126: "%s and %s define the same property ($%s) in the composition of %s. This might be incompatible, to improve maintainability consider using accessor methods in traits instead. Class was composed",
4127: find_first_definition(ce, i, prop_name, prop_name_length, prop_hash, coliding_prop->ce)->name,
4128: property_info->ce->name,
4129: prop_name,
4130: ce->name);
1.1.1.3 misho 4131: continue;
4132: }
1.1.1.2 misho 4133: }
4134: }
4135:
4136: /* property not found, so lets add it */
1.1.1.3 misho 4137: if (flags & ZEND_ACC_STATIC) {
1.1.1.2 misho 4138: prop_value = ce->traits[i]->default_static_members_table[property_info->offset];
4139: } else {
4140: prop_value = ce->traits[i]->default_properties_table[property_info->offset];
4141: }
4142: Z_ADDREF_P(prop_value);
4143:
4144: doc_comment = property_info->doc_comment ? estrndup(property_info->doc_comment, property_info->doc_comment_len) : NULL;
4145: zend_declare_property_ex(ce, prop_name, prop_name_length,
1.1.1.3 misho 4146: prop_value, flags,
1.1.1.2 misho 4147: doc_comment, property_info->doc_comment_len TSRMLS_CC);
4148: }
4149: }
4150: }
4151: /* }}} */
4152:
4153: static void zend_do_check_for_inconsistent_traits_aliasing(zend_class_entry *ce TSRMLS_DC) /* {{{ */
4154: {
4155: int i = 0;
4156: zend_trait_alias* cur_alias;
4157: char* lc_method_name;
4158:
4159: if (ce->trait_aliases) {
4160: while (ce->trait_aliases[i]) {
4161: cur_alias = ce->trait_aliases[i];
4162: /** The trait for this alias has not been resolved, this means, this
4163: alias was not applied. Abort with an error. */
4164: if (!cur_alias->trait_method->ce) {
4165: if (cur_alias->alias) {
4166: /** Plain old inconsistency/typo/bug */
4167: zend_error(E_COMPILE_ERROR,
4168: "An alias (%s) was defined for method %s(), but this method does not exist",
4169: cur_alias->alias,
4170: cur_alias->trait_method->method_name);
4171: } else {
4172: /** Here are two possible cases:
4173: 1) this is an attempt to modifiy the visibility
4174: of a method introduce as part of another alias.
4175: Since that seems to violate the DRY principle,
4176: we check against it and abort.
4177: 2) it is just a plain old inconsitency/typo/bug
4178: as in the case where alias is set. */
4179:
4180: lc_method_name = zend_str_tolower_dup(cur_alias->trait_method->method_name,
4181: cur_alias->trait_method->mname_len);
4182: if (zend_hash_exists(&ce->function_table,
4183: lc_method_name,
4184: cur_alias->trait_method->mname_len+1)) {
4185: efree(lc_method_name);
4186: zend_error(E_COMPILE_ERROR,
4187: "The modifiers for the trait alias %s() need to be changed in the same statment in which the alias is defined. Error",
4188: cur_alias->trait_method->method_name);
4189: } else {
4190: efree(lc_method_name);
4191: zend_error(E_COMPILE_ERROR,
4192: "The modifiers of the trait method %s() are changed, but this method does not exist. Error",
4193: cur_alias->trait_method->method_name);
4194:
4195: }
4196: }
4197: }
4198: i++;
4199: }
4200: }
4201: }
4202: /* }}} */
4203:
4204: ZEND_API void zend_do_bind_traits(zend_class_entry *ce TSRMLS_DC) /* {{{ */
4205: {
4206:
4207: if (ce->num_traits <= 0) {
4208: return;
4209: }
4210:
4211: /* complete initialization of trait strutures in ce */
4212: zend_traits_init_trait_structures(ce TSRMLS_CC);
4213:
4214: /* first care about all methods to be flattened into the class */
4215: zend_do_traits_method_binding(ce TSRMLS_CC);
4216:
4217: /* Aliases which have not been applied indicate typos/bugs. */
4218: zend_do_check_for_inconsistent_traits_aliasing(ce TSRMLS_CC);
4219:
4220: /* then flatten the properties into it, to, mostly to notfiy developer about problems */
4221: zend_do_traits_property_binding(ce TSRMLS_CC);
4222:
4223: /* verify that all abstract methods from traits have been implemented */
4224: zend_verify_abstract_class(ce TSRMLS_CC);
4225:
4226: /* now everything should be fine and an added ZEND_ACC_IMPLICIT_ABSTRACT_CLASS should be removed */
4227: if (ce->ce_flags & ZEND_ACC_IMPLICIT_ABSTRACT_CLASS) {
4228: ce->ce_flags -= ZEND_ACC_IMPLICIT_ABSTRACT_CLASS;
4229: }
4230: }
4231: /* }}} */
4232:
4233: ZEND_API int do_bind_function(const zend_op_array *op_array, zend_op *opline, HashTable *function_table, zend_bool compile_time) /* {{{ */
1.1 misho 4234: {
4235: zend_function *function;
1.1.1.2 misho 4236: zval *op1, *op2;
1.1 misho 4237:
1.1.1.2 misho 4238: if (compile_time) {
4239: op1 = &CONSTANT_EX(op_array, opline->op1.constant);
4240: op2 = &CONSTANT_EX(op_array, opline->op2.constant);
4241: } else {
4242: op1 = opline->op1.zv;
4243: op2 = opline->op2.zv;
4244: }
4245:
4246: zend_hash_quick_find(function_table, Z_STRVAL_P(op1), Z_STRLEN_P(op1), Z_HASH_P(op1), (void *) &function);
4247: if (zend_hash_quick_add(function_table, Z_STRVAL_P(op2), Z_STRLEN_P(op2)+1, Z_HASH_P(op2), function, sizeof(zend_function), NULL)==FAILURE) {
1.1 misho 4248: int error_level = compile_time ? E_COMPILE_ERROR : E_ERROR;
4249: zend_function *old_function;
4250:
1.1.1.2 misho 4251: if (zend_hash_quick_find(function_table, Z_STRVAL_P(op2), Z_STRLEN_P(op2)+1, Z_HASH_P(op2), (void *) &old_function)==SUCCESS
1.1 misho 4252: && old_function->type == ZEND_USER_FUNCTION
4253: && old_function->op_array.last > 0) {
4254: zend_error(error_level, "Cannot redeclare %s() (previously declared in %s:%d)",
4255: function->common.function_name,
4256: old_function->op_array.filename,
4257: old_function->op_array.opcodes[0].lineno);
4258: } else {
4259: zend_error(error_level, "Cannot redeclare %s()", function->common.function_name);
4260: }
4261: return FAILURE;
4262: } else {
4263: (*function->op_array.refcount)++;
4264: function->op_array.static_variables = NULL; /* NULL out the unbound function */
4265: return SUCCESS;
4266: }
4267: }
4268: /* }}} */
4269:
1.1.1.2 misho 4270: void zend_prepare_reference(znode *result, znode *class_name, znode *method_name TSRMLS_DC) /* {{{ */
4271: {
4272: zend_trait_method_reference *method_ref = emalloc(sizeof(zend_trait_method_reference));
4273: method_ref->ce = NULL;
4274:
4275: /* REM: There should not be a need for copying,
4276: zend_do_begin_class_declaration is also just using that string */
4277: if (class_name) {
4278: zend_resolve_class_name(class_name, ZEND_FETCH_CLASS_GLOBAL, 1 TSRMLS_CC);
4279: method_ref->class_name = Z_STRVAL(class_name->u.constant);
4280: method_ref->cname_len = Z_STRLEN(class_name->u.constant);
4281: } else {
4282: method_ref->class_name = NULL;
4283: method_ref->cname_len = 0;
4284: }
4285:
4286: method_ref->method_name = Z_STRVAL(method_name->u.constant);
4287: method_ref->mname_len = Z_STRLEN(method_name->u.constant);
4288:
4289: result->u.op.ptr = method_ref;
4290: result->op_type = IS_TMP_VAR;
4291: }
4292: /* }}} */
4293:
1.1.1.3 misho 4294: void zend_add_trait_alias(znode *method_reference, znode *modifiers, znode *alias TSRMLS_DC) /* {{{ */
1.1.1.2 misho 4295: {
1.1.1.3 misho 4296: zend_class_entry *ce = CG(active_class_entry);
4297: zend_trait_alias *trait_alias;
1.1.1.2 misho 4298:
4299: if (Z_LVAL(modifiers->u.constant) == ZEND_ACC_STATIC) {
4300: zend_error(E_COMPILE_ERROR, "Cannot use 'static' as method modifier");
4301: return;
1.1.1.3 misho 4302: } else if (Z_LVAL(modifiers->u.constant) == ZEND_ACC_ABSTRACT) {
4303: zend_error(E_COMPILE_ERROR, "Cannot use 'abstract' as method modifier");
4304: return;
4305: } else if (Z_LVAL(modifiers->u.constant) == ZEND_ACC_FINAL) {
4306: zend_error(E_COMPILE_ERROR, "Cannot use 'final' as method modifier");
4307: return;
1.1.1.2 misho 4308: }
4309:
1.1.1.3 misho 4310: trait_alias = emalloc(sizeof(zend_trait_alias));
4311: trait_alias->trait_method = (zend_trait_method_reference*)method_reference->u.op.ptr;
4312: trait_alias->modifiers = Z_LVAL(modifiers->u.constant);
1.1.1.2 misho 4313: if (alias) {
4314: trait_alias->alias = Z_STRVAL(alias->u.constant);
4315: trait_alias->alias_len = Z_STRLEN(alias->u.constant);
4316: } else {
4317: trait_alias->alias = NULL;
4318: }
4319: trait_alias->function = NULL;
4320:
1.1.1.3 misho 4321: zend_add_to_list(&ce->trait_aliases, trait_alias TSRMLS_CC);
1.1.1.2 misho 4322: }
4323: /* }}} */
4324:
1.1.1.3 misho 4325: void zend_add_trait_precedence(znode *method_reference, znode *trait_list TSRMLS_DC) /* {{{ */
1.1.1.2 misho 4326: {
1.1.1.3 misho 4327: zend_class_entry *ce = CG(active_class_entry);
1.1.1.2 misho 4328: zend_trait_precedence *trait_precedence = emalloc(sizeof(zend_trait_precedence));
4329:
4330: trait_precedence->trait_method = (zend_trait_method_reference*)method_reference->u.op.ptr;
4331: trait_precedence->exclude_from_classes = (zend_class_entry**) trait_list->u.op.ptr;
4332:
4333: trait_precedence->function = NULL;
4334:
1.1.1.3 misho 4335: zend_add_to_list(&ce->trait_precedences, trait_precedence TSRMLS_CC);
1.1.1.2 misho 4336: }
4337: /* }}} */
4338:
4339: ZEND_API zend_class_entry *do_bind_class(const zend_op_array* op_array, const zend_op *opline, HashTable *class_table, zend_bool compile_time TSRMLS_DC) /* {{{ */
1.1 misho 4340: {
4341: zend_class_entry *ce, **pce;
1.1.1.2 misho 4342: zval *op1, *op2;
1.1 misho 4343:
1.1.1.2 misho 4344: if (compile_time) {
4345: op1 = &CONSTANT_EX(op_array, opline->op1.constant);
4346: op2 = &CONSTANT_EX(op_array, opline->op2.constant);
4347: } else {
4348: op1 = opline->op1.zv;
4349: op2 = opline->op2.zv;
4350: }
4351: if (zend_hash_quick_find(class_table, Z_STRVAL_P(op1), Z_STRLEN_P(op1), Z_HASH_P(op1), (void **) &pce)==FAILURE) {
4352: zend_error(E_COMPILE_ERROR, "Internal Zend error - Missing class information for %s", Z_STRVAL_P(op1));
1.1 misho 4353: return NULL;
4354: } else {
4355: ce = *pce;
4356: }
4357: ce->refcount++;
1.1.1.2 misho 4358: if (zend_hash_quick_add(class_table, Z_STRVAL_P(op2), Z_STRLEN_P(op2)+1, Z_HASH_P(op2), &ce, sizeof(zend_class_entry *), NULL)==FAILURE) {
1.1 misho 4359: ce->refcount--;
4360: if (!compile_time) {
4361: /* If we're in compile time, in practice, it's quite possible
4362: * that we'll never reach this class declaration at runtime,
4363: * so we shut up about it. This allows the if (!defined('FOO')) { return; }
4364: * approach to work.
4365: */
4366: zend_error(E_COMPILE_ERROR, "Cannot redeclare class %s", ce->name);
4367: }
4368: return NULL;
4369: } else {
1.1.1.3 misho 4370: if (!(ce->ce_flags & (ZEND_ACC_INTERFACE|ZEND_ACC_IMPLEMENT_INTERFACES|ZEND_ACC_IMPLEMENT_TRAITS))) {
1.1 misho 4371: zend_verify_abstract_class(ce TSRMLS_CC);
4372: }
4373: return ce;
4374: }
4375: }
4376: /* }}} */
4377:
1.1.1.2 misho 4378: ZEND_API zend_class_entry *do_bind_inherited_class(const zend_op_array *op_array, const zend_op *opline, HashTable *class_table, zend_class_entry *parent_ce, zend_bool compile_time TSRMLS_DC) /* {{{ */
1.1 misho 4379: {
4380: zend_class_entry *ce, **pce;
4381: int found_ce;
1.1.1.2 misho 4382: zval *op1, *op2;
1.1 misho 4383:
1.1.1.2 misho 4384: if (compile_time) {
4385: op1 = &CONSTANT_EX(op_array, opline->op1.constant);
4386: op2 = &CONSTANT_EX(op_array, opline->op2.constant);
4387: } else {
4388: op1 = opline->op1.zv;
4389: op2 = opline->op2.zv;
4390: }
4391:
4392: found_ce = zend_hash_quick_find(class_table, Z_STRVAL_P(op1), Z_STRLEN_P(op1), Z_HASH_P(op1), (void **) &pce);
1.1 misho 4393:
4394: if (found_ce == FAILURE) {
4395: if (!compile_time) {
4396: /* If we're in compile time, in practice, it's quite possible
4397: * that we'll never reach this class declaration at runtime,
4398: * so we shut up about it. This allows the if (!defined('FOO')) { return; }
4399: * approach to work.
4400: */
1.1.1.2 misho 4401: zend_error(E_COMPILE_ERROR, "Cannot redeclare class %s", Z_STRVAL_P(op2));
1.1 misho 4402: }
4403: return NULL;
4404: } else {
4405: ce = *pce;
4406: }
4407:
4408: if (parent_ce->ce_flags & ZEND_ACC_INTERFACE) {
4409: zend_error(E_COMPILE_ERROR, "Class %s cannot extend from interface %s", ce->name, parent_ce->name);
1.1.1.2 misho 4410: } else if ((parent_ce->ce_flags & ZEND_ACC_TRAIT) == ZEND_ACC_TRAIT) {
4411: zend_error(E_COMPILE_ERROR, "Class %s cannot extend from trait %s", ce->name, parent_ce->name);
1.1 misho 4412: }
4413:
4414: zend_do_inheritance(ce, parent_ce TSRMLS_CC);
4415:
4416: ce->refcount++;
4417:
4418: /* Register the derived class */
1.1.1.2 misho 4419: if (zend_hash_quick_add(class_table, Z_STRVAL_P(op2), Z_STRLEN_P(op2)+1, Z_HASH_P(op2), pce, sizeof(zend_class_entry *), NULL)==FAILURE) {
1.1 misho 4420: zend_error(E_COMPILE_ERROR, "Cannot redeclare class %s", ce->name);
4421: }
4422: return ce;
4423: }
4424: /* }}} */
4425:
4426: void zend_do_early_binding(TSRMLS_D) /* {{{ */
4427: {
4428: zend_op *opline = &CG(active_op_array)->opcodes[CG(active_op_array)->last-1];
4429: HashTable *table;
4430:
4431: while (opline->opcode == ZEND_TICKS && opline > CG(active_op_array)->opcodes) {
4432: opline--;
4433: }
4434:
4435: switch (opline->opcode) {
4436: case ZEND_DECLARE_FUNCTION:
1.1.1.2 misho 4437: if (do_bind_function(CG(active_op_array), opline, CG(function_table), 1) == FAILURE) {
1.1 misho 4438: return;
4439: }
4440: table = CG(function_table);
4441: break;
4442: case ZEND_DECLARE_CLASS:
1.1.1.2 misho 4443: if (do_bind_class(CG(active_op_array), opline, CG(class_table), 1 TSRMLS_CC) == NULL) {
1.1 misho 4444: return;
4445: }
4446: table = CG(class_table);
4447: break;
4448: case ZEND_DECLARE_INHERITED_CLASS:
4449: {
4450: zend_op *fetch_class_opline = opline-1;
1.1.1.2 misho 4451: zval *parent_name;
1.1 misho 4452: zend_class_entry **pce;
4453:
1.1.1.2 misho 4454: parent_name = &CONSTANT(fetch_class_opline->op2.constant);
1.1 misho 4455: if ((zend_lookup_class(Z_STRVAL_P(parent_name), Z_STRLEN_P(parent_name), &pce TSRMLS_CC) == FAILURE) ||
1.1.1.2 misho 4456: ((CG(compiler_options) & ZEND_COMPILE_IGNORE_INTERNAL_CLASSES) &&
4457: ((*pce)->type == ZEND_INTERNAL_CLASS))) {
4458: if (CG(compiler_options) & ZEND_COMPILE_DELAYED_BINDING) {
1.1 misho 4459: zend_uint *opline_num = &CG(active_op_array)->early_binding;
4460:
4461: while (*opline_num != -1) {
1.1.1.2 misho 4462: opline_num = &CG(active_op_array)->opcodes[*opline_num].result.opline_num;
1.1 misho 4463: }
4464: *opline_num = opline - CG(active_op_array)->opcodes;
4465: opline->opcode = ZEND_DECLARE_INHERITED_CLASS_DELAYED;
1.1.1.2 misho 4466: opline->result_type = IS_UNUSED;
4467: opline->result.opline_num = -1;
1.1 misho 4468: }
4469: return;
4470: }
1.1.1.2 misho 4471: if (do_bind_inherited_class(CG(active_op_array), opline, CG(class_table), *pce, 1 TSRMLS_CC) == NULL) {
1.1 misho 4472: return;
4473: }
4474: /* clear unnecessary ZEND_FETCH_CLASS opcode */
1.1.1.2 misho 4475: zend_del_literal(CG(active_op_array), fetch_class_opline->op2.constant);
1.1 misho 4476: MAKE_NOP(fetch_class_opline);
4477:
4478: table = CG(class_table);
4479: break;
4480: }
4481: case ZEND_VERIFY_ABSTRACT_CLASS:
4482: case ZEND_ADD_INTERFACE:
1.1.1.2 misho 4483: case ZEND_ADD_TRAIT:
4484: case ZEND_BIND_TRAITS:
1.1 misho 4485: /* We currently don't early-bind classes that implement interfaces */
1.1.1.2 misho 4486: /* Classes with traits are handled exactly the same, no early-bind here */
1.1 misho 4487: return;
4488: default:
4489: zend_error(E_COMPILE_ERROR, "Invalid binding type");
4490: return;
4491: }
4492:
1.1.1.2 misho 4493: zend_hash_quick_del(table, Z_STRVAL(CONSTANT(opline->op1.constant)), Z_STRLEN(CONSTANT(opline->op1.constant)), Z_HASH_P(&CONSTANT(opline->op1.constant)));
4494: zend_del_literal(CG(active_op_array), opline->op1.constant);
4495: zend_del_literal(CG(active_op_array), opline->op2.constant);
1.1 misho 4496: MAKE_NOP(opline);
4497: }
4498: /* }}} */
4499:
4500: ZEND_API void zend_do_delayed_early_binding(const zend_op_array *op_array TSRMLS_DC) /* {{{ */
4501: {
4502: if (op_array->early_binding != -1) {
4503: zend_bool orig_in_compilation = CG(in_compilation);
4504: zend_uint opline_num = op_array->early_binding;
4505: zend_class_entry **pce;
4506:
4507: CG(in_compilation) = 1;
4508: while (opline_num != -1) {
1.1.1.2 misho 4509: if (zend_lookup_class(Z_STRVAL_P(op_array->opcodes[opline_num-1].op2.zv), Z_STRLEN_P(op_array->opcodes[opline_num-1].op2.zv), &pce TSRMLS_CC) == SUCCESS) {
4510: do_bind_inherited_class(op_array, &op_array->opcodes[opline_num], EG(class_table), *pce, 0 TSRMLS_CC);
1.1 misho 4511: }
1.1.1.2 misho 4512: opline_num = op_array->opcodes[opline_num].result.opline_num;
1.1 misho 4513: }
4514: CG(in_compilation) = orig_in_compilation;
4515: }
4516: }
4517: /* }}} */
4518:
4519: void zend_do_boolean_or_begin(znode *expr1, znode *op_token TSRMLS_DC) /* {{{ */
4520: {
4521: int next_op_number = get_next_op_number(CG(active_op_array));
4522: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4523:
4524: opline->opcode = ZEND_JMPNZ_EX;
4525: if (expr1->op_type == IS_TMP_VAR) {
1.1.1.2 misho 4526: SET_NODE(opline->result, expr1);
1.1 misho 4527: } else {
1.1.1.2 misho 4528: opline->result.var = get_temporary_variable(CG(active_op_array));
4529: opline->result_type = IS_TMP_VAR;
1.1 misho 4530: }
1.1.1.2 misho 4531: SET_NODE(opline->op1, expr1);
1.1 misho 4532: SET_UNUSED(opline->op2);
4533:
1.1.1.2 misho 4534: op_token->u.op.opline_num = next_op_number;
1.1 misho 4535:
1.1.1.2 misho 4536: GET_NODE(expr1, opline->result);
1.1 misho 4537: }
4538: /* }}} */
4539:
4540: void zend_do_boolean_or_end(znode *result, const znode *expr1, const znode *expr2, znode *op_token TSRMLS_DC) /* {{{ */
4541: {
4542: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4543:
4544: *result = *expr1; /* we saved the original result in expr1 */
4545: opline->opcode = ZEND_BOOL;
1.1.1.2 misho 4546: SET_NODE(opline->result, result);
4547: SET_NODE(opline->op1, expr2);
1.1 misho 4548: SET_UNUSED(opline->op2);
4549:
1.1.1.2 misho 4550: CG(active_op_array)->opcodes[op_token->u.op.opline_num].op2.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 4551: }
4552: /* }}} */
4553:
4554: void zend_do_boolean_and_begin(znode *expr1, znode *op_token TSRMLS_DC) /* {{{ */
4555: {
4556: int next_op_number = get_next_op_number(CG(active_op_array));
4557: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4558:
4559: opline->opcode = ZEND_JMPZ_EX;
4560: if (expr1->op_type == IS_TMP_VAR) {
1.1.1.2 misho 4561: SET_NODE(opline->result, expr1);
1.1 misho 4562: } else {
1.1.1.2 misho 4563: opline->result.var = get_temporary_variable(CG(active_op_array));
4564: opline->result_type = IS_TMP_VAR;
1.1 misho 4565: }
1.1.1.2 misho 4566: SET_NODE(opline->op1, expr1);
1.1 misho 4567: SET_UNUSED(opline->op2);
4568:
1.1.1.2 misho 4569: op_token->u.op.opline_num = next_op_number;
1.1 misho 4570:
1.1.1.2 misho 4571: GET_NODE(expr1, opline->result);
1.1 misho 4572: }
4573: /* }}} */
4574:
4575: void zend_do_boolean_and_end(znode *result, const znode *expr1, const znode *expr2, const znode *op_token TSRMLS_DC) /* {{{ */
4576: {
4577: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4578:
4579: *result = *expr1; /* we saved the original result in expr1 */
4580: opline->opcode = ZEND_BOOL;
1.1.1.2 misho 4581: SET_NODE(opline->result, result);
4582: SET_NODE(opline->op1, expr2);
1.1 misho 4583: SET_UNUSED(opline->op2);
4584:
1.1.1.2 misho 4585: CG(active_op_array)->opcodes[op_token->u.op.opline_num].op2.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 4586: }
4587: /* }}} */
4588:
4589: void zend_do_do_while_begin(TSRMLS_D) /* {{{ */
4590: {
4591: do_begin_loop(TSRMLS_C);
4592: INC_BPC(CG(active_op_array));
4593: }
4594: /* }}} */
4595:
4596: void zend_do_do_while_end(const znode *do_token, const znode *expr_open_bracket, const znode *expr TSRMLS_DC) /* {{{ */
4597: {
4598: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4599:
4600: opline->opcode = ZEND_JMPNZ;
1.1.1.2 misho 4601: SET_NODE(opline->op1, expr);
4602: opline->op2.opline_num = do_token->u.op.opline_num;
1.1 misho 4603: SET_UNUSED(opline->op2);
4604:
1.1.1.2 misho 4605: do_end_loop(expr_open_bracket->u.op.opline_num, 0 TSRMLS_CC);
1.1 misho 4606:
4607: DEC_BPC(CG(active_op_array));
4608: }
4609: /* }}} */
4610:
4611: void zend_do_brk_cont(zend_uchar op, const znode *expr TSRMLS_DC) /* {{{ */
4612: {
4613: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4614:
4615: opline->opcode = op;
1.1.1.2 misho 4616: opline->op1.opline_num = CG(context).current_brk_cont;
1.1 misho 4617: SET_UNUSED(opline->op1);
4618: if (expr) {
1.1.1.2 misho 4619: if (expr->op_type != IS_CONST) {
4620: zend_error(E_COMPILE_ERROR, "'%s' operator with non-constant operand is no longer supported", op == ZEND_BRK ? "break" : "continue");
4621: } else if (Z_TYPE(expr->u.constant) != IS_LONG || Z_LVAL(expr->u.constant) < 1) {
4622: zend_error(E_COMPILE_ERROR, "'%s' operator accepts only positive numbers", op == ZEND_BRK ? "break" : "continue");
4623: }
4624: SET_NODE(opline->op2, expr);
1.1 misho 4625: } else {
1.1.1.2 misho 4626: LITERAL_LONG(opline->op2, 1);
4627: opline->op2_type = IS_CONST;
1.1 misho 4628: }
4629: }
4630: /* }}} */
4631:
4632: void zend_do_switch_cond(const znode *cond TSRMLS_DC) /* {{{ */
4633: {
4634: zend_switch_entry switch_entry;
4635:
4636: switch_entry.cond = *cond;
4637: switch_entry.default_case = -1;
4638: switch_entry.control_var = -1;
4639: zend_stack_push(&CG(switch_cond_stack), (void *) &switch_entry, sizeof(switch_entry));
4640:
4641: do_begin_loop(TSRMLS_C);
4642:
4643: INC_BPC(CG(active_op_array));
4644: }
4645: /* }}} */
4646:
4647: void zend_do_switch_end(const znode *case_list TSRMLS_DC) /* {{{ */
4648: {
4649: zend_op *opline;
4650: zend_switch_entry *switch_entry_ptr;
4651:
4652: zend_stack_top(&CG(switch_cond_stack), (void **) &switch_entry_ptr);
4653:
4654: /* add code to jmp to default case */
4655: if (switch_entry_ptr->default_case != -1) {
4656: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4657: opline->opcode = ZEND_JMP;
4658: SET_UNUSED(opline->op1);
4659: SET_UNUSED(opline->op2);
1.1.1.2 misho 4660: opline->op1.opline_num = switch_entry_ptr->default_case;
1.1 misho 4661: }
4662:
4663: if (case_list->op_type != IS_UNUSED) { /* non-empty switch */
4664: int next_op_number = get_next_op_number(CG(active_op_array));
4665:
1.1.1.2 misho 4666: CG(active_op_array)->opcodes[case_list->u.op.opline_num].op1.opline_num = next_op_number;
1.1 misho 4667: }
4668:
4669: /* remember break/continue loop information */
1.1.1.2 misho 4670: CG(active_op_array)->brk_cont_array[CG(context).current_brk_cont].cont = CG(active_op_array)->brk_cont_array[CG(context).current_brk_cont].brk = get_next_op_number(CG(active_op_array));
4671: CG(context).current_brk_cont = CG(active_op_array)->brk_cont_array[CG(context).current_brk_cont].parent;
1.1 misho 4672:
4673: if (switch_entry_ptr->cond.op_type==IS_VAR || switch_entry_ptr->cond.op_type==IS_TMP_VAR) {
4674: /* emit free for the switch condition*/
4675: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4676: opline->opcode = (switch_entry_ptr->cond.op_type == IS_TMP_VAR) ? ZEND_FREE : ZEND_SWITCH_FREE;
1.1.1.2 misho 4677: SET_NODE(opline->op1, &switch_entry_ptr->cond);
1.1 misho 4678: SET_UNUSED(opline->op2);
4679: }
4680: if (switch_entry_ptr->cond.op_type == IS_CONST) {
4681: zval_dtor(&switch_entry_ptr->cond.u.constant);
4682: }
4683:
4684: zend_stack_del_top(&CG(switch_cond_stack));
4685:
4686: DEC_BPC(CG(active_op_array));
4687: }
4688: /* }}} */
4689:
4690: void zend_do_case_before_statement(const znode *case_list, znode *case_token, const znode *case_expr TSRMLS_DC) /* {{{ */
4691: {
4692: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4693: int next_op_number;
4694: zend_switch_entry *switch_entry_ptr;
4695: znode result;
4696:
4697: zend_stack_top(&CG(switch_cond_stack), (void **) &switch_entry_ptr);
4698:
4699: if (switch_entry_ptr->control_var == -1) {
4700: switch_entry_ptr->control_var = get_temporary_variable(CG(active_op_array));
4701: }
4702: opline->opcode = ZEND_CASE;
1.1.1.2 misho 4703: opline->result.var = switch_entry_ptr->control_var;
4704: opline->result_type = IS_TMP_VAR;
4705: SET_NODE(opline->op1, &switch_entry_ptr->cond);
4706: SET_NODE(opline->op2, case_expr);
4707: if (opline->op1_type == IS_CONST) {
4708: zval_copy_ctor(&CONSTANT(opline->op1.constant));
1.1 misho 4709: }
1.1.1.2 misho 4710: GET_NODE(&result, opline->result);
1.1 misho 4711:
4712: next_op_number = get_next_op_number(CG(active_op_array));
4713: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4714: opline->opcode = ZEND_JMPZ;
1.1.1.2 misho 4715: SET_NODE(opline->op1, &result);
1.1 misho 4716: SET_UNUSED(opline->op2);
1.1.1.2 misho 4717: case_token->u.op.opline_num = next_op_number;
1.1 misho 4718:
4719: if (case_list->op_type==IS_UNUSED) {
4720: return;
4721: }
4722: next_op_number = get_next_op_number(CG(active_op_array));
1.1.1.2 misho 4723: CG(active_op_array)->opcodes[case_list->u.op.opline_num].op1.opline_num = next_op_number;
1.1 misho 4724: }
4725: /* }}} */
4726:
4727: void zend_do_case_after_statement(znode *result, const znode *case_token TSRMLS_DC) /* {{{ */
4728: {
4729: int next_op_number = get_next_op_number(CG(active_op_array));
4730: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4731:
4732: opline->opcode = ZEND_JMP;
4733: SET_UNUSED(opline->op1);
4734: SET_UNUSED(opline->op2);
1.1.1.2 misho 4735: result->u.op.opline_num = next_op_number;
1.1 misho 4736:
1.1.1.2 misho 4737: switch (CG(active_op_array)->opcodes[case_token->u.op.opline_num].opcode) {
1.1 misho 4738: case ZEND_JMP:
1.1.1.2 misho 4739: CG(active_op_array)->opcodes[case_token->u.op.opline_num].op1.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 4740: break;
4741: case ZEND_JMPZ:
1.1.1.2 misho 4742: CG(active_op_array)->opcodes[case_token->u.op.opline_num].op2.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 4743: break;
4744: }
4745: }
4746: /* }}} */
4747:
4748: void zend_do_default_before_statement(const znode *case_list, znode *default_token TSRMLS_DC) /* {{{ */
4749: {
4750: int next_op_number = get_next_op_number(CG(active_op_array));
4751: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4752: zend_switch_entry *switch_entry_ptr;
4753:
4754: zend_stack_top(&CG(switch_cond_stack), (void **) &switch_entry_ptr);
4755:
4756: opline->opcode = ZEND_JMP;
4757: SET_UNUSED(opline->op1);
4758: SET_UNUSED(opline->op2);
1.1.1.2 misho 4759: default_token->u.op.opline_num = next_op_number;
1.1 misho 4760:
4761: next_op_number = get_next_op_number(CG(active_op_array));
4762: switch_entry_ptr->default_case = next_op_number;
4763:
4764: if (case_list->op_type==IS_UNUSED) {
4765: return;
4766: }
1.1.1.2 misho 4767: CG(active_op_array)->opcodes[case_list->u.op.opline_num].op1.opline_num = next_op_number;
1.1 misho 4768: }
4769: /* }}} */
4770:
4771: void zend_do_begin_class_declaration(const znode *class_token, znode *class_name, const znode *parent_class_name TSRMLS_DC) /* {{{ */
4772: {
4773: zend_op *opline;
4774: int doing_inheritance = 0;
4775: zend_class_entry *new_class_entry;
4776: char *lcname;
4777: int error = 0;
1.1.1.2 misho 4778: zval **ns_name, key;
1.1 misho 4779:
4780: if (CG(active_class_entry)) {
4781: zend_error(E_COMPILE_ERROR, "Class declarations may not be nested");
4782: return;
4783: }
4784:
4785: lcname = zend_str_tolower_dup(class_name->u.constant.value.str.val, class_name->u.constant.value.str.len);
4786:
4787: if (!(strcmp(lcname, "self") && strcmp(lcname, "parent"))) {
4788: efree(lcname);
1.1.1.2 misho 4789: zend_error(E_COMPILE_ERROR, "Cannot use '%s' as class name as it is reserved", Z_STRVAL(class_name->u.constant));
1.1 misho 4790: }
4791:
4792: /* Class name must not conflict with import names */
4793: if (CG(current_import) &&
1.1.1.2 misho 4794: zend_hash_find(CG(current_import), lcname, Z_STRLEN(class_name->u.constant)+1, (void**)&ns_name) == SUCCESS) {
1.1 misho 4795: error = 1;
4796: }
4797:
4798: if (CG(current_namespace)) {
4799: /* Prefix class name with name of current namespace */
4800: znode tmp;
4801:
1.1.1.3 misho 4802: tmp.op_type = IS_CONST;
1.1 misho 4803: tmp.u.constant = *CG(current_namespace);
4804: zval_copy_ctor(&tmp.u.constant);
4805: zend_do_build_namespace_name(&tmp, &tmp, class_name TSRMLS_CC);
1.1.1.3 misho 4806: *class_name = tmp;
1.1 misho 4807: efree(lcname);
4808: lcname = zend_str_tolower_dup(Z_STRVAL(class_name->u.constant), Z_STRLEN(class_name->u.constant));
4809: }
4810:
4811: if (error) {
4812: char *tmp = zend_str_tolower_dup(Z_STRVAL_PP(ns_name), Z_STRLEN_PP(ns_name));
4813:
4814: if (Z_STRLEN_PP(ns_name) != Z_STRLEN(class_name->u.constant) ||
4815: memcmp(tmp, lcname, Z_STRLEN(class_name->u.constant))) {
4816: zend_error(E_COMPILE_ERROR, "Cannot declare class %s because the name is already in use", Z_STRVAL(class_name->u.constant));
4817: }
4818: efree(tmp);
4819: }
4820:
4821: new_class_entry = emalloc(sizeof(zend_class_entry));
4822: new_class_entry->type = ZEND_USER_CLASS;
1.1.1.2 misho 4823: new_class_entry->name = zend_new_interned_string(Z_STRVAL(class_name->u.constant), Z_STRLEN(class_name->u.constant) + 1, 1 TSRMLS_CC);
4824: new_class_entry->name_length = Z_STRLEN(class_name->u.constant);
1.1 misho 4825:
4826: zend_initialize_class_data(new_class_entry, 1 TSRMLS_CC);
1.1.1.2 misho 4827: new_class_entry->info.user.filename = zend_get_compiled_filename(TSRMLS_C);
4828: new_class_entry->info.user.line_start = class_token->u.op.opline_num;
4829: new_class_entry->ce_flags |= class_token->EA;
1.1 misho 4830:
4831: if (parent_class_name && parent_class_name->op_type != IS_UNUSED) {
1.1.1.2 misho 4832: switch (parent_class_name->EA) {
1.1 misho 4833: case ZEND_FETCH_CLASS_SELF:
4834: zend_error(E_COMPILE_ERROR, "Cannot use 'self' as class name as it is reserved");
4835: break;
4836: case ZEND_FETCH_CLASS_PARENT:
4837: zend_error(E_COMPILE_ERROR, "Cannot use 'parent' as class name as it is reserved");
4838: break;
4839: case ZEND_FETCH_CLASS_STATIC:
4840: zend_error(E_COMPILE_ERROR, "Cannot use 'static' as class name as it is reserved");
4841: break;
4842: default:
4843: break;
4844: }
4845: doing_inheritance = 1;
4846: }
4847:
4848: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1.1.1.2 misho 4849: opline->op1_type = IS_CONST;
4850: build_runtime_defined_function_key(&key, lcname, new_class_entry->name_length TSRMLS_CC);
4851: opline->op1.constant = zend_add_literal(CG(active_op_array), &key TSRMLS_CC);
4852: Z_HASH_P(&CONSTANT(opline->op1.constant)) = zend_hash_func(Z_STRVAL(CONSTANT(opline->op1.constant)), Z_STRLEN(CONSTANT(opline->op1.constant)));
1.1 misho 4853:
1.1.1.2 misho 4854: opline->op2_type = IS_CONST;
1.1 misho 4855:
4856: if (doing_inheritance) {
1.1.1.3 misho 4857: /* Make sure a trait does not try to extend a class */
4858: if ((new_class_entry->ce_flags & ZEND_ACC_TRAIT) == ZEND_ACC_TRAIT) {
4859: zend_error(E_COMPILE_ERROR, "A trait (%s) cannot extend a class. Traits can only be composed from other traits with the 'use' keyword. Error", new_class_entry->name);
4860: }
4861:
1.1.1.2 misho 4862: opline->extended_value = parent_class_name->u.op.var;
1.1 misho 4863: opline->opcode = ZEND_DECLARE_INHERITED_CLASS;
4864: } else {
4865: opline->opcode = ZEND_DECLARE_CLASS;
4866: }
4867:
1.1.1.2 misho 4868: LITERAL_STRINGL(opline->op2, lcname, new_class_entry->name_length, 0);
4869: CALCULATE_LITERAL_HASH(opline->op2.constant);
1.1 misho 4870:
1.1.1.2 misho 4871: zend_hash_quick_update(CG(class_table), Z_STRVAL(key), Z_STRLEN(key), Z_HASH_P(&CONSTANT(opline->op1.constant)), &new_class_entry, sizeof(zend_class_entry *), NULL);
1.1 misho 4872: CG(active_class_entry) = new_class_entry;
4873:
1.1.1.2 misho 4874: opline->result.var = get_temporary_variable(CG(active_op_array));
4875: opline->result_type = IS_VAR;
4876: GET_NODE(&CG(implementing_class), opline->result);
1.1 misho 4877:
4878: if (CG(doc_comment)) {
1.1.1.2 misho 4879: CG(active_class_entry)->info.user.doc_comment = CG(doc_comment);
4880: CG(active_class_entry)->info.user.doc_comment_len = CG(doc_comment_len);
1.1 misho 4881: CG(doc_comment) = NULL;
4882: CG(doc_comment_len) = 0;
4883: }
4884: }
4885: /* }}} */
4886:
4887: static void do_verify_abstract_class(TSRMLS_D) /* {{{ */
4888: {
4889: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4890:
4891: opline->opcode = ZEND_VERIFY_ABSTRACT_CLASS;
1.1.1.2 misho 4892: SET_NODE(opline->op1, &CG(implementing_class));
1.1 misho 4893: SET_UNUSED(opline->op2);
4894: }
4895: /* }}} */
4896:
4897: void zend_do_end_class_declaration(const znode *class_token, const znode *parent_token TSRMLS_DC) /* {{{ */
4898: {
4899: zend_class_entry *ce = CG(active_class_entry);
4900:
4901: if (ce->constructor) {
4902: ce->constructor->common.fn_flags |= ZEND_ACC_CTOR;
4903: if (ce->constructor->common.fn_flags & ZEND_ACC_STATIC) {
4904: zend_error(E_COMPILE_ERROR, "Constructor %s::%s() cannot be static", ce->name, ce->constructor->common.function_name);
4905: }
4906: }
4907: if (ce->destructor) {
4908: ce->destructor->common.fn_flags |= ZEND_ACC_DTOR;
4909: if (ce->destructor->common.fn_flags & ZEND_ACC_STATIC) {
4910: zend_error(E_COMPILE_ERROR, "Destructor %s::%s() cannot be static", ce->name, ce->destructor->common.function_name);
4911: }
4912: }
4913: if (ce->clone) {
4914: ce->clone->common.fn_flags |= ZEND_ACC_CLONE;
4915: if (ce->clone->common.fn_flags & ZEND_ACC_STATIC) {
4916: zend_error(E_COMPILE_ERROR, "Clone method %s::%s() cannot be static", ce->name, ce->clone->common.function_name);
4917: }
4918: }
4919:
1.1.1.2 misho 4920: ce->info.user.line_end = zend_get_compiled_lineno(TSRMLS_C);
4921:
4922: /* Check for traits and proceed like with interfaces.
4923: * The only difference will be a combined handling of them in the end.
4924: * Thus, we need another opcode here. */
4925: if (ce->num_traits > 0) {
4926: zend_op *opline;
4927:
4928: ce->traits = NULL;
4929: ce->num_traits = 0;
4930: ce->ce_flags |= ZEND_ACC_IMPLEMENT_TRAITS;
4931:
4932: /* opcode generation: */
4933: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4934: opline->opcode = ZEND_BIND_TRAITS;
4935: SET_NODE(opline->op1, &CG(implementing_class));
4936: }
1.1 misho 4937:
4938: if (!(ce->ce_flags & (ZEND_ACC_INTERFACE|ZEND_ACC_EXPLICIT_ABSTRACT_CLASS))
1.1.1.3 misho 4939: && (parent_token || (ce->num_interfaces > 0))) {
1.1 misho 4940: zend_verify_abstract_class(ce TSRMLS_CC);
1.1.1.3 misho 4941: if (ce->num_interfaces && !(ce->ce_flags & ZEND_ACC_IMPLEMENT_TRAITS)) {
1.1 misho 4942: do_verify_abstract_class(TSRMLS_C);
4943: }
4944: }
4945: /* Inherit interfaces; reset number to zero, we need it for above check and
4946: * will restore it during actual implementation.
4947: * The ZEND_ACC_IMPLEMENT_INTERFACES flag disables double call to
4948: * zend_verify_abstract_class() */
4949: if (ce->num_interfaces > 0) {
4950: ce->interfaces = NULL;
4951: ce->num_interfaces = 0;
4952: ce->ce_flags |= ZEND_ACC_IMPLEMENT_INTERFACES;
4953: }
1.1.1.2 misho 4954:
1.1 misho 4955: CG(active_class_entry) = NULL;
4956: }
4957: /* }}} */
4958:
4959: void zend_do_implements_interface(znode *interface_name TSRMLS_DC) /* {{{ */
4960: {
4961: zend_op *opline;
4962:
1.1.1.2 misho 4963: /* Traits can not implement interfaces */
4964: if ((CG(active_class_entry)->ce_flags & ZEND_ACC_TRAIT) == ZEND_ACC_TRAIT) {
4965: zend_error(E_COMPILE_ERROR, "Cannot use '%s' as interface on '%s' since it is a Trait",
4966: Z_STRVAL(interface_name->u.constant),
4967: CG(active_class_entry)->name);
4968: }
4969:
1.1 misho 4970: switch (zend_get_class_fetch_type(Z_STRVAL(interface_name->u.constant), Z_STRLEN(interface_name->u.constant))) {
4971: case ZEND_FETCH_CLASS_SELF:
4972: case ZEND_FETCH_CLASS_PARENT:
4973: case ZEND_FETCH_CLASS_STATIC:
4974: zend_error(E_COMPILE_ERROR, "Cannot use '%s' as interface name as it is reserved", Z_STRVAL(interface_name->u.constant));
4975: break;
4976: default:
4977: break;
4978: }
4979:
4980: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4981: opline->opcode = ZEND_ADD_INTERFACE;
1.1.1.2 misho 4982: SET_NODE(opline->op1, &CG(implementing_class));
4983: zend_resolve_class_name(interface_name, opline->extended_value, 0 TSRMLS_CC);
1.1 misho 4984: opline->extended_value = (opline->extended_value & ~ZEND_FETCH_CLASS_MASK) | ZEND_FETCH_CLASS_INTERFACE;
1.1.1.2 misho 4985: opline->op2_type = IS_CONST;
4986: opline->op2.constant = zend_add_class_name_literal(CG(active_op_array), &interface_name->u.constant TSRMLS_CC);
1.1 misho 4987: CG(active_class_entry)->num_interfaces++;
4988: }
4989: /* }}} */
4990:
1.1.1.3 misho 4991: void zend_do_use_trait(znode *trait_name TSRMLS_DC) /* {{{ */
1.1.1.2 misho 4992: {
4993: zend_op *opline;
1.1.1.3 misho 4994:
1.1.1.2 misho 4995: if ((CG(active_class_entry)->ce_flags & ZEND_ACC_INTERFACE)) {
4996: zend_error(E_COMPILE_ERROR,
4997: "Cannot use traits inside of interfaces. %s is used in %s",
4998: Z_STRVAL(trait_name->u.constant), CG(active_class_entry)->name);
4999: }
5000:
5001:
5002: switch (zend_get_class_fetch_type(Z_STRVAL(trait_name->u.constant), Z_STRLEN(trait_name->u.constant))) {
5003: case ZEND_FETCH_CLASS_SELF:
5004: case ZEND_FETCH_CLASS_PARENT:
5005: case ZEND_FETCH_CLASS_STATIC:
5006: zend_error(E_COMPILE_ERROR, "Cannot use '%s' as trait name as it is reserved", Z_STRVAL(trait_name->u.constant));
5007: break;
5008: default:
5009: break;
5010: }
5011:
5012: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5013: opline->opcode = ZEND_ADD_TRAIT;
5014: SET_NODE(opline->op1, &CG(implementing_class));
5015: zend_resolve_class_name(trait_name, opline->extended_value, 0 TSRMLS_CC);
5016: opline->extended_value = ZEND_FETCH_CLASS_TRAIT;
5017: opline->op2_type = IS_CONST;
5018: opline->op2.constant = zend_add_class_name_literal(CG(active_op_array), &trait_name->u.constant TSRMLS_CC);
5019: CG(active_class_entry)->num_traits++;
5020: }
5021: /* }}} */
5022:
1.1 misho 5023: ZEND_API void zend_mangle_property_name(char **dest, int *dest_length, const char *src1, int src1_length, const char *src2, int src2_length, int internal) /* {{{ */
5024: {
5025: char *prop_name;
5026: int prop_name_length;
5027:
5028: prop_name_length = 1 + src1_length + 1 + src2_length;
5029: prop_name = pemalloc(prop_name_length + 1, internal);
5030: prop_name[0] = '\0';
5031: memcpy(prop_name + 1, src1, src1_length+1);
5032: memcpy(prop_name + 1 + src1_length + 1, src2, src2_length+1);
5033:
5034: *dest = prop_name;
5035: *dest_length = prop_name_length;
5036: }
5037: /* }}} */
5038:
5039: static int zend_strnlen(const char* s, int maxlen) /* {{{ */
5040: {
5041: int len = 0;
5042: while (*s++ && maxlen--) len++;
5043: return len;
5044: }
5045: /* }}} */
5046:
1.1.1.2 misho 5047: ZEND_API int zend_unmangle_property_name(const char *mangled_property, int len, const char **class_name, const char **prop_name) /* {{{ */
1.1 misho 5048: {
5049: int class_name_len;
5050:
5051: *class_name = NULL;
5052:
5053: if (mangled_property[0]!=0) {
5054: *prop_name = mangled_property;
5055: return SUCCESS;
5056: }
5057: if (len < 3 || mangled_property[1]==0) {
5058: zend_error(E_NOTICE, "Illegal member variable name");
5059: *prop_name = mangled_property;
5060: return FAILURE;
5061: }
5062:
5063: class_name_len = zend_strnlen(mangled_property+1, --len - 1) + 1;
5064: if (class_name_len >= len || mangled_property[class_name_len]!=0) {
5065: zend_error(E_NOTICE, "Corrupt member variable name");
5066: *prop_name = mangled_property;
5067: return FAILURE;
5068: }
5069: *class_name = mangled_property+1;
5070: *prop_name = (*class_name)+class_name_len;
5071: return SUCCESS;
5072: }
5073: /* }}} */
5074:
5075: void zend_do_declare_property(const znode *var_name, const znode *value, zend_uint access_type TSRMLS_DC) /* {{{ */
5076: {
5077: zval *property;
5078: zend_property_info *existing_property_info;
5079: char *comment = NULL;
5080: int comment_len = 0;
5081:
5082: if (CG(active_class_entry)->ce_flags & ZEND_ACC_INTERFACE) {
5083: zend_error(E_COMPILE_ERROR, "Interfaces may not include member variables");
5084: }
5085:
5086: if (access_type & ZEND_ACC_ABSTRACT) {
5087: zend_error(E_COMPILE_ERROR, "Properties cannot be declared abstract");
5088: }
5089:
5090: if (access_type & ZEND_ACC_FINAL) {
5091: zend_error(E_COMPILE_ERROR, "Cannot declare property %s::$%s final, the final modifier is allowed only for methods and classes",
1.1.1.2 misho 5092: CG(active_class_entry)->name, var_name->u.constant.value.str.val);
1.1 misho 5093: }
5094:
5095: if (zend_hash_find(&CG(active_class_entry)->properties_info, var_name->u.constant.value.str.val, var_name->u.constant.value.str.len+1, (void **) &existing_property_info)==SUCCESS) {
1.1.1.2 misho 5096: zend_error(E_COMPILE_ERROR, "Cannot redeclare %s::$%s", CG(active_class_entry)->name, var_name->u.constant.value.str.val);
1.1 misho 5097: }
5098: ALLOC_ZVAL(property);
5099:
5100: if (value) {
5101: *property = value->u.constant;
5102: } else {
5103: INIT_PZVAL(property);
5104: Z_TYPE_P(property) = IS_NULL;
5105: }
5106:
5107: if (CG(doc_comment)) {
5108: comment = CG(doc_comment);
5109: comment_len = CG(doc_comment_len);
5110: CG(doc_comment) = NULL;
5111: CG(doc_comment_len) = 0;
5112: }
5113:
1.1.1.2 misho 5114: zend_declare_property_ex(CG(active_class_entry), zend_new_interned_string(var_name->u.constant.value.str.val, var_name->u.constant.value.str.len + 1, 0 TSRMLS_CC), var_name->u.constant.value.str.len, property, access_type, comment, comment_len TSRMLS_CC);
1.1 misho 5115: efree(var_name->u.constant.value.str.val);
5116: }
5117: /* }}} */
5118:
5119: void zend_do_declare_class_constant(znode *var_name, const znode *value TSRMLS_DC) /* {{{ */
5120: {
5121: zval *property;
1.1.1.2 misho 5122: const char *cname = NULL;
5123: int result;
1.1 misho 5124:
5125: if(Z_TYPE(value->u.constant) == IS_CONSTANT_ARRAY) {
5126: zend_error(E_COMPILE_ERROR, "Arrays are not allowed in class constants");
1.1.1.2 misho 5127: return;
5128: }
5129: if ((CG(active_class_entry)->ce_flags & ZEND_ACC_TRAIT) == ZEND_ACC_TRAIT) {
5130: zend_error(E_COMPILE_ERROR, "Traits cannot have constants");
5131: return;
1.1 misho 5132: }
5133:
5134: ALLOC_ZVAL(property);
5135: *property = value->u.constant;
1.1.1.2 misho 5136:
5137: cname = zend_new_interned_string(var_name->u.constant.value.str.val, var_name->u.constant.value.str.len+1, 0 TSRMLS_CC);
1.1 misho 5138:
1.1.1.2 misho 5139: if (IS_INTERNED(cname)) {
5140: result = zend_hash_quick_add(&CG(active_class_entry)->constants_table, cname, var_name->u.constant.value.str.len+1, INTERNED_HASH(cname), &property, sizeof(zval *), NULL);
5141: } else {
5142: result = zend_hash_add(&CG(active_class_entry)->constants_table, cname, var_name->u.constant.value.str.len+1, &property, sizeof(zval *), NULL);
5143: }
5144: if (result == FAILURE) {
1.1 misho 5145: FREE_ZVAL(property);
5146: zend_error(E_COMPILE_ERROR, "Cannot redefine class constant %s::%s", CG(active_class_entry)->name, var_name->u.constant.value.str.val);
5147: }
5148: FREE_PNODE(var_name);
5149:
5150: if (CG(doc_comment)) {
5151: efree(CG(doc_comment));
5152: CG(doc_comment) = NULL;
5153: CG(doc_comment_len) = 0;
5154: }
5155: }
5156: /* }}} */
5157:
5158: void zend_do_fetch_property(znode *result, znode *object, const znode *property TSRMLS_DC) /* {{{ */
5159: {
5160: zend_op opline;
5161: zend_llist *fetch_list_ptr;
5162:
5163: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
5164:
5165: if (object->op_type == IS_CV) {
1.1.1.2 misho 5166: if (object->u.op.var == CG(active_op_array)->this_var) {
5167: object->op_type = IS_UNUSED; /* this means $this for objects */
1.1 misho 5168: }
5169: } else if (fetch_list_ptr->count == 1) {
5170: zend_llist_element *le = fetch_list_ptr->head;
5171: zend_op *opline_ptr = (zend_op *) le->data;
5172:
5173: if (opline_is_fetch_this(opline_ptr TSRMLS_CC)) {
1.1.1.2 misho 5174: zend_del_literal(CG(active_op_array), opline_ptr->op1.constant);
1.1 misho 5175: SET_UNUSED(opline_ptr->op1); /* this means $this for objects */
1.1.1.2 misho 5176: SET_NODE(opline_ptr->op2, property);
1.1 misho 5177: /* if it was usual fetch, we change it to object fetch */
5178: switch (opline_ptr->opcode) {
5179: case ZEND_FETCH_W:
5180: opline_ptr->opcode = ZEND_FETCH_OBJ_W;
5181: break;
5182: case ZEND_FETCH_R:
5183: opline_ptr->opcode = ZEND_FETCH_OBJ_R;
5184: break;
5185: case ZEND_FETCH_RW:
5186: opline_ptr->opcode = ZEND_FETCH_OBJ_RW;
5187: break;
5188: case ZEND_FETCH_IS:
5189: opline_ptr->opcode = ZEND_FETCH_OBJ_IS;
5190: break;
5191: case ZEND_FETCH_UNSET:
5192: opline_ptr->opcode = ZEND_FETCH_OBJ_UNSET;
5193: break;
5194: case ZEND_FETCH_FUNC_ARG:
5195: opline_ptr->opcode = ZEND_FETCH_OBJ_FUNC_ARG;
5196: break;
5197: }
1.1.1.2 misho 5198: if (opline_ptr->op2_type == IS_CONST && Z_TYPE(CONSTANT(opline_ptr->op2.constant)) == IS_STRING) {
5199: CALCULATE_LITERAL_HASH(opline_ptr->op2.constant);
5200: GET_POLYMORPHIC_CACHE_SLOT(opline_ptr->op2.constant);
5201: }
5202: GET_NODE(result, opline_ptr->result);
1.1 misho 5203: return;
5204: }
5205: }
5206:
1.1.1.2 misho 5207: if (zend_is_function_or_method_call(object)) {
5208: init_op(&opline TSRMLS_CC);
5209: opline.opcode = ZEND_SEPARATE;
5210: SET_NODE(opline.op1, object);
5211: SET_UNUSED(opline.op2);
5212: opline.result_type = IS_VAR;
5213: opline.result.var = opline.op1.var;
5214: zend_llist_add_element(fetch_list_ptr, &opline);
5215: }
5216:
1.1 misho 5217: init_op(&opline TSRMLS_CC);
5218: opline.opcode = ZEND_FETCH_OBJ_W; /* the backpatching routine assumes W */
1.1.1.2 misho 5219: opline.result_type = IS_VAR;
5220: opline.result.var = get_temporary_variable(CG(active_op_array));
5221: SET_NODE(opline.op1, object);
5222: SET_NODE(opline.op2, property);
5223: if (opline.op2_type == IS_CONST && Z_TYPE(CONSTANT(opline.op2.constant)) == IS_STRING) {
5224: CALCULATE_LITERAL_HASH(opline.op2.constant);
5225: GET_POLYMORPHIC_CACHE_SLOT(opline.op2.constant);
5226: }
5227: GET_NODE(result, opline.result);
1.1 misho 5228:
5229: zend_llist_add_element(fetch_list_ptr, &opline);
5230: }
5231: /* }}} */
5232:
5233: void zend_do_halt_compiler_register(TSRMLS_D) /* {{{ */
5234: {
5235: char *name, *cfilename;
5236: char haltoff[] = "__COMPILER_HALT_OFFSET__";
5237: int len, clen;
5238:
5239: if (CG(has_bracketed_namespaces) && CG(in_namespace)) {
5240: zend_error(E_COMPILE_ERROR, "__HALT_COMPILER() can only be used from the outermost scope");
5241: }
5242:
5243: cfilename = zend_get_compiled_filename(TSRMLS_C);
5244: clen = strlen(cfilename);
5245: zend_mangle_property_name(&name, &len, haltoff, sizeof(haltoff) - 1, cfilename, clen, 0);
5246: zend_register_long_constant(name, len+1, zend_get_scanned_file_offset(TSRMLS_C), CONST_CS, 0 TSRMLS_CC);
5247: pefree(name, 0);
5248:
5249: if (CG(in_namespace)) {
5250: zend_do_end_namespace(TSRMLS_C);
5251: }
5252: }
5253: /* }}} */
5254:
5255: void zend_do_push_object(const znode *object TSRMLS_DC) /* {{{ */
5256: {
5257: zend_stack_push(&CG(object_stack), object, sizeof(znode));
5258: }
5259: /* }}} */
5260:
5261: void zend_do_pop_object(znode *object TSRMLS_DC) /* {{{ */
5262: {
5263: if (object) {
5264: znode *tmp;
5265:
5266: zend_stack_top(&CG(object_stack), (void **) &tmp);
5267: *object = *tmp;
5268: }
5269: zend_stack_del_top(&CG(object_stack));
5270: }
5271: /* }}} */
5272:
5273: void zend_do_begin_new_object(znode *new_token, znode *class_type TSRMLS_DC) /* {{{ */
5274: {
5275: zend_op *opline;
5276: unsigned char *ptr = NULL;
5277:
1.1.1.2 misho 5278: new_token->u.op.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 5279: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5280: opline->opcode = ZEND_NEW;
1.1.1.2 misho 5281: opline->result_type = IS_VAR;
5282: opline->result.var = get_temporary_variable(CG(active_op_array));
5283: SET_NODE(opline->op1, class_type);
1.1 misho 5284: SET_UNUSED(opline->op2);
5285:
5286: zend_stack_push(&CG(function_call_stack), (void *) &ptr, sizeof(unsigned char *));
5287: }
5288: /* }}} */
5289:
5290: void zend_do_end_new_object(znode *result, const znode *new_token, const znode *argument_list TSRMLS_DC) /* {{{ */
5291: {
5292: znode ctor_result;
5293:
5294: zend_do_end_function_call(NULL, &ctor_result, argument_list, 1, 0 TSRMLS_CC);
5295: zend_do_free(&ctor_result TSRMLS_CC);
5296:
1.1.1.2 misho 5297: CG(active_op_array)->opcodes[new_token->u.op.opline_num].op2.opline_num = get_next_op_number(CG(active_op_array));
5298: GET_NODE(result, CG(active_op_array)->opcodes[new_token->u.op.opline_num].result);
1.1 misho 5299: }
5300: /* }}} */
5301:
5302: static zend_constant* zend_get_ct_const(const zval *const_name, int all_internal_constants_substitution TSRMLS_DC) /* {{{ */
5303: {
5304: zend_constant *c = NULL;
5305:
5306: if (Z_STRVAL_P(const_name)[0] == '\\') {
5307: if (zend_hash_find(EG(zend_constants), Z_STRVAL_P(const_name)+1, Z_STRLEN_P(const_name), (void **) &c) == FAILURE) {
5308: char *lookup_name = zend_str_tolower_dup(Z_STRVAL_P(const_name)+1, Z_STRLEN_P(const_name)-1);
5309:
5310: if (zend_hash_find(EG(zend_constants), lookup_name, Z_STRLEN_P(const_name), (void **) &c)==SUCCESS) {
5311: if ((c->flags & CONST_CT_SUBST) && !(c->flags & CONST_CS)) {
5312: efree(lookup_name);
5313: return c;
5314: }
5315: }
5316: efree(lookup_name);
5317: return NULL;
5318: }
5319: } else if (zend_hash_find(EG(zend_constants), Z_STRVAL_P(const_name), Z_STRLEN_P(const_name)+1, (void **) &c) == FAILURE) {
5320: char *lookup_name = zend_str_tolower_dup(Z_STRVAL_P(const_name), Z_STRLEN_P(const_name));
5321:
5322: if (zend_hash_find(EG(zend_constants), lookup_name, Z_STRLEN_P(const_name)+1, (void **) &c)==SUCCESS) {
5323: if ((c->flags & CONST_CT_SUBST) && !(c->flags & CONST_CS)) {
5324: efree(lookup_name);
5325: return c;
5326: }
5327: }
5328: efree(lookup_name);
5329: return NULL;
5330: }
5331: if (c->flags & CONST_CT_SUBST) {
5332: return c;
5333: }
5334: if (all_internal_constants_substitution &&
1.1.1.2 misho 5335: (c->flags & CONST_PERSISTENT) &&
5336: !(CG(compiler_options) & ZEND_COMPILE_NO_CONSTANT_SUBSTITUTION) &&
5337: Z_TYPE(c->value) != IS_CONSTANT &&
5338: Z_TYPE(c->value) != IS_CONSTANT_ARRAY) {
1.1 misho 5339: return c;
5340: }
5341: return NULL;
5342: }
5343: /* }}} */
5344:
5345: static int zend_constant_ct_subst(znode *result, zval *const_name, int all_internal_constants_substitution TSRMLS_DC) /* {{{ */
5346: {
5347: zend_constant *c = zend_get_ct_const(const_name, all_internal_constants_substitution TSRMLS_CC);
5348:
5349: if (c) {
5350: zval_dtor(const_name);
5351: result->op_type = IS_CONST;
5352: result->u.constant = c->value;
5353: zval_copy_ctor(&result->u.constant);
5354: INIT_PZVAL(&result->u.constant);
5355: return 1;
5356: }
5357: return 0;
5358: }
5359: /* }}} */
5360:
5361: void zend_do_fetch_constant(znode *result, znode *constant_container, znode *constant_name, int mode, zend_bool check_namespace TSRMLS_DC) /* {{{ */
5362: {
5363: znode tmp;
5364: zend_op *opline;
5365: int type;
5366: char *compound;
5367: ulong fetch_type = 0;
5368:
5369: if (constant_container) {
5370: switch (mode) {
5371: case ZEND_CT:
5372: /* this is a class constant */
5373: type = zend_get_class_fetch_type(Z_STRVAL(constant_container->u.constant), Z_STRLEN(constant_container->u.constant));
5374:
5375: if (ZEND_FETCH_CLASS_STATIC == type) {
5376: zend_error(E_ERROR, "\"static::\" is not allowed in compile-time constants");
5377: } else if (ZEND_FETCH_CLASS_DEFAULT == type) {
1.1.1.2 misho 5378: zend_resolve_class_name(constant_container, fetch_type, 1 TSRMLS_CC);
1.1 misho 5379: }
5380: zend_do_build_full_name(NULL, constant_container, constant_name, 1 TSRMLS_CC);
5381: *result = *constant_container;
5382: result->u.constant.type = IS_CONSTANT | fetch_type;
5383: break;
5384: case ZEND_RT:
5385: if (constant_container->op_type == IS_CONST &&
5386: ZEND_FETCH_CLASS_DEFAULT == zend_get_class_fetch_type(Z_STRVAL(constant_container->u.constant), Z_STRLEN(constant_container->u.constant))) {
1.1.1.2 misho 5387: zend_resolve_class_name(constant_container, fetch_type, 1 TSRMLS_CC);
1.1 misho 5388: } else {
5389: zend_do_fetch_class(&tmp, constant_container TSRMLS_CC);
5390: constant_container = &tmp;
5391: }
5392: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5393: opline->opcode = ZEND_FETCH_CONSTANT;
1.1.1.2 misho 5394: opline->result_type = IS_TMP_VAR;
5395: opline->result.var = get_temporary_variable(CG(active_op_array));
5396: if (constant_container->op_type == IS_CONST) {
5397: opline->op1_type = IS_CONST;
5398: opline->op1.constant = zend_add_class_name_literal(CG(active_op_array), &constant_container->u.constant TSRMLS_CC);
5399: } else {
5400: SET_NODE(opline->op1, constant_container);
5401: }
5402: SET_NODE(opline->op2, constant_name);
5403: CALCULATE_LITERAL_HASH(opline->op2.constant);
5404: if (opline->op1_type == IS_CONST) {
5405: GET_CACHE_SLOT(opline->op2.constant);
5406: } else {
5407: GET_POLYMORPHIC_CACHE_SLOT(opline->op2.constant);
5408: }
5409: GET_NODE(result, opline->result);
1.1 misho 5410: break;
5411: }
5412: return;
5413: }
5414: /* namespace constant */
5415: /* only one that did not contain \ from the start can be converted to string if unknown */
5416: switch (mode) {
5417: case ZEND_CT:
5418: compound = memchr(Z_STRVAL(constant_name->u.constant), '\\', Z_STRLEN(constant_name->u.constant));
5419: /* this is a namespace constant, or an unprefixed constant */
5420:
5421: if (zend_constant_ct_subst(result, &constant_name->u.constant, 0 TSRMLS_CC)) {
5422: break;
5423: }
5424:
5425: zend_resolve_non_class_name(constant_name, check_namespace TSRMLS_CC);
5426:
5427: if(!compound) {
5428: fetch_type |= IS_CONSTANT_UNQUALIFIED;
5429: }
5430:
5431: *result = *constant_name;
5432: result->u.constant.type = IS_CONSTANT | fetch_type;
5433: break;
5434: case ZEND_RT:
5435: compound = memchr(Z_STRVAL(constant_name->u.constant), '\\', Z_STRLEN(constant_name->u.constant));
5436:
5437: zend_resolve_non_class_name(constant_name, check_namespace TSRMLS_CC);
5438:
5439: if(zend_constant_ct_subst(result, &constant_name->u.constant, 1 TSRMLS_CC)) {
5440: break;
5441: }
5442:
5443: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5444: opline->opcode = ZEND_FETCH_CONSTANT;
1.1.1.2 misho 5445: opline->result_type = IS_TMP_VAR;
5446: opline->result.var = get_temporary_variable(CG(active_op_array));
5447: GET_NODE(result, opline->result);
1.1 misho 5448: SET_UNUSED(opline->op1);
1.1.1.2 misho 5449: opline->op2_type = IS_CONST;
5450: if (compound) {
1.1 misho 5451: /* the name is unambiguous */
5452: opline->extended_value = 0;
1.1.1.2 misho 5453: opline->op2.constant = zend_add_const_name_literal(CG(active_op_array), &constant_name->u.constant, 0 TSRMLS_CC);
5454: } else {
1.1 misho 5455: opline->extended_value = IS_CONSTANT_UNQUALIFIED;
1.1.1.2 misho 5456: if (CG(current_namespace)) {
5457: opline->extended_value |= IS_CONSTANT_IN_NAMESPACE;
5458: opline->op2.constant = zend_add_const_name_literal(CG(active_op_array), &constant_name->u.constant, 1 TSRMLS_CC);
5459: } else {
5460: opline->op2.constant = zend_add_const_name_literal(CG(active_op_array), &constant_name->u.constant, 0 TSRMLS_CC);
5461: }
1.1 misho 5462: }
1.1.1.2 misho 5463: GET_CACHE_SLOT(opline->op2.constant);
1.1 misho 5464: break;
5465: }
5466: }
5467: /* }}} */
5468:
5469: void zend_do_shell_exec(znode *result, const znode *cmd TSRMLS_DC) /* {{{ */
5470: {
5471: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5472:
5473: switch (cmd->op_type) {
5474: case IS_CONST:
5475: case IS_TMP_VAR:
5476: opline->opcode = ZEND_SEND_VAL;
5477: break;
5478: default:
5479: opline->opcode = ZEND_SEND_VAR;
5480: break;
5481: }
1.1.1.2 misho 5482: SET_NODE(opline->op1, cmd);
1.1.1.3 misho 5483: opline->op2.opline_num = 1;
1.1 misho 5484: opline->extended_value = ZEND_DO_FCALL;
5485: SET_UNUSED(opline->op2);
5486:
5487: /* FIXME: exception support not added to this op2 */
5488: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5489: opline->opcode = ZEND_DO_FCALL;
1.1.1.2 misho 5490: opline->result.var = get_temporary_variable(CG(active_op_array));
5491: opline->result_type = IS_VAR;
5492: LITERAL_STRINGL(opline->op1, estrndup("shell_exec", sizeof("shell_exec")-1), sizeof("shell_exec")-1, 0);
5493: CALCULATE_LITERAL_HASH(opline->op1.constant);
5494: opline->op1_type = IS_CONST;
5495: GET_CACHE_SLOT(opline->op1.constant);
1.1 misho 5496: opline->extended_value = 1;
5497: SET_UNUSED(opline->op2);
1.1.1.2 misho 5498: GET_NODE(result, opline->result);
1.1 misho 5499: }
5500: /* }}} */
5501:
5502: void zend_do_init_array(znode *result, const znode *expr, const znode *offset, zend_bool is_ref TSRMLS_DC) /* {{{ */
5503: {
5504: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5505:
5506: opline->opcode = ZEND_INIT_ARRAY;
1.1.1.2 misho 5507: opline->result.var = get_temporary_variable(CG(active_op_array));
5508: opline->result_type = IS_TMP_VAR;
5509: GET_NODE(result, opline->result);
1.1 misho 5510: if (expr) {
1.1.1.2 misho 5511: SET_NODE(opline->op1, expr);
1.1 misho 5512: if (offset) {
1.1.1.2 misho 5513: SET_NODE(opline->op2, offset);
5514: if (opline->op2_type == IS_CONST && Z_TYPE(CONSTANT(opline->op2.constant)) == IS_STRING) {
5515: ulong index;
5516: int numeric = 0;
5517:
5518: ZEND_HANDLE_NUMERIC_EX(Z_STRVAL(CONSTANT(opline->op2.constant)), Z_STRLEN(CONSTANT(opline->op2.constant))+1, index, numeric = 1);
5519: if (numeric) {
5520: zval_dtor(&CONSTANT(opline->op2.constant));
5521: ZVAL_LONG(&CONSTANT(opline->op2.constant), index);
5522: } else {
5523: CALCULATE_LITERAL_HASH(opline->op2.constant);
5524: }
5525: }
1.1 misho 5526: } else {
5527: SET_UNUSED(opline->op2);
5528: }
5529: } else {
5530: SET_UNUSED(opline->op1);
5531: SET_UNUSED(opline->op2);
5532: }
5533: opline->extended_value = is_ref;
5534: }
5535: /* }}} */
5536:
5537: void zend_do_add_array_element(znode *result, const znode *expr, const znode *offset, zend_bool is_ref TSRMLS_DC) /* {{{ */
5538: {
5539: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5540:
5541: opline->opcode = ZEND_ADD_ARRAY_ELEMENT;
1.1.1.2 misho 5542: SET_NODE(opline->result, result);
5543: SET_NODE(opline->op1, expr);
1.1 misho 5544: if (offset) {
1.1.1.2 misho 5545: SET_NODE(opline->op2, offset);
5546: if (opline->op2_type == IS_CONST && Z_TYPE(CONSTANT(opline->op2.constant)) == IS_STRING) {
5547: ulong index;
5548: int numeric = 0;
5549:
5550: ZEND_HANDLE_NUMERIC_EX(Z_STRVAL(CONSTANT(opline->op2.constant)), Z_STRLEN(CONSTANT(opline->op2.constant))+1, index, numeric = 1);
5551: if (numeric) {
5552: zval_dtor(&CONSTANT(opline->op2.constant));
5553: ZVAL_LONG(&CONSTANT(opline->op2.constant), index);
5554: } else {
5555: CALCULATE_LITERAL_HASH(opline->op2.constant);
5556: }
5557: }
1.1 misho 5558: } else {
5559: SET_UNUSED(opline->op2);
5560: }
5561: opline->extended_value = is_ref;
5562: }
5563: /* }}} */
5564:
5565: void zend_do_add_static_array_element(znode *result, znode *offset, const znode *expr) /* {{{ */
5566: {
5567: zval *element;
5568:
5569: ALLOC_ZVAL(element);
5570: *element = expr->u.constant;
5571: if (offset) {
5572: switch (offset->u.constant.type & IS_CONSTANT_TYPE_MASK) {
5573: case IS_CONSTANT:
5574: /* Ugly hack to denote that this value has a constant index */
5575: Z_TYPE_P(element) |= IS_CONSTANT_INDEX;
5576: Z_STRVAL(offset->u.constant) = erealloc(Z_STRVAL(offset->u.constant), Z_STRLEN(offset->u.constant)+3);
5577: Z_STRVAL(offset->u.constant)[Z_STRLEN(offset->u.constant)+1] = Z_TYPE(offset->u.constant);
5578: Z_STRVAL(offset->u.constant)[Z_STRLEN(offset->u.constant)+2] = 0;
5579: zend_symtable_update(result->u.constant.value.ht, Z_STRVAL(offset->u.constant), Z_STRLEN(offset->u.constant)+3, &element, sizeof(zval *), NULL);
5580: zval_dtor(&offset->u.constant);
5581: break;
5582: case IS_STRING:
5583: zend_symtable_update(result->u.constant.value.ht, offset->u.constant.value.str.val, offset->u.constant.value.str.len+1, &element, sizeof(zval *), NULL);
5584: zval_dtor(&offset->u.constant);
5585: break;
5586: case IS_NULL:
5587: zend_symtable_update(Z_ARRVAL(result->u.constant), "", 1, &element, sizeof(zval *), NULL);
5588: break;
5589: case IS_LONG:
5590: case IS_BOOL:
5591: zend_hash_index_update(Z_ARRVAL(result->u.constant), Z_LVAL(offset->u.constant), &element, sizeof(zval *), NULL);
5592: break;
5593: case IS_DOUBLE:
5594: zend_hash_index_update(Z_ARRVAL(result->u.constant), zend_dval_to_lval(Z_DVAL(offset->u.constant)), &element, sizeof(zval *), NULL);
5595: break;
5596: case IS_CONSTANT_ARRAY:
5597: zend_error(E_ERROR, "Illegal offset type");
5598: break;
5599: }
5600: } else {
5601: zend_hash_next_index_insert(Z_ARRVAL(result->u.constant), &element, sizeof(zval *), NULL);
5602: }
5603: }
5604: /* }}} */
5605:
5606: void zend_do_add_list_element(const znode *element TSRMLS_DC) /* {{{ */
5607: {
5608: list_llist_element lle;
5609:
5610: if (element) {
5611: zend_check_writable_variable(element);
5612:
5613: lle.var = *element;
5614: zend_llist_copy(&lle.dimensions, &CG(dimension_llist));
5615: zend_llist_prepend_element(&CG(list_llist), &lle);
5616: }
5617: (*((int *)CG(dimension_llist).tail->data))++;
5618: }
5619: /* }}} */
5620:
5621: void zend_do_new_list_begin(TSRMLS_D) /* {{{ */
5622: {
5623: int current_dimension = 0;
5624: zend_llist_add_element(&CG(dimension_llist), ¤t_dimension);
5625: }
5626: /* }}} */
5627:
5628: void zend_do_new_list_end(TSRMLS_D) /* {{{ */
5629: {
5630: zend_llist_remove_tail(&CG(dimension_llist));
5631: (*((int *)CG(dimension_llist).tail->data))++;
5632: }
5633: /* }}} */
5634:
5635: void zend_do_list_init(TSRMLS_D) /* {{{ */
5636: {
5637: zend_stack_push(&CG(list_stack), &CG(list_llist), sizeof(zend_llist));
5638: zend_stack_push(&CG(list_stack), &CG(dimension_llist), sizeof(zend_llist));
5639: zend_llist_init(&CG(list_llist), sizeof(list_llist_element), NULL, 0);
5640: zend_llist_init(&CG(dimension_llist), sizeof(int), NULL, 0);
5641: zend_do_new_list_begin(TSRMLS_C);
5642: }
5643: /* }}} */
5644:
5645: void zend_do_list_end(znode *result, znode *expr TSRMLS_DC) /* {{{ */
5646: {
5647: zend_llist_element *le;
5648: zend_llist_element *dimension;
5649: zend_op *opline;
5650: znode last_container;
5651:
5652: le = CG(list_llist).head;
5653: while (le) {
5654: zend_llist *tmp_dimension_llist = &((list_llist_element *)le->data)->dimensions;
5655: dimension = tmp_dimension_llist->head;
5656: while (dimension) {
5657: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5658: if (dimension == tmp_dimension_llist->head) { /* first */
5659: last_container = *expr;
5660: switch (expr->op_type) {
5661: case IS_VAR:
5662: case IS_CV:
5663: opline->opcode = ZEND_FETCH_DIM_R;
5664: break;
5665: case IS_TMP_VAR:
5666: opline->opcode = ZEND_FETCH_DIM_TMP_VAR;
5667: break;
5668: case IS_CONST: /* fetch_dim_tmp_var will handle this bogus fetch */
5669: zval_copy_ctor(&expr->u.constant);
5670: opline->opcode = ZEND_FETCH_DIM_TMP_VAR;
5671: break;
5672: }
1.1.1.2 misho 5673: opline->extended_value |= ZEND_FETCH_ADD_LOCK;
1.1 misho 5674: } else {
5675: opline->opcode = ZEND_FETCH_DIM_R;
5676: }
1.1.1.2 misho 5677: opline->result_type = IS_VAR;
5678: opline->result.var = get_temporary_variable(CG(active_op_array));
5679: SET_NODE(opline->op1, &last_container);
5680: opline->op2_type = IS_CONST;
5681: LITERAL_LONG(opline->op2, *((int *) dimension->data));
5682: GET_NODE(&last_container, opline->result);
1.1 misho 5683: dimension = dimension->next;
5684: }
5685: ((list_llist_element *) le->data)->value = last_container;
5686: zend_llist_destroy(&((list_llist_element *) le->data)->dimensions);
5687: zend_do_assign(result, &((list_llist_element *) le->data)->var, &((list_llist_element *) le->data)->value TSRMLS_CC);
5688: zend_do_free(result TSRMLS_CC);
5689: le = le->next;
5690: }
5691: zend_llist_destroy(&CG(dimension_llist));
5692: zend_llist_destroy(&CG(list_llist));
5693: *result = *expr;
5694: {
5695: zend_llist *p;
5696:
5697: /* restore previous lists */
5698: zend_stack_top(&CG(list_stack), (void **) &p);
5699: CG(dimension_llist) = *p;
5700: zend_stack_del_top(&CG(list_stack));
5701: zend_stack_top(&CG(list_stack), (void **) &p);
5702: CG(list_llist) = *p;
5703: zend_stack_del_top(&CG(list_stack));
5704: }
5705: }
5706: /* }}} */
5707:
1.1.1.2 misho 5708: void zend_init_list(void *result, void *item TSRMLS_DC) /* {{{ */
5709: {
5710: void** list = emalloc(sizeof(void*) * 2);
5711:
5712: list[0] = item;
5713: list[1] = NULL;
5714:
5715: *(void**)result = list;
5716: }
5717: /* }}} */
5718:
5719: void zend_add_to_list(void *result, void *item TSRMLS_DC) /* {{{ */
5720: {
5721: void** list = *(void**)result;
5722: size_t n = 0;
5723:
1.1.1.3 misho 5724: if (list) {
5725: while (list[n]) {
5726: n++;
5727: }
5728: }
1.1.1.2 misho 5729:
5730: list = erealloc(list, sizeof(void*) * (n+2));
5731:
5732: list[n] = item;
5733: list[n+1] = NULL;
5734:
5735: *(void**)result = list;
5736: }
5737: /* }}} */
5738:
1.1 misho 5739: void zend_do_fetch_static_variable(znode *varname, const znode *static_assignment, int fetch_type TSRMLS_DC) /* {{{ */
5740: {
5741: zval *tmp;
5742: zend_op *opline;
5743: znode lval;
5744: znode result;
5745:
5746: ALLOC_ZVAL(tmp);
5747:
5748: if (static_assignment) {
5749: *tmp = static_assignment->u.constant;
5750: } else {
5751: INIT_ZVAL(*tmp);
5752: }
5753: if (!CG(active_op_array)->static_variables) {
1.1.1.2 misho 5754: if (CG(active_op_array)->scope) {
5755: CG(active_op_array)->scope->ce_flags |= ZEND_HAS_STATIC_IN_METHODS;
5756: }
1.1 misho 5757: ALLOC_HASHTABLE(CG(active_op_array)->static_variables);
5758: zend_hash_init(CG(active_op_array)->static_variables, 2, NULL, ZVAL_PTR_DTOR, 0);
5759: }
5760: 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);
5761:
5762: if (varname->op_type == IS_CONST) {
5763: if (Z_TYPE(varname->u.constant) != IS_STRING) {
5764: convert_to_string(&varname->u.constant);
5765: }
5766: }
5767:
5768: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5769: opline->opcode = (fetch_type == ZEND_FETCH_LEXICAL) ? ZEND_FETCH_R : ZEND_FETCH_W; /* the default mode must be Write, since fetch_simple_variable() is used to define function arguments */
1.1.1.2 misho 5770: opline->result_type = IS_VAR;
5771: opline->result.var = get_temporary_variable(CG(active_op_array));
5772: SET_NODE(opline->op1, varname);
5773: if (opline->op1_type == IS_CONST) {
5774: CALCULATE_LITERAL_HASH(opline->op1.constant);
5775: }
1.1 misho 5776: SET_UNUSED(opline->op2);
1.1.1.2 misho 5777: opline->extended_value = ZEND_FETCH_STATIC;
5778: GET_NODE(&result, opline->result);
1.1 misho 5779:
5780: if (varname->op_type == IS_CONST) {
5781: zval_copy_ctor(&varname->u.constant);
5782: }
5783: fetch_simple_variable(&lval, varname, 0 TSRMLS_CC); /* Relies on the fact that the default fetch is BP_VAR_W */
5784:
5785: if (fetch_type == ZEND_FETCH_LEXICAL) {
5786: znode dummy;
5787:
5788: zend_do_begin_variable_parse(TSRMLS_C);
5789: zend_do_assign(&dummy, &lval, &result TSRMLS_CC);
5790: zend_do_free(&dummy TSRMLS_CC);
5791: } else {
5792: zend_do_assign_ref(NULL, &lval, &result TSRMLS_CC);
5793: }
1.1.1.2 misho 5794: CG(active_op_array)->opcodes[CG(active_op_array)->last-1].result_type |= EXT_TYPE_UNUSED;
1.1 misho 5795: }
5796: /* }}} */
5797:
5798: void zend_do_fetch_lexical_variable(znode *varname, zend_bool is_ref TSRMLS_DC) /* {{{ */
5799: {
5800: znode value;
5801:
5802: if (Z_STRLEN(varname->u.constant) == sizeof("this") - 1 &&
1.1.1.2 misho 5803: memcmp(Z_STRVAL(varname->u.constant), "this", sizeof("this") - 1) == 0) {
1.1 misho 5804: zend_error(E_COMPILE_ERROR, "Cannot use $this as lexical variable");
5805: return;
5806: }
5807:
5808: value.op_type = IS_CONST;
5809: ZVAL_NULL(&value.u.constant);
5810: Z_TYPE(value.u.constant) |= is_ref ? IS_LEXICAL_REF : IS_LEXICAL_VAR;
5811: Z_SET_REFCOUNT_P(&value.u.constant, 1);
5812: Z_UNSET_ISREF_P(&value.u.constant);
5813:
5814: zend_do_fetch_static_variable(varname, &value, is_ref ? ZEND_FETCH_STATIC : ZEND_FETCH_LEXICAL TSRMLS_CC);
5815: }
5816: /* }}} */
5817:
5818: void zend_do_fetch_global_variable(znode *varname, const znode *static_assignment, int fetch_type TSRMLS_DC) /* {{{ */
5819: {
5820: zend_op *opline;
5821: znode lval;
5822: znode result;
5823:
5824: if (varname->op_type == IS_CONST) {
5825: if (Z_TYPE(varname->u.constant) != IS_STRING) {
5826: convert_to_string(&varname->u.constant);
5827: }
5828: }
5829:
5830: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5831: opline->opcode = ZEND_FETCH_W; /* the default mode must be Write, since fetch_simple_variable() is used to define function arguments */
1.1.1.2 misho 5832: opline->result_type = IS_VAR;
5833: opline->result.var = get_temporary_variable(CG(active_op_array));
5834: SET_NODE(opline->op1, varname);
5835: if (opline->op1_type == IS_CONST) {
5836: CALCULATE_LITERAL_HASH(opline->op1.constant);
5837: }
1.1 misho 5838: SET_UNUSED(opline->op2);
1.1.1.2 misho 5839: opline->extended_value = fetch_type;
5840: GET_NODE(&result, opline->result);
1.1 misho 5841:
5842: if (varname->op_type == IS_CONST) {
5843: zval_copy_ctor(&varname->u.constant);
5844: }
5845: fetch_simple_variable(&lval, varname, 0 TSRMLS_CC); /* Relies on the fact that the default fetch is BP_VAR_W */
5846:
5847: zend_do_assign_ref(NULL, &lval, &result TSRMLS_CC);
1.1.1.2 misho 5848: CG(active_op_array)->opcodes[CG(active_op_array)->last-1].result_type |= EXT_TYPE_UNUSED;
1.1 misho 5849: }
5850: /* }}} */
5851:
5852: void zend_do_cast(znode *result, const znode *expr, int type TSRMLS_DC) /* {{{ */
5853: {
5854: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5855:
5856: opline->opcode = ZEND_CAST;
1.1.1.2 misho 5857: opline->result_type = IS_TMP_VAR;
5858: opline->result.var = get_temporary_variable(CG(active_op_array));
5859: SET_NODE(opline->op1, expr);
1.1 misho 5860: SET_UNUSED(opline->op2);
5861: opline->extended_value = type;
1.1.1.2 misho 5862: GET_NODE(result, opline->result);
1.1 misho 5863: }
5864: /* }}} */
5865:
5866: void zend_do_include_or_eval(int type, znode *result, const znode *op1 TSRMLS_DC) /* {{{ */
5867: {
5868: zend_do_extended_fcall_begin(TSRMLS_C);
5869: {
5870: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5871:
5872: opline->opcode = ZEND_INCLUDE_OR_EVAL;
1.1.1.2 misho 5873: opline->result_type = IS_VAR;
5874: opline->result.var = get_temporary_variable(CG(active_op_array));
5875: SET_NODE(opline->op1, op1);
1.1 misho 5876: SET_UNUSED(opline->op2);
1.1.1.2 misho 5877: opline->extended_value = type;
5878: GET_NODE(result, opline->result);
1.1 misho 5879: }
5880: zend_do_extended_fcall_end(TSRMLS_C);
5881: }
5882: /* }}} */
5883:
5884: void zend_do_indirect_references(znode *result, const znode *num_references, znode *variable TSRMLS_DC) /* {{{ */
5885: {
5886: int i;
5887:
5888: zend_do_end_variable_parse(variable, BP_VAR_R, 0 TSRMLS_CC);
5889: for (i=1; i<num_references->u.constant.value.lval; i++) {
5890: fetch_simple_variable_ex(result, variable, 0, ZEND_FETCH_R TSRMLS_CC);
5891: *variable = *result;
5892: }
5893: zend_do_begin_variable_parse(TSRMLS_C);
5894: fetch_simple_variable(result, variable, 1 TSRMLS_CC);
5895: /* there is a chance someone is accessing $this */
5896: if (CG(active_op_array)->scope && CG(active_op_array)->this_var == -1) {
1.1.1.2 misho 5897: CG(active_op_array)->this_var = lookup_cv(CG(active_op_array), estrndup("this", sizeof("this")-1), sizeof("this")-1, THIS_HASHVAL TSRMLS_CC);
1.1 misho 5898: }
5899: }
5900: /* }}} */
5901:
5902: void zend_do_unset(const znode *variable TSRMLS_DC) /* {{{ */
5903: {
5904: zend_op *last_op;
5905:
5906: zend_check_writable_variable(variable);
5907:
5908: if (variable->op_type == IS_CV) {
5909: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5910: opline->opcode = ZEND_UNSET_VAR;
1.1.1.2 misho 5911: SET_NODE(opline->op1, variable);
1.1 misho 5912: SET_UNUSED(opline->op2);
5913: SET_UNUSED(opline->result);
1.1.1.2 misho 5914: opline->extended_value = ZEND_FETCH_LOCAL | ZEND_QUICK_SET;
1.1 misho 5915: } else {
5916: last_op = &CG(active_op_array)->opcodes[get_next_op_number(CG(active_op_array))-1];
5917:
5918: switch (last_op->opcode) {
5919: case ZEND_FETCH_UNSET:
5920: last_op->opcode = ZEND_UNSET_VAR;
1.1.1.2 misho 5921: SET_UNUSED(last_op->result);
1.1 misho 5922: break;
5923: case ZEND_FETCH_DIM_UNSET:
5924: last_op->opcode = ZEND_UNSET_DIM;
1.1.1.2 misho 5925: SET_UNUSED(last_op->result);
1.1 misho 5926: break;
5927: case ZEND_FETCH_OBJ_UNSET:
5928: last_op->opcode = ZEND_UNSET_OBJ;
1.1.1.2 misho 5929: SET_UNUSED(last_op->result);
1.1 misho 5930: break;
5931:
5932: }
5933: }
5934: }
5935: /* }}} */
5936:
5937: void zend_do_isset_or_isempty(int type, znode *result, znode *variable TSRMLS_DC) /* {{{ */
5938: {
5939: zend_op *last_op;
5940:
5941: zend_do_end_variable_parse(variable, BP_VAR_IS, 0 TSRMLS_CC);
5942:
5943: zend_check_writable_variable(variable);
5944:
5945: if (variable->op_type == IS_CV) {
5946: last_op = get_next_op(CG(active_op_array) TSRMLS_CC);
5947: last_op->opcode = ZEND_ISSET_ISEMPTY_VAR;
1.1.1.2 misho 5948: SET_NODE(last_op->op1, variable);
1.1 misho 5949: SET_UNUSED(last_op->op2);
1.1.1.2 misho 5950: last_op->result.var = get_temporary_variable(CG(active_op_array));
5951: last_op->extended_value = ZEND_FETCH_LOCAL | ZEND_QUICK_SET;
1.1 misho 5952: } else {
5953: last_op = &CG(active_op_array)->opcodes[get_next_op_number(CG(active_op_array))-1];
5954:
5955: switch (last_op->opcode) {
5956: case ZEND_FETCH_IS:
5957: last_op->opcode = ZEND_ISSET_ISEMPTY_VAR;
5958: break;
5959: case ZEND_FETCH_DIM_IS:
5960: last_op->opcode = ZEND_ISSET_ISEMPTY_DIM_OBJ;
5961: break;
5962: case ZEND_FETCH_OBJ_IS:
5963: last_op->opcode = ZEND_ISSET_ISEMPTY_PROP_OBJ;
5964: break;
5965: }
5966: }
1.1.1.2 misho 5967: last_op->result_type = IS_TMP_VAR;
1.1 misho 5968: last_op->extended_value |= type;
5969:
1.1.1.2 misho 5970: GET_NODE(result, last_op->result);
1.1 misho 5971: }
5972: /* }}} */
5973:
5974: void zend_do_instanceof(znode *result, const znode *expr, const znode *class_znode, int type TSRMLS_DC) /* {{{ */
5975: {
5976: int last_op_number = get_next_op_number(CG(active_op_array));
5977: zend_op *opline;
5978:
5979: if (last_op_number > 0) {
5980: opline = &CG(active_op_array)->opcodes[last_op_number-1];
5981: if (opline->opcode == ZEND_FETCH_CLASS) {
5982: opline->extended_value |= ZEND_FETCH_CLASS_NO_AUTOLOAD;
5983: }
5984: }
5985:
5986: if (expr->op_type == IS_CONST) {
5987: zend_error(E_COMPILE_ERROR, "instanceof expects an object instance, constant given");
5988: }
5989:
5990: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5991: opline->opcode = ZEND_INSTANCEOF;
1.1.1.2 misho 5992: opline->result_type = IS_TMP_VAR;
5993: opline->result.var = get_temporary_variable(CG(active_op_array));
5994: SET_NODE(opline->op1, expr);
1.1 misho 5995:
1.1.1.2 misho 5996: SET_NODE(opline->op2, class_znode);
1.1 misho 5997:
1.1.1.2 misho 5998: GET_NODE(result, opline->result);
1.1 misho 5999: }
6000: /* }}} */
6001:
6002: void zend_do_foreach_begin(znode *foreach_token, znode *open_brackets_token, znode *array, znode *as_token, int variable TSRMLS_DC) /* {{{ */
6003: {
6004: zend_op *opline;
6005: zend_bool is_variable;
6006: zend_bool push_container = 0;
6007: zend_op dummy_opline;
6008:
6009: if (variable) {
6010: if (zend_is_function_or_method_call(array)) {
6011: is_variable = 0;
6012: } else {
6013: is_variable = 1;
6014: }
6015: /* save the location of FETCH_W instruction(s) */
1.1.1.2 misho 6016: open_brackets_token->u.op.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 6017: zend_do_end_variable_parse(array, BP_VAR_W, 0 TSRMLS_CC);
6018: if (CG(active_op_array)->last > 0 &&
1.1.1.2 misho 6019: CG(active_op_array)->opcodes[CG(active_op_array)->last-1].opcode == ZEND_FETCH_OBJ_W) {
1.1 misho 6020: /* Only lock the container if we are fetching from a real container and not $this */
1.1.1.2 misho 6021: if (CG(active_op_array)->opcodes[CG(active_op_array)->last-1].op1_type == IS_VAR) {
1.1 misho 6022: CG(active_op_array)->opcodes[CG(active_op_array)->last-1].extended_value |= ZEND_FETCH_ADD_LOCK;
6023: push_container = 1;
6024: }
6025: }
6026: } else {
6027: is_variable = 0;
1.1.1.2 misho 6028: open_brackets_token->u.op.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 6029: }
6030:
6031: /* save the location of FE_RESET */
1.1.1.2 misho 6032: foreach_token->u.op.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 6033:
6034: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6035:
6036: /* Preform array reset */
6037: opline->opcode = ZEND_FE_RESET;
1.1.1.2 misho 6038: opline->result_type = IS_VAR;
6039: opline->result.var = get_temporary_variable(CG(active_op_array));
6040: SET_NODE(opline->op1, array);
1.1 misho 6041: SET_UNUSED(opline->op2);
6042: opline->extended_value = is_variable ? ZEND_FE_RESET_VARIABLE : 0;
6043:
1.1.1.2 misho 6044: COPY_NODE(dummy_opline.result, opline->result);
1.1 misho 6045: if (push_container) {
1.1.1.2 misho 6046: COPY_NODE(dummy_opline.op1, CG(active_op_array)->opcodes[CG(active_op_array)->last-2].op1);
1.1 misho 6047: } else {
1.1.1.2 misho 6048: dummy_opline.op1_type = IS_UNUSED;
1.1 misho 6049: }
6050: zend_stack_push(&CG(foreach_copy_stack), (void *) &dummy_opline, sizeof(zend_op));
6051:
6052: /* save the location of FE_FETCH */
1.1.1.2 misho 6053: as_token->u.op.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 6054:
6055: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6056: opline->opcode = ZEND_FE_FETCH;
1.1.1.2 misho 6057: opline->result_type = IS_VAR;
6058: opline->result.var = get_temporary_variable(CG(active_op_array));
6059: COPY_NODE(opline->op1, dummy_opline.result);
1.1 misho 6060: opline->extended_value = 0;
6061: SET_UNUSED(opline->op2);
6062:
6063: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6064: opline->opcode = ZEND_OP_DATA;
6065: SET_UNUSED(opline->op1);
6066: SET_UNUSED(opline->op2);
6067: SET_UNUSED(opline->result);
6068: }
6069: /* }}} */
6070:
6071: void zend_do_foreach_cont(znode *foreach_token, const znode *open_brackets_token, const znode *as_token, znode *value, znode *key TSRMLS_DC) /* {{{ */
6072: {
6073: zend_op *opline;
6074: znode dummy, value_node;
6075: zend_bool assign_by_ref=0;
6076:
1.1.1.2 misho 6077: opline = &CG(active_op_array)->opcodes[as_token->u.op.opline_num];
1.1 misho 6078: if (key->op_type != IS_UNUSED) {
6079: znode *tmp;
6080:
6081: /* switch between the key and value... */
6082: tmp = key;
6083: key = value;
6084: value = tmp;
6085:
6086: /* Mark extended_value in case both key and value are being used */
6087: opline->extended_value |= ZEND_FE_FETCH_WITH_KEY;
6088: }
6089:
1.1.1.2 misho 6090: if ((key->op_type != IS_UNUSED) && (key->EA & ZEND_PARSED_REFERENCE_VARIABLE)) {
1.1 misho 6091: zend_error(E_COMPILE_ERROR, "Key element cannot be a reference");
6092: }
6093:
1.1.1.2 misho 6094: if (value->EA & ZEND_PARSED_REFERENCE_VARIABLE) {
1.1 misho 6095: assign_by_ref = 1;
6096: if (!(opline-1)->extended_value) {
6097: zend_error(E_COMPILE_ERROR, "Cannot create references to elements of a temporary array expression");
6098: }
6099: /* Mark extended_value for assign-by-reference */
6100: opline->extended_value |= ZEND_FE_FETCH_BYREF;
1.1.1.2 misho 6101: CG(active_op_array)->opcodes[foreach_token->u.op.opline_num].extended_value |= ZEND_FE_RESET_REFERENCE;
1.1 misho 6102: } else {
6103: zend_op *foreach_copy;
1.1.1.2 misho 6104: zend_op *fetch = &CG(active_op_array)->opcodes[foreach_token->u.op.opline_num];
6105: zend_op *end = &CG(active_op_array)->opcodes[open_brackets_token->u.op.opline_num];
1.1 misho 6106:
6107: /* Change "write context" into "read context" */
6108: fetch->extended_value = 0; /* reset ZEND_FE_RESET_VARIABLE */
6109: while (fetch != end) {
6110: --fetch;
1.1.1.2 misho 6111: if (fetch->opcode == ZEND_FETCH_DIM_W && fetch->op2_type == IS_UNUSED) {
1.1 misho 6112: zend_error(E_COMPILE_ERROR, "Cannot use [] for reading");
6113: }
1.1.1.2 misho 6114: if (fetch->opcode == ZEND_SEPARATE) {
6115: MAKE_NOP(fetch);
6116: } else {
6117: fetch->opcode -= 3; /* FETCH_W -> FETCH_R */
6118: }
1.1 misho 6119: }
6120: /* prevent double SWITCH_FREE */
6121: zend_stack_top(&CG(foreach_copy_stack), (void **) &foreach_copy);
1.1.1.2 misho 6122: foreach_copy->op1_type = IS_UNUSED;
1.1 misho 6123: }
6124:
1.1.1.2 misho 6125: GET_NODE(&value_node, opline->result);
1.1 misho 6126:
6127: if (assign_by_ref) {
6128: zend_do_end_variable_parse(value, BP_VAR_W, 0 TSRMLS_CC);
6129: /* Mark FE_FETCH as IS_VAR as it holds the data directly as a value */
6130: zend_do_assign_ref(NULL, value, &value_node TSRMLS_CC);
6131: } else {
6132: zend_do_assign(&dummy, value, &value_node TSRMLS_CC);
6133: zend_do_free(&dummy TSRMLS_CC);
6134: }
6135:
6136: if (key->op_type != IS_UNUSED) {
6137: znode key_node;
6138:
1.1.1.2 misho 6139: opline = &CG(active_op_array)->opcodes[as_token->u.op.opline_num+1];
6140: opline->result_type = IS_TMP_VAR;
6141: opline->result.opline_num = get_temporary_variable(CG(active_op_array));
6142: GET_NODE(&key_node, opline->result);
1.1 misho 6143:
6144: zend_do_assign(&dummy, key, &key_node TSRMLS_CC);
6145: zend_do_free(&dummy TSRMLS_CC);
6146: }
6147:
6148: do_begin_loop(TSRMLS_C);
6149: INC_BPC(CG(active_op_array));
6150: }
6151: /* }}} */
6152:
6153: void zend_do_foreach_end(const znode *foreach_token, const znode *as_token TSRMLS_DC) /* {{{ */
6154: {
6155: zend_op *container_ptr;
6156: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6157:
6158: opline->opcode = ZEND_JMP;
1.1.1.2 misho 6159: opline->op1.opline_num = as_token->u.op.opline_num;
1.1 misho 6160: SET_UNUSED(opline->op1);
6161: SET_UNUSED(opline->op2);
6162:
1.1.1.2 misho 6163: CG(active_op_array)->opcodes[foreach_token->u.op.opline_num].op2.opline_num = get_next_op_number(CG(active_op_array)); /* FE_RESET */
6164: CG(active_op_array)->opcodes[as_token->u.op.opline_num].op2.opline_num = get_next_op_number(CG(active_op_array)); /* FE_FETCH */
1.1 misho 6165:
1.1.1.2 misho 6166: do_end_loop(as_token->u.op.opline_num, 1 TSRMLS_CC);
1.1 misho 6167:
6168: zend_stack_top(&CG(foreach_copy_stack), (void **) &container_ptr);
6169: generate_free_foreach_copy(container_ptr TSRMLS_CC);
6170: zend_stack_del_top(&CG(foreach_copy_stack));
6171:
6172: DEC_BPC(CG(active_op_array));
6173: }
6174: /* }}} */
6175:
6176: void zend_do_declare_begin(TSRMLS_D) /* {{{ */
6177: {
6178: zend_stack_push(&CG(declare_stack), &CG(declarables), sizeof(zend_declarables));
6179: }
6180: /* }}} */
6181:
6182: void zend_do_declare_stmt(znode *var, znode *val TSRMLS_DC) /* {{{ */
6183: {
6184: if (!zend_binary_strcasecmp(var->u.constant.value.str.val, var->u.constant.value.str.len, "ticks", sizeof("ticks")-1)) {
6185: convert_to_long(&val->u.constant);
6186: CG(declarables).ticks = val->u.constant;
6187: } else if (!zend_binary_strcasecmp(var->u.constant.value.str.val, var->u.constant.value.str.len, "encoding", sizeof("encoding")-1)) {
6188: if ((Z_TYPE(val->u.constant) & IS_CONSTANT_TYPE_MASK) == IS_CONSTANT) {
6189: zend_error(E_COMPILE_ERROR, "Cannot use constants as encoding");
6190: }
6191:
6192: /*
6193: * Check that the pragma comes before any opcodes. If the compilation
6194: * got as far as this, the previous portion of the script must have been
6195: * parseable according to the .ini script_encoding setting. We still
6196: * want to tell them to put declare() at the top.
6197: */
6198: {
6199: int num = CG(active_op_array)->last;
6200: /* ignore ZEND_EXT_STMT and ZEND_TICKS */
6201: while (num > 0 &&
1.1.1.2 misho 6202: (CG(active_op_array)->opcodes[num-1].opcode == ZEND_EXT_STMT ||
6203: CG(active_op_array)->opcodes[num-1].opcode == ZEND_TICKS)) {
1.1 misho 6204: --num;
6205: }
6206:
6207: if (num > 0) {
6208: zend_error(E_COMPILE_ERROR, "Encoding declaration pragma must be the very first statement in the script");
6209: }
6210: }
6211:
1.1.1.2 misho 6212: if (CG(multibyte)) {
6213: const zend_encoding *new_encoding, *old_encoding;
6214: zend_encoding_filter old_input_filter;
6215:
6216: CG(encoding_declared) = 1;
6217:
6218: convert_to_string(&val->u.constant);
6219: new_encoding = zend_multibyte_fetch_encoding(val->u.constant.value.str.val TSRMLS_CC);
6220: if (!new_encoding) {
6221: zend_error(E_COMPILE_WARNING, "Unsupported encoding [%s]", val->u.constant.value.str.val);
6222: } else {
6223: old_input_filter = LANG_SCNG(input_filter);
6224: old_encoding = LANG_SCNG(script_encoding);
6225: zend_multibyte_set_filter(new_encoding TSRMLS_CC);
6226:
6227: /* need to re-scan if input filter changed */
6228: if (old_input_filter != LANG_SCNG(input_filter) ||
6229: (old_input_filter && new_encoding != old_encoding)) {
6230: zend_multibyte_yyinput_again(old_input_filter, old_encoding TSRMLS_CC);
6231: }
1.1 misho 6232: }
1.1.1.2 misho 6233: } else {
6234: zend_error(E_COMPILE_WARNING, "declare(encoding=...) ignored because Zend multibyte feature is turned off by settings");
1.1 misho 6235: }
6236: zval_dtor(&val->u.constant);
6237: } else {
6238: zend_error(E_COMPILE_WARNING, "Unsupported declare '%s'", var->u.constant.value.str.val);
6239: zval_dtor(&val->u.constant);
6240: }
6241: zval_dtor(&var->u.constant);
6242: }
6243: /* }}} */
6244:
6245: void zend_do_declare_end(const znode *declare_token TSRMLS_DC) /* {{{ */
6246: {
6247: zend_declarables *declarables;
6248:
6249: zend_stack_top(&CG(declare_stack), (void **) &declarables);
6250: /* We should restore if there was more than (current - start) - (ticks?1:0) opcodes */
1.1.1.2 misho 6251: if ((get_next_op_number(CG(active_op_array)) - declare_token->u.op.opline_num) - ((Z_LVAL(CG(declarables).ticks))?1:0)) {
1.1 misho 6252: CG(declarables) = *declarables;
6253: }
6254: }
6255: /* }}} */
6256:
6257: void zend_do_exit(znode *result, const znode *message TSRMLS_DC) /* {{{ */
6258: {
6259: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6260:
6261: opline->opcode = ZEND_EXIT;
1.1.1.2 misho 6262: SET_NODE(opline->op1, message);
1.1 misho 6263: SET_UNUSED(opline->op2);
6264:
6265: result->op_type = IS_CONST;
6266: Z_TYPE(result->u.constant) = IS_BOOL;
6267: Z_LVAL(result->u.constant) = 1;
6268: }
6269: /* }}} */
6270:
6271: void zend_do_begin_silence(znode *strudel_token TSRMLS_DC) /* {{{ */
6272: {
6273: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6274:
6275: opline->opcode = ZEND_BEGIN_SILENCE;
1.1.1.2 misho 6276: opline->result_type = IS_TMP_VAR;
6277: opline->result.var = get_temporary_variable(CG(active_op_array));
1.1 misho 6278: SET_UNUSED(opline->op1);
6279: SET_UNUSED(opline->op2);
1.1.1.2 misho 6280: GET_NODE(strudel_token, opline->result);
1.1 misho 6281: }
6282: /* }}} */
6283:
6284: void zend_do_end_silence(const znode *strudel_token TSRMLS_DC) /* {{{ */
6285: {
6286: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6287:
6288: opline->opcode = ZEND_END_SILENCE;
1.1.1.2 misho 6289: SET_NODE(opline->op1, strudel_token);
1.1 misho 6290: SET_UNUSED(opline->op2);
6291: }
6292: /* }}} */
6293:
6294: void zend_do_jmp_set(const znode *value, znode *jmp_token, znode *colon_token TSRMLS_DC) /* {{{ */
6295: {
6296: int op_number = get_next_op_number(CG(active_op_array));
6297: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6298:
1.1.1.2 misho 6299: if (value->op_type == IS_VAR || value->op_type == IS_CV) {
6300: opline->opcode = ZEND_JMP_SET_VAR;
6301: opline->result_type = IS_VAR;
6302: } else {
6303: opline->opcode = ZEND_JMP_SET;
6304: opline->result_type = IS_TMP_VAR;
6305: }
6306: opline->result.var = get_temporary_variable(CG(active_op_array));
6307: SET_NODE(opline->op1, value);
1.1 misho 6308: SET_UNUSED(opline->op2);
6309:
1.1.1.2 misho 6310: GET_NODE(colon_token, opline->result);
1.1 misho 6311:
1.1.1.2 misho 6312: jmp_token->u.op.opline_num = op_number;
1.1 misho 6313:
6314: INC_BPC(CG(active_op_array));
6315: }
6316: /* }}} */
6317:
6318: void zend_do_jmp_set_else(znode *result, const znode *false_value, const znode *jmp_token, const znode *colon_token TSRMLS_DC) /* {{{ */
6319: {
6320: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6321:
1.1.1.2 misho 6322: SET_NODE(opline->result, colon_token);
6323: if (colon_token->op_type == IS_TMP_VAR) {
6324: if (false_value->op_type == IS_VAR || false_value->op_type == IS_CV) {
6325: CG(active_op_array)->opcodes[jmp_token->u.op.opline_num].opcode = ZEND_JMP_SET_VAR;
6326: CG(active_op_array)->opcodes[jmp_token->u.op.opline_num].result_type = IS_VAR;
6327: opline->opcode = ZEND_QM_ASSIGN_VAR;
6328: opline->result_type = IS_VAR;
6329: } else {
6330: opline->opcode = ZEND_QM_ASSIGN;
6331: }
6332: } else {
6333: opline->opcode = ZEND_QM_ASSIGN_VAR;
6334: }
1.1 misho 6335: opline->extended_value = 0;
1.1.1.2 misho 6336: SET_NODE(opline->op1, false_value);
1.1 misho 6337: SET_UNUSED(opline->op2);
6338:
1.1.1.2 misho 6339: GET_NODE(result, opline->result);
1.1 misho 6340:
1.1.1.2 misho 6341: CG(active_op_array)->opcodes[jmp_token->u.op.opline_num].op2.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 6342:
6343: DEC_BPC(CG(active_op_array));
6344: }
6345: /* }}} */
6346:
6347: void zend_do_begin_qm_op(const znode *cond, znode *qm_token TSRMLS_DC) /* {{{ */
6348: {
6349: int jmpz_op_number = get_next_op_number(CG(active_op_array));
6350: zend_op *opline;
6351:
6352: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6353:
6354: opline->opcode = ZEND_JMPZ;
1.1.1.2 misho 6355: SET_NODE(opline->op1, cond);
1.1 misho 6356: SET_UNUSED(opline->op2);
1.1.1.2 misho 6357: opline->op2.opline_num = jmpz_op_number;
6358: GET_NODE(qm_token, opline->op2);
1.1 misho 6359:
6360: INC_BPC(CG(active_op_array));
6361: }
6362: /* }}} */
6363:
6364: void zend_do_qm_true(const znode *true_value, znode *qm_token, znode *colon_token TSRMLS_DC) /* {{{ */
6365: {
6366: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6367:
1.1.1.2 misho 6368: CG(active_op_array)->opcodes[qm_token->u.op.opline_num].op2.opline_num = get_next_op_number(CG(active_op_array))+1; /* jmp over the ZEND_JMP */
1.1 misho 6369:
1.1.1.2 misho 6370: if (true_value->op_type == IS_VAR || true_value->op_type == IS_CV) {
6371: opline->opcode = ZEND_QM_ASSIGN_VAR;
6372: opline->result_type = IS_VAR;
6373: } else {
6374: opline->opcode = ZEND_QM_ASSIGN;
6375: opline->result_type = IS_TMP_VAR;
6376: }
6377: opline->result.var = get_temporary_variable(CG(active_op_array));
6378: SET_NODE(opline->op1, true_value);
1.1 misho 6379: SET_UNUSED(opline->op2);
6380:
1.1.1.2 misho 6381: GET_NODE(qm_token, opline->result);
6382: colon_token->u.op.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 6383:
6384: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6385: opline->opcode = ZEND_JMP;
6386: SET_UNUSED(opline->op1);
6387: SET_UNUSED(opline->op2);
6388: }
6389: /* }}} */
6390:
6391: void zend_do_qm_false(znode *result, const znode *false_value, const znode *qm_token, const znode *colon_token TSRMLS_DC) /* {{{ */
6392: {
6393: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6394:
1.1.1.2 misho 6395: SET_NODE(opline->result, qm_token);
6396: if (qm_token->op_type == IS_TMP_VAR) {
6397: if (false_value->op_type == IS_VAR || false_value->op_type == IS_CV) {
6398: CG(active_op_array)->opcodes[colon_token->u.op.opline_num - 1].opcode = ZEND_QM_ASSIGN_VAR;
6399: CG(active_op_array)->opcodes[colon_token->u.op.opline_num - 1].result_type = IS_VAR;
6400: opline->opcode = ZEND_QM_ASSIGN_VAR;
6401: opline->result_type = IS_VAR;
6402: } else {
6403: opline->opcode = ZEND_QM_ASSIGN;
6404: }
6405: } else {
6406: opline->opcode = ZEND_QM_ASSIGN_VAR;
6407: }
6408: SET_NODE(opline->op1, false_value);
1.1 misho 6409: SET_UNUSED(opline->op2);
6410:
1.1.1.2 misho 6411: CG(active_op_array)->opcodes[colon_token->u.op.opline_num].op1.opline_num = get_next_op_number(CG(active_op_array));
1.1 misho 6412:
1.1.1.2 misho 6413: GET_NODE(result, opline->result);
1.1 misho 6414:
6415: DEC_BPC(CG(active_op_array));
6416: }
6417: /* }}} */
6418:
6419: void zend_do_extended_info(TSRMLS_D) /* {{{ */
6420: {
6421: zend_op *opline;
6422:
6423: if (!(CG(compiler_options) & ZEND_COMPILE_EXTENDED_INFO)) {
6424: return;
6425: }
6426:
6427: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6428:
6429: opline->opcode = ZEND_EXT_STMT;
6430: SET_UNUSED(opline->op1);
6431: SET_UNUSED(opline->op2);
6432: }
6433: /* }}} */
6434:
6435: void zend_do_extended_fcall_begin(TSRMLS_D) /* {{{ */
6436: {
6437: zend_op *opline;
6438:
6439: if (!(CG(compiler_options) & ZEND_COMPILE_EXTENDED_INFO)) {
6440: return;
6441: }
6442:
6443: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6444:
6445: opline->opcode = ZEND_EXT_FCALL_BEGIN;
6446: SET_UNUSED(opline->op1);
6447: SET_UNUSED(opline->op2);
6448: }
6449: /* }}} */
6450:
6451: void zend_do_extended_fcall_end(TSRMLS_D) /* {{{ */
6452: {
6453: zend_op *opline;
6454:
6455: if (!(CG(compiler_options) & ZEND_COMPILE_EXTENDED_INFO)) {
6456: return;
6457: }
6458:
6459: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6460:
6461: opline->opcode = ZEND_EXT_FCALL_END;
6462: SET_UNUSED(opline->op1);
6463: SET_UNUSED(opline->op2);
6464: }
6465: /* }}} */
6466:
6467: void zend_do_ticks(TSRMLS_D) /* {{{ */
6468: {
6469: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6470:
6471: opline->opcode = ZEND_TICKS;
1.1.1.2 misho 6472: SET_UNUSED(opline->op1);
1.1 misho 6473: SET_UNUSED(opline->op2);
1.1.1.2 misho 6474: opline->extended_value = Z_LVAL(CG(declarables).ticks);
1.1 misho 6475: }
6476: /* }}} */
6477:
1.1.1.2 misho 6478: zend_bool zend_is_auto_global_quick(const char *name, uint name_len, ulong hashval TSRMLS_DC) /* {{{ */
1.1 misho 6479: {
6480: zend_auto_global *auto_global;
1.1.1.2 misho 6481: ulong hash = hashval ? hashval : zend_hash_func(name, name_len+1);
1.1 misho 6482:
1.1.1.2 misho 6483: if (zend_hash_quick_find(CG(auto_globals), name, name_len+1, hash, (void **) &auto_global)==SUCCESS) {
1.1 misho 6484: if (auto_global->armed) {
6485: auto_global->armed = auto_global->auto_global_callback(auto_global->name, auto_global->name_len TSRMLS_CC);
6486: }
6487: return 1;
6488: }
6489: return 0;
6490: }
6491: /* }}} */
6492:
1.1.1.2 misho 6493: zend_bool zend_is_auto_global(const char *name, uint name_len TSRMLS_DC) /* {{{ */
6494: {
6495: return zend_is_auto_global_quick(name, name_len, 0 TSRMLS_CC);
6496: }
6497: /* }}} */
6498:
6499: int zend_register_auto_global(const char *name, uint name_len, zend_bool jit, zend_auto_global_callback auto_global_callback TSRMLS_DC) /* {{{ */
1.1 misho 6500: {
6501: zend_auto_global auto_global;
6502:
1.1.1.2 misho 6503: auto_global.name = zend_new_interned_string((char*)name, name_len + 1, 0 TSRMLS_CC);
1.1 misho 6504: auto_global.name_len = name_len;
6505: auto_global.auto_global_callback = auto_global_callback;
1.1.1.2 misho 6506: auto_global.jit = jit;
1.1 misho 6507:
6508: return zend_hash_add(CG(auto_globals), name, name_len+1, &auto_global, sizeof(zend_auto_global), NULL);
6509: }
6510: /* }}} */
6511:
1.1.1.2 misho 6512: static int zend_auto_global_init(zend_auto_global *auto_global TSRMLS_DC) /* {{{ */
6513: {
6514: if (auto_global->jit) {
6515: auto_global->armed = 1;
6516: } else if (auto_global->auto_global_callback) {
6517: auto_global->armed = auto_global->auto_global_callback(auto_global->name, auto_global->name_len TSRMLS_CC);
6518: } else {
6519: auto_global->armed = 0;
6520: }
6521: return 0;
6522: }
6523: /* }}} */
6524:
6525: ZEND_API void zend_activate_auto_globals(TSRMLS_D) /* {{{ */
6526: {
6527: zend_hash_apply(CG(auto_globals), (apply_func_t) zend_auto_global_init TSRMLS_CC);
6528: }
6529: /* }}} */
6530:
1.1 misho 6531: int zendlex(znode *zendlval TSRMLS_DC) /* {{{ */
6532: {
6533: int retval;
6534:
6535: if (CG(increment_lineno)) {
6536: CG(zend_lineno)++;
6537: CG(increment_lineno) = 0;
6538: }
6539:
6540: again:
6541: Z_TYPE(zendlval->u.constant) = IS_LONG;
6542: retval = lex_scan(&zendlval->u.constant TSRMLS_CC);
6543: switch (retval) {
6544: case T_COMMENT:
6545: case T_DOC_COMMENT:
6546: case T_OPEN_TAG:
6547: case T_WHITESPACE:
6548: goto again;
6549:
6550: case T_CLOSE_TAG:
6551: if (LANG_SCNG(yy_text)[LANG_SCNG(yy_leng)-1] != '>') {
6552: CG(increment_lineno) = 1;
6553: }
6554: if (CG(has_bracketed_namespaces) && !CG(in_namespace)) {
6555: goto again;
6556: }
6557: retval = ';'; /* implicit ; */
6558: break;
6559: case T_OPEN_TAG_WITH_ECHO:
6560: retval = T_ECHO;
6561: break;
6562: case T_END_HEREDOC:
6563: efree(Z_STRVAL(zendlval->u.constant));
6564: break;
6565: }
6566:
6567: INIT_PZVAL(&zendlval->u.constant);
6568: zendlval->op_type = IS_CONST;
6569: return retval;
6570: }
6571: /* }}} */
6572:
6573: ZEND_API void zend_initialize_class_data(zend_class_entry *ce, zend_bool nullify_handlers TSRMLS_DC) /* {{{ */
6574: {
6575: zend_bool persistent_hashes = (ce->type == ZEND_INTERNAL_CLASS) ? 1 : 0;
6576: dtor_func_t zval_ptr_dtor_func = ((persistent_hashes) ? ZVAL_INTERNAL_PTR_DTOR : ZVAL_PTR_DTOR);
6577:
6578: ce->refcount = 1;
6579: ce->ce_flags = 0;
6580:
1.1.1.2 misho 6581: ce->default_properties_table = NULL;
6582: ce->default_static_members_table = NULL;
1.1 misho 6583: zend_hash_init_ex(&ce->properties_info, 0, NULL, (dtor_func_t) (persistent_hashes ? zend_destroy_property_info_internal : zend_destroy_property_info), persistent_hashes, 0);
6584: zend_hash_init_ex(&ce->constants_table, 0, NULL, zval_ptr_dtor_func, persistent_hashes, 0);
6585: zend_hash_init_ex(&ce->function_table, 0, NULL, ZEND_FUNCTION_DTOR, persistent_hashes, 0);
6586:
6587: if (ce->type == ZEND_INTERNAL_CLASS) {
6588: #ifdef ZTS
6589: int n = zend_hash_num_elements(CG(class_table));
6590:
1.1.1.2 misho 6591: if (CG(static_members_table) && n >= CG(last_static_member)) {
1.1 misho 6592: /* Support for run-time declaration: dl() */
6593: CG(last_static_member) = n+1;
1.1.1.2 misho 6594: CG(static_members_table) = realloc(CG(static_members_table), (n+1)*sizeof(zval**));
6595: CG(static_members_table)[n] = NULL;
1.1 misho 6596: }
1.1.1.2 misho 6597: ce->static_members_table = (zval**)(zend_intptr_t)n;
1.1 misho 6598: #else
1.1.1.2 misho 6599: ce->static_members_table = NULL;
1.1 misho 6600: #endif
6601: } else {
1.1.1.2 misho 6602: ce->static_members_table = ce->default_static_members_table;
6603: ce->info.user.doc_comment = NULL;
6604: ce->info.user.doc_comment_len = 0;
1.1 misho 6605: }
6606:
1.1.1.2 misho 6607: ce->default_properties_count = 0;
6608: ce->default_static_members_count = 0;
6609:
1.1 misho 6610: if (nullify_handlers) {
6611: ce->constructor = NULL;
6612: ce->destructor = NULL;
6613: ce->clone = NULL;
6614: ce->__get = NULL;
6615: ce->__set = NULL;
6616: ce->__unset = NULL;
6617: ce->__isset = NULL;
6618: ce->__call = NULL;
6619: ce->__callstatic = NULL;
6620: ce->__tostring = NULL;
6621: ce->create_object = NULL;
6622: ce->get_iterator = NULL;
6623: ce->iterator_funcs.funcs = NULL;
6624: ce->interface_gets_implemented = NULL;
6625: ce->get_static_method = NULL;
6626: ce->parent = NULL;
6627: ce->num_interfaces = 0;
6628: ce->interfaces = NULL;
1.1.1.2 misho 6629: ce->num_traits = 0;
6630: ce->traits = NULL;
6631: ce->trait_aliases = NULL;
6632: ce->trait_precedences = NULL;
1.1 misho 6633: ce->serialize = NULL;
6634: ce->unserialize = NULL;
6635: ce->serialize_func = NULL;
6636: ce->unserialize_func = NULL;
1.1.1.2 misho 6637: if (ce->type == ZEND_INTERNAL_CLASS) {
6638: ce->info.internal.module = NULL;
6639: ce->info.internal.builtin_functions = NULL;
6640: }
1.1 misho 6641: }
6642: }
6643: /* }}} */
6644:
6645: int zend_get_class_fetch_type(const char *class_name, uint class_name_len) /* {{{ */
6646: {
6647: if ((class_name_len == sizeof("self")-1) &&
6648: !memcmp(class_name, "self", sizeof("self")-1)) {
6649: return ZEND_FETCH_CLASS_SELF;
6650: } else if ((class_name_len == sizeof("parent")-1) &&
6651: !memcmp(class_name, "parent", sizeof("parent")-1)) {
6652: return ZEND_FETCH_CLASS_PARENT;
6653: } else if ((class_name_len == sizeof("static")-1) &&
6654: !memcmp(class_name, "static", sizeof("static")-1)) {
6655: return ZEND_FETCH_CLASS_STATIC;
6656: } else {
6657: return ZEND_FETCH_CLASS_DEFAULT;
6658: }
6659: }
6660: /* }}} */
6661:
1.1.1.2 misho 6662: ZEND_API const char* zend_get_compiled_variable_name(const zend_op_array *op_array, zend_uint var, int* name_len) /* {{{ */
1.1 misho 6663: {
6664: if (name_len) {
6665: *name_len = op_array->vars[var].name_len;
6666: }
6667: return op_array->vars[var].name;
6668: }
6669: /* }}} */
6670:
6671: void zend_do_build_namespace_name(znode *result, znode *prefix, znode *name TSRMLS_DC) /* {{{ */
6672: {
6673: if (prefix) {
6674: *result = *prefix;
6675: if (Z_TYPE(result->u.constant) == IS_STRING &&
1.1.1.2 misho 6676: Z_STRLEN(result->u.constant) == 0) {
1.1 misho 6677: /* namespace\ */
6678: if (CG(current_namespace)) {
6679: znode tmp;
6680:
6681: zval_dtor(&result->u.constant);
6682: tmp.op_type = IS_CONST;
6683: tmp.u.constant = *CG(current_namespace);
6684: zval_copy_ctor(&tmp.u.constant);
6685: zend_do_build_namespace_name(result, NULL, &tmp TSRMLS_CC);
6686: }
6687: }
6688: } else {
6689: result->op_type = IS_CONST;
6690: Z_TYPE(result->u.constant) = IS_STRING;
6691: Z_STRVAL(result->u.constant) = NULL;
6692: Z_STRLEN(result->u.constant) = 0;
6693: }
6694: /* prefix = result */
6695: zend_do_build_full_name(NULL, result, name, 0 TSRMLS_CC);
6696: }
6697: /* }}} */
6698:
6699: void zend_do_begin_namespace(const znode *name, zend_bool with_bracket TSRMLS_DC) /* {{{ */
6700: {
6701: char *lcname;
6702:
6703: /* handle mixed syntax declaration or nested namespaces */
6704: if (!CG(has_bracketed_namespaces)) {
6705: if (CG(current_namespace)) {
6706: /* previous namespace declarations were unbracketed */
6707: if (with_bracket) {
6708: zend_error(E_COMPILE_ERROR, "Cannot mix bracketed namespace declarations with unbracketed namespace declarations");
6709: }
6710: }
6711: } else {
6712: /* previous namespace declarations were bracketed */
6713: if (!with_bracket) {
6714: zend_error(E_COMPILE_ERROR, "Cannot mix bracketed namespace declarations with unbracketed namespace declarations");
6715: } else if (CG(current_namespace) || CG(in_namespace)) {
6716: zend_error(E_COMPILE_ERROR, "Namespace declarations cannot be nested");
6717: }
6718: }
6719:
6720: if (((!with_bracket && !CG(current_namespace)) || (with_bracket && !CG(has_bracketed_namespaces))) && CG(active_op_array)->last > 0) {
6721: /* ignore ZEND_EXT_STMT and ZEND_TICKS */
6722: int num = CG(active_op_array)->last;
6723: while (num > 0 &&
1.1.1.2 misho 6724: (CG(active_op_array)->opcodes[num-1].opcode == ZEND_EXT_STMT ||
6725: CG(active_op_array)->opcodes[num-1].opcode == ZEND_TICKS)) {
1.1 misho 6726: --num;
6727: }
6728: if (num > 0) {
6729: zend_error(E_COMPILE_ERROR, "Namespace declaration statement has to be the very first statement in the script");
6730: }
6731: }
6732:
6733: CG(in_namespace) = 1;
6734: if (with_bracket) {
6735: CG(has_bracketed_namespaces) = 1;
6736: }
6737:
6738: if (name) {
6739: lcname = zend_str_tolower_dup(Z_STRVAL(name->u.constant), Z_STRLEN(name->u.constant));
6740: if (((Z_STRLEN(name->u.constant) == sizeof("self")-1) &&
1.1.1.2 misho 6741: !memcmp(lcname, "self", sizeof("self")-1)) ||
6742: ((Z_STRLEN(name->u.constant) == sizeof("parent")-1) &&
6743: !memcmp(lcname, "parent", sizeof("parent")-1))) {
1.1 misho 6744: zend_error(E_COMPILE_ERROR, "Cannot use '%s' as namespace name", Z_STRVAL(name->u.constant));
6745: }
6746: efree(lcname);
6747:
6748: if (CG(current_namespace)) {
6749: zval_dtor(CG(current_namespace));
6750: } else {
6751: ALLOC_ZVAL(CG(current_namespace));
6752: }
6753: *CG(current_namespace) = name->u.constant;
6754: } else {
6755: if (CG(current_namespace)) {
6756: zval_dtor(CG(current_namespace));
6757: FREE_ZVAL(CG(current_namespace));
6758: CG(current_namespace) = NULL;
6759: }
6760: }
6761:
6762: if (CG(current_import)) {
6763: zend_hash_destroy(CG(current_import));
6764: efree(CG(current_import));
6765: CG(current_import) = NULL;
6766: }
1.1.1.2 misho 6767:
1.1 misho 6768: if (CG(doc_comment)) {
6769: efree(CG(doc_comment));
6770: CG(doc_comment) = NULL;
6771: CG(doc_comment_len) = 0;
6772: }
6773: }
6774: /* }}} */
6775:
6776: void zend_do_use(znode *ns_name, znode *new_name, int is_global TSRMLS_DC) /* {{{ */
6777: {
6778: char *lcname;
6779: zval *name, *ns, tmp;
6780: zend_bool warn = 0;
6781: zend_class_entry **pce;
6782:
6783: if (!CG(current_import)) {
6784: CG(current_import) = emalloc(sizeof(HashTable));
6785: zend_hash_init(CG(current_import), 0, NULL, ZVAL_PTR_DTOR, 0);
6786: }
6787:
6788: ALLOC_ZVAL(ns);
6789: *ns = ns_name->u.constant;
6790: if (new_name) {
6791: name = &new_name->u.constant;
6792: } else {
1.1.1.2 misho 6793: const char *p;
1.1 misho 6794:
6795: /* The form "use A\B" is eqivalent to "use A\B as B".
6796: So we extract the last part of compound name to use as a new_name */
6797: name = &tmp;
6798: p = zend_memrchr(Z_STRVAL_P(ns), '\\', Z_STRLEN_P(ns));
6799: if (p) {
6800: ZVAL_STRING(name, p+1, 1);
6801: } else {
6802: *name = *ns;
6803: zval_copy_ctor(name);
6804: warn = !is_global && !CG(current_namespace);
6805: }
6806: }
6807:
6808: lcname = zend_str_tolower_dup(Z_STRVAL_P(name), Z_STRLEN_P(name));
6809:
6810: if (((Z_STRLEN_P(name) == sizeof("self")-1) &&
1.1.1.3 misho 6811: !memcmp(lcname, "self", sizeof("self")-1)) ||
6812: ((Z_STRLEN_P(name) == sizeof("parent")-1) &&
6813: !memcmp(lcname, "parent", sizeof("parent")-1))) {
1.1 misho 6814: zend_error(E_COMPILE_ERROR, "Cannot use %s as %s because '%s' is a special class name", Z_STRVAL_P(ns), Z_STRVAL_P(name), Z_STRVAL_P(name));
6815: }
6816:
6817: if (CG(current_namespace)) {
6818: /* Prefix import name with current namespace name to avoid conflicts with classes */
6819: char *c_ns_name = emalloc(Z_STRLEN_P(CG(current_namespace)) + 1 + Z_STRLEN_P(name) + 1);
6820:
6821: zend_str_tolower_copy(c_ns_name, Z_STRVAL_P(CG(current_namespace)), Z_STRLEN_P(CG(current_namespace)));
6822: c_ns_name[Z_STRLEN_P(CG(current_namespace))] = '\\';
6823: memcpy(c_ns_name+Z_STRLEN_P(CG(current_namespace))+1, lcname, Z_STRLEN_P(name)+1);
6824: if (zend_hash_exists(CG(class_table), c_ns_name, Z_STRLEN_P(CG(current_namespace)) + 1 + Z_STRLEN_P(name)+1)) {
6825: char *tmp2 = zend_str_tolower_dup(Z_STRVAL_P(ns), Z_STRLEN_P(ns));
6826:
6827: if (Z_STRLEN_P(ns) != Z_STRLEN_P(CG(current_namespace)) + 1 + Z_STRLEN_P(name) ||
6828: memcmp(tmp2, c_ns_name, Z_STRLEN_P(ns))) {
6829: zend_error(E_COMPILE_ERROR, "Cannot use %s as %s because the name is already in use", Z_STRVAL_P(ns), Z_STRVAL_P(name));
6830: }
6831: efree(tmp2);
6832: }
6833: efree(c_ns_name);
6834: } else if (zend_hash_find(CG(class_table), lcname, Z_STRLEN_P(name)+1, (void**)&pce) == SUCCESS &&
6835: (*pce)->type == ZEND_USER_CLASS &&
1.1.1.2 misho 6836: (*pce)->info.user.filename == CG(compiled_filename)) {
1.1 misho 6837: char *c_tmp = zend_str_tolower_dup(Z_STRVAL_P(ns), Z_STRLEN_P(ns));
6838:
6839: if (Z_STRLEN_P(ns) != Z_STRLEN_P(name) ||
6840: memcmp(c_tmp, lcname, Z_STRLEN_P(ns))) {
6841: zend_error(E_COMPILE_ERROR, "Cannot use %s as %s because the name is already in use", Z_STRVAL_P(ns), Z_STRVAL_P(name));
6842: }
6843: efree(c_tmp);
6844: }
6845:
6846: if (zend_hash_add(CG(current_import), lcname, Z_STRLEN_P(name)+1, &ns, sizeof(zval*), NULL) != SUCCESS) {
6847: zend_error(E_COMPILE_ERROR, "Cannot use %s as %s because the name is already in use", Z_STRVAL_P(ns), Z_STRVAL_P(name));
6848: }
6849: if (warn) {
1.1.1.2 misho 6850: if (!strcmp(Z_STRVAL_P(name), "strict")) {
6851: zend_error(E_COMPILE_ERROR, "You seem to be trying to use a different language...");
6852: }
1.1 misho 6853: zend_error(E_WARNING, "The use statement with non-compound name '%s' has no effect", Z_STRVAL_P(name));
6854: }
6855: efree(lcname);
6856: zval_dtor(name);
6857: }
6858: /* }}} */
6859:
6860: void zend_do_declare_constant(znode *name, znode *value TSRMLS_DC) /* {{{ */
6861: {
6862: zend_op *opline;
6863:
6864: if(Z_TYPE(value->u.constant) == IS_CONSTANT_ARRAY) {
6865: zend_error(E_COMPILE_ERROR, "Arrays are not allowed as constants");
6866: }
6867:
6868: if (zend_get_ct_const(&name->u.constant, 0 TSRMLS_CC)) {
6869: zend_error(E_COMPILE_ERROR, "Cannot redeclare constant '%s'", Z_STRVAL(name->u.constant));
6870: }
6871:
6872: if (CG(current_namespace)) {
6873: /* Prefix constant name with name of current namespace, lowercased */
6874: znode tmp;
6875:
6876: tmp.op_type = IS_CONST;
6877: tmp.u.constant = *CG(current_namespace);
6878: Z_STRVAL(tmp.u.constant) = zend_str_tolower_dup(Z_STRVAL(tmp.u.constant), Z_STRLEN(tmp.u.constant));
6879: zend_do_build_namespace_name(&tmp, &tmp, name TSRMLS_CC);
6880: *name = tmp;
6881: }
6882:
6883: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
6884: opline->opcode = ZEND_DECLARE_CONST;
6885: SET_UNUSED(opline->result);
1.1.1.2 misho 6886: SET_NODE(opline->op1, name);
6887: SET_NODE(opline->op2, value);
1.1 misho 6888: }
6889: /* }}} */
6890:
6891: void zend_verify_namespace(TSRMLS_D) /* {{{ */
6892: {
6893: if (CG(has_bracketed_namespaces) && !CG(in_namespace)) {
6894: zend_error(E_COMPILE_ERROR, "No code may exist outside of namespace {}");
6895: }
6896: }
6897: /* }}} */
6898:
6899: void zend_do_end_namespace(TSRMLS_D) /* {{{ */
6900: {
6901: CG(in_namespace) = 0;
6902: if (CG(current_namespace)) {
6903: zval_dtor(CG(current_namespace));
6904: FREE_ZVAL(CG(current_namespace));
6905: CG(current_namespace) = NULL;
6906: }
6907: if (CG(current_import)) {
6908: zend_hash_destroy(CG(current_import));
6909: efree(CG(current_import));
6910: CG(current_import) = NULL;
6911: }
6912: }
6913: /* }}} */
6914:
6915: void zend_do_end_compilation(TSRMLS_D) /* {{{ */
6916: {
6917: CG(has_bracketed_namespaces) = 0;
6918: zend_do_end_namespace(TSRMLS_C);
6919: }
6920: /* }}} */
6921:
6922: /* {{{ zend_dirname
6923: Returns directory name component of path */
6924: ZEND_API size_t zend_dirname(char *path, size_t len)
6925: {
6926: register char *end = path + len - 1;
6927: unsigned int len_adjust = 0;
6928:
6929: #ifdef PHP_WIN32
6930: /* Note that on Win32 CWD is per drive (heritage from CP/M).
6931: * This means dirname("c:foo") maps to "c:." or "c:" - which means CWD on C: drive.
6932: */
6933: if ((2 <= len) && isalpha((int)((unsigned char *)path)[0]) && (':' == path[1])) {
6934: /* Skip over the drive spec (if any) so as not to change */
6935: path += 2;
6936: len_adjust += 2;
6937: if (2 == len) {
6938: /* Return "c:" on Win32 for dirname("c:").
6939: * It would be more consistent to return "c:."
6940: * but that would require making the string *longer*.
6941: */
6942: return len;
6943: }
6944: }
6945: #elif defined(NETWARE)
6946: /*
1.1.1.3 misho 6947: * Find the first occurrence of : from the left
1.1 misho 6948: * move the path pointer to the position just after :
6949: * increment the len_adjust to the length of path till colon character(inclusive)
6950: * If there is no character beyond : simple return len
6951: */
6952: char *colonpos = NULL;
6953: colonpos = strchr(path, ':');
6954: if (colonpos != NULL) {
6955: len_adjust = ((colonpos - path) + 1);
6956: path += len_adjust;
6957: if (len_adjust == len) {
6958: return len;
6959: }
6960: }
6961: #endif
6962:
6963: if (len == 0) {
6964: /* Illegal use of this function */
6965: return 0;
6966: }
6967:
6968: /* Strip trailing slashes */
6969: while (end >= path && IS_SLASH_P(end)) {
6970: end--;
6971: }
6972: if (end < path) {
6973: /* The path only contained slashes */
6974: path[0] = DEFAULT_SLASH;
6975: path[1] = '\0';
6976: return 1 + len_adjust;
6977: }
6978:
6979: /* Strip filename */
6980: while (end >= path && !IS_SLASH_P(end)) {
6981: end--;
6982: }
6983: if (end < path) {
6984: /* No slash found, therefore return '.' */
6985: #ifdef NETWARE
6986: if (len_adjust == 0) {
6987: path[0] = '.';
6988: path[1] = '\0';
6989: return 1; /* only one character */
6990: } else {
6991: path[0] = '\0';
6992: return len_adjust;
6993: }
6994: #else
6995: path[0] = '.';
6996: path[1] = '\0';
6997: return 1 + len_adjust;
6998: #endif
6999: }
7000:
7001: /* Strip slashes which came before the file name */
7002: while (end >= path && IS_SLASH_P(end)) {
7003: end--;
7004: }
7005: if (end < path) {
7006: path[0] = DEFAULT_SLASH;
7007: path[1] = '\0';
7008: return 1 + len_adjust;
7009: }
7010: *(end+1) = '\0';
7011:
7012: return (size_t)(end + 1 - path) + len_adjust;
7013: }
7014: /* }}} */
7015:
7016: /*
7017: * Local variables:
7018: * tab-width: 4
7019: * c-basic-offset: 4
7020: * indent-tabs-mode: t
7021: * End:
7022: */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to zend_compile.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / Zend