Annotation of embedaddon/php/Zend/zend_compile.c, revision 1.1.1.1
1.1 misho 1: /*
2: +----------------------------------------------------------------------+
3: | Zend Engine |
4: +----------------------------------------------------------------------+
5: | Copyright (c) 1998-2012 Zend Technologies Ltd. (http://www.zend.com) |
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:
20: /* $Id: zend_compile.c 321634 2012-01-01 13:15:04Z felipe $ */
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:
31: #ifdef ZEND_MULTIBYTE
32: #include "zend_multibyte.h"
33: #endif /* ZEND_MULTIBYTE */
34:
35: ZEND_API zend_op_array *(*zend_compile_file)(zend_file_handle *file_handle, int type TSRMLS_DC);
36: ZEND_API zend_op_array *(*zend_compile_string)(zval *source_string, char *filename TSRMLS_DC);
37:
38: #ifndef ZTS
39: ZEND_API zend_compiler_globals compiler_globals;
40: ZEND_API zend_executor_globals executor_globals;
41: #endif
42:
43: static void zend_duplicate_property_info(zend_property_info *property_info) /* {{{ */
44: {
45: property_info->name = estrndup(property_info->name, property_info->name_length);
46: if (property_info->doc_comment) {
47: property_info->doc_comment = estrndup(property_info->doc_comment, property_info->doc_comment_len);
48: }
49: }
50: /* }}} */
51:
52:
53: static void zend_duplicate_property_info_internal(zend_property_info *property_info) /* {{{ */
54: {
55: property_info->name = zend_strndup(property_info->name, property_info->name_length);
56: }
57: /* }}} */
58:
59:
60: static void zend_destroy_property_info(zend_property_info *property_info) /* {{{ */
61: {
62: efree(property_info->name);
63: if (property_info->doc_comment) {
64: efree(property_info->doc_comment);
65: }
66: }
67: /* }}} */
68:
69:
70: static void zend_destroy_property_info_internal(zend_property_info *property_info) /* {{{ */
71: {
72: free(property_info->name);
73: }
74: /* }}} */
75:
76: #if SUHOSIN_PATCH
77: void *suhosin_zend_destroy_property_info_internal = zend_destroy_property_info_internal;
78: void *suhosin_zend_destroy_property_info = zend_destroy_property_info;
79: #endif
80:
81: static void build_runtime_defined_function_key(zval *result, const char *name, int name_length TSRMLS_DC) /* {{{ */
82: {
83: char char_pos_buf[32];
84: uint char_pos_len;
85: char *filename;
86:
87: char_pos_len = zend_sprintf(char_pos_buf, "%p", LANG_SCNG(yy_text));
88: if (CG(active_op_array)->filename) {
89: filename = CG(active_op_array)->filename;
90: } else {
91: filename = "-";
92: }
93:
94: /* NULL, name length, filename length, last accepting char position length */
95: result->value.str.len = 1+name_length+strlen(filename)+char_pos_len;
96: #ifdef ZEND_MULTIBYTE
97: /* must be binary safe */
98: result->value.str.val = (char *) safe_emalloc(result->value.str.len, 1, 1);
99: result->value.str.val[0] = '\0';
100: sprintf(result->value.str.val+1, "%s%s%s", name, filename, char_pos_buf);
101: #else
102: zend_spprintf(&result->value.str.val, 0, "%c%s%s%s", '\0', name, filename, char_pos_buf);
103: #endif /* ZEND_MULTIBYTE */
104: result->type = IS_STRING;
105: Z_SET_REFCOUNT_P(result, 1);
106: }
107: /* }}} */
108:
109:
110: int zend_auto_global_arm(zend_auto_global *auto_global TSRMLS_DC) /* {{{ */
111: {
112: auto_global->armed = (auto_global->auto_global_callback ? 1 : 0);
113: return 0;
114: }
115: /* }}} */
116:
117:
118: ZEND_API int zend_auto_global_disable_jit(const char *varname, zend_uint varname_length TSRMLS_DC) /* {{{ */
119: {
120: zend_auto_global *auto_global;
121:
122: if (zend_hash_find(CG(auto_globals), varname, varname_length+1, (void **) &auto_global)==FAILURE) {
123: return FAILURE;
124: }
125: auto_global->armed = 0;
126: return SUCCESS;
127: }
128: /* }}} */
129:
130:
131: static void init_compiler_declarables(TSRMLS_D) /* {{{ */
132: {
133: Z_TYPE(CG(declarables).ticks) = IS_LONG;
134: Z_LVAL(CG(declarables).ticks) = 0;
135: }
136: /* }}} */
137:
138:
139: void zend_init_compiler_data_structures(TSRMLS_D) /* {{{ */
140: {
141: zend_stack_init(&CG(bp_stack));
142: zend_stack_init(&CG(function_call_stack));
143: zend_stack_init(&CG(switch_cond_stack));
144: zend_stack_init(&CG(foreach_copy_stack));
145: zend_stack_init(&CG(object_stack));
146: zend_stack_init(&CG(declare_stack));
147: CG(active_class_entry) = NULL;
148: zend_llist_init(&CG(list_llist), sizeof(list_llist_element), NULL, 0);
149: zend_llist_init(&CG(dimension_llist), sizeof(int), NULL, 0);
150: zend_stack_init(&CG(list_stack));
151: CG(in_compilation) = 0;
152: CG(start_lineno) = 0;
153: CG(current_namespace) = NULL;
154: CG(in_namespace) = 0;
155: CG(has_bracketed_namespaces) = 0;
156: CG(current_import) = NULL;
157: init_compiler_declarables(TSRMLS_C);
158: zend_hash_apply(CG(auto_globals), (apply_func_t) zend_auto_global_arm TSRMLS_CC);
159: zend_stack_init(&CG(labels_stack));
160: CG(labels) = NULL;
161:
162: #ifdef ZEND_MULTIBYTE
163: CG(script_encoding_list) = NULL;
164: CG(script_encoding_list_size) = 0;
165: CG(internal_encoding) = NULL;
166: CG(encoding_detector) = NULL;
167: CG(encoding_converter) = NULL;
168: CG(encoding_oddlen) = NULL;
169: CG(encoding_declared) = 0;
170: #endif /* ZEND_MULTIBYTE */
171: }
172: /* }}} */
173:
174:
175: ZEND_API void file_handle_dtor(zend_file_handle *fh) /* {{{ */
176: {
177: TSRMLS_FETCH();
178:
179: zend_file_handle_dtor(fh TSRMLS_CC);
180: }
181: /* }}} */
182:
183:
184: void init_compiler(TSRMLS_D) /* {{{ */
185: {
186: CG(active_op_array) = NULL;
187: zend_init_compiler_data_structures(TSRMLS_C);
188: zend_init_rsrc_list(TSRMLS_C);
189: zend_hash_init(&CG(filenames_table), 5, NULL, (dtor_func_t) free_estring, 0);
190: zend_llist_init(&CG(open_files), sizeof(zend_file_handle), (void (*)(void *)) file_handle_dtor, 0);
191: CG(unclean_shutdown) = 0;
192: }
193: /* }}} */
194:
195:
196: void shutdown_compiler(TSRMLS_D) /* {{{ */
197: {
198: zend_stack_destroy(&CG(bp_stack));
199: zend_stack_destroy(&CG(function_call_stack));
200: zend_stack_destroy(&CG(switch_cond_stack));
201: zend_stack_destroy(&CG(foreach_copy_stack));
202: zend_stack_destroy(&CG(object_stack));
203: zend_stack_destroy(&CG(declare_stack));
204: zend_stack_destroy(&CG(list_stack));
205: zend_hash_destroy(&CG(filenames_table));
206: zend_llist_destroy(&CG(open_files));
207: zend_stack_destroy(&CG(labels_stack));
208:
209: #ifdef ZEND_MULTIBYTE
210: if (CG(script_encoding_list)) {
211: efree(CG(script_encoding_list));
212: }
213: #endif /* ZEND_MULTIBYTE */
214: }
215: /* }}} */
216:
217:
218: ZEND_API char *zend_set_compiled_filename(const char *new_compiled_filename TSRMLS_DC) /* {{{ */
219: {
220: char **pp, *p;
221: int length = strlen(new_compiled_filename);
222:
223: if (zend_hash_find(&CG(filenames_table), new_compiled_filename, length+1, (void **) &pp) == SUCCESS) {
224: CG(compiled_filename) = *pp;
225: return *pp;
226: }
227: p = estrndup(new_compiled_filename, length);
228: zend_hash_update(&CG(filenames_table), new_compiled_filename, length+1, &p, sizeof(char *), (void **) &pp);
229: CG(compiled_filename) = p;
230: return p;
231: }
232: /* }}} */
233:
234:
235: ZEND_API void zend_restore_compiled_filename(char *original_compiled_filename TSRMLS_DC) /* {{{ */
236: {
237: CG(compiled_filename) = original_compiled_filename;
238: }
239: /* }}} */
240:
241:
242: ZEND_API char *zend_get_compiled_filename(TSRMLS_D) /* {{{ */
243: {
244: return CG(compiled_filename);
245: }
246: /* }}} */
247:
248:
249: ZEND_API int zend_get_compiled_lineno(TSRMLS_D) /* {{{ */
250: {
251: return CG(zend_lineno);
252: }
253: /* }}} */
254:
255:
256: ZEND_API zend_bool zend_is_compiling(TSRMLS_D) /* {{{ */
257: {
258: return CG(in_compilation);
259: }
260: /* }}} */
261:
262:
263: static zend_uint get_temporary_variable(zend_op_array *op_array) /* {{{ */
264: {
265: return (op_array->T)++ * ZEND_MM_ALIGNED_SIZE(sizeof(temp_variable));
266: }
267: /* }}} */
268:
269: static int lookup_cv(zend_op_array *op_array, char* name, int name_len) /* {{{ */
270: {
271: int i = 0;
272: ulong hash_value = zend_inline_hash_func(name, name_len+1);
273:
274: while (i < op_array->last_var) {
275: if (op_array->vars[i].hash_value == hash_value &&
276: op_array->vars[i].name_len == name_len &&
277: strcmp(op_array->vars[i].name, name) == 0) {
278: efree(name);
279: return i;
280: }
281: i++;
282: }
283: i = op_array->last_var;
284: op_array->last_var++;
285: if (op_array->last_var > op_array->size_var) {
286: op_array->size_var += 16; /* FIXME */
287: op_array->vars = erealloc(op_array->vars, op_array->size_var*sizeof(zend_compiled_variable));
288: }
289: op_array->vars[i].name = name; /* estrndup(name, name_len); */
290: op_array->vars[i].name_len = name_len;
291: op_array->vars[i].hash_value = hash_value;
292: return i;
293: }
294: /* }}} */
295:
296:
297: void zend_do_binary_op(zend_uchar op, znode *result, const znode *op1, const znode *op2 TSRMLS_DC) /* {{{ */
298: {
299: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
300:
301: opline->opcode = op;
302: opline->result.op_type = IS_TMP_VAR;
303: opline->result.u.var = get_temporary_variable(CG(active_op_array));
304: opline->op1 = *op1;
305: opline->op2 = *op2;
306: *result = opline->result;
307: }
308: /* }}} */
309:
310: void zend_do_unary_op(zend_uchar op, znode *result, const znode *op1 TSRMLS_DC) /* {{{ */
311: {
312: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
313:
314: opline->opcode = op;
315: opline->result.op_type = IS_TMP_VAR;
316: opline->result.u.var = get_temporary_variable(CG(active_op_array));
317: opline->op1 = *op1;
318: *result = opline->result;
319: SET_UNUSED(opline->op2);
320: }
321: /* }}} */
322:
323: #define MAKE_NOP(opline) { opline->opcode = ZEND_NOP; memset(&opline->result,0,sizeof(znode)); memset(&opline->op1,0,sizeof(znode)); memset(&opline->op2,0,sizeof(znode)); opline->result.op_type=opline->op1.op_type=opline->op2.op_type=IS_UNUSED; }
324:
325:
326: static void zend_do_op_data(zend_op *data_op, const znode *value TSRMLS_DC) /* {{{ */
327: {
328: data_op->opcode = ZEND_OP_DATA;
329: data_op->op1 = *value;
330: SET_UNUSED(data_op->op2);
331: }
332: /* }}} */
333:
334: void zend_do_binary_assign_op(zend_uchar op, znode *result, const znode *op1, const znode *op2 TSRMLS_DC) /* {{{ */
335: {
336: int last_op_number = get_next_op_number(CG(active_op_array));
337: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
338:
339: if (last_op_number > 0) {
340: zend_op *last_op = &CG(active_op_array)->opcodes[last_op_number-1];
341:
342: switch (last_op->opcode) {
343: case ZEND_FETCH_OBJ_RW:
344: last_op->opcode = op;
345: last_op->extended_value = ZEND_ASSIGN_OBJ;
346:
347: zend_do_op_data(opline, op2 TSRMLS_CC);
348: SET_UNUSED(opline->result);
349: *result = last_op->result;
350: return;
351: case ZEND_FETCH_DIM_RW:
352: last_op->opcode = op;
353: last_op->extended_value = ZEND_ASSIGN_DIM;
354:
355: zend_do_op_data(opline, op2 TSRMLS_CC);
356: opline->op2.u.var = get_temporary_variable(CG(active_op_array));
357: opline->op2.u.EA.type = 0;
358: opline->op2.op_type = IS_VAR;
359: SET_UNUSED(opline->result);
360: *result = last_op->result;
361: return;
362: default:
363: break;
364: }
365: }
366:
367: opline->opcode = op;
368: opline->op1 = *op1;
369: opline->op2 = *op2;
370: opline->result.op_type = IS_VAR;
371: opline->result.u.EA.type = 0;
372: opline->result.u.var = get_temporary_variable(CG(active_op_array));
373: *result = opline->result;
374: }
375: /* }}} */
376:
377: void fetch_simple_variable_ex(znode *result, znode *varname, int bp, zend_uchar op TSRMLS_DC) /* {{{ */
378: {
379: zend_op opline;
380: zend_op *opline_ptr;
381: zend_llist *fetch_list_ptr;
382:
383: if (varname->op_type == IS_CONST) {
384: if (Z_TYPE(varname->u.constant) != IS_STRING) {
385: convert_to_string(&varname->u.constant);
386: }
387: if (!zend_is_auto_global(varname->u.constant.value.str.val, varname->u.constant.value.str.len TSRMLS_CC) &&
388: !(varname->u.constant.value.str.len == (sizeof("this")-1) &&
389: !memcmp(varname->u.constant.value.str.val, "this", sizeof("this"))) &&
390: (CG(active_op_array)->last == 0 ||
391: CG(active_op_array)->opcodes[CG(active_op_array)->last-1].opcode != ZEND_BEGIN_SILENCE)) {
392: result->op_type = IS_CV;
393: result->u.var = lookup_cv(CG(active_op_array), varname->u.constant.value.str.val, varname->u.constant.value.str.len);
394: result->u.EA.type = 0;
395: varname->u.constant.value.str.val = CG(active_op_array)->vars[result->u.var].name;
396: return;
397: }
398: }
399:
400: if (bp) {
401: opline_ptr = &opline;
402: init_op(opline_ptr TSRMLS_CC);
403: } else {
404: opline_ptr = get_next_op(CG(active_op_array) TSRMLS_CC);
405: }
406:
407: opline_ptr->opcode = op;
408: opline_ptr->result.op_type = IS_VAR;
409: opline_ptr->result.u.EA.type = 0;
410: opline_ptr->result.u.var = get_temporary_variable(CG(active_op_array));
411: opline_ptr->op1 = *varname;
412: *result = opline_ptr->result;
413: SET_UNUSED(opline_ptr->op2);
414:
415: opline_ptr->op2.u.EA.type = ZEND_FETCH_LOCAL;
416: if (varname->op_type == IS_CONST && varname->u.constant.type == IS_STRING) {
417: if (zend_is_auto_global(varname->u.constant.value.str.val, varname->u.constant.value.str.len TSRMLS_CC)) {
418: opline_ptr->op2.u.EA.type = ZEND_FETCH_GLOBAL;
419: }
420: }
421:
422: if (bp) {
423: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
424: zend_llist_add_element(fetch_list_ptr, opline_ptr);
425: }
426: }
427: /* }}} */
428:
429: void fetch_simple_variable(znode *result, znode *varname, int bp TSRMLS_DC) /* {{{ */
430: {
431: /* the default mode must be Write, since fetch_simple_variable() is used to define function arguments */
432: fetch_simple_variable_ex(result, varname, bp, ZEND_FETCH_W TSRMLS_CC);
433: }
434: /* }}} */
435:
436: void zend_do_fetch_static_member(znode *result, znode *class_name TSRMLS_DC) /* {{{ */
437: {
438: znode class_node;
439: zend_llist *fetch_list_ptr;
440: zend_llist_element *le;
441: zend_op *opline_ptr;
442: zend_op opline;
443:
444: zend_do_fetch_class(&class_node, class_name TSRMLS_CC);
445: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
446: if (result->op_type == IS_CV) {
447: init_op(&opline TSRMLS_CC);
448:
449: opline.opcode = ZEND_FETCH_W;
450: opline.result.op_type = IS_VAR;
451: opline.result.u.EA.type = 0;
452: opline.result.u.var = get_temporary_variable(CG(active_op_array));
453: opline.op1.op_type = IS_CONST;
454: opline.op1.u.constant.type = IS_STRING;
455: opline.op1.u.constant.value.str.val = estrdup(CG(active_op_array)->vars[result->u.var].name);
456: opline.op1.u.constant.value.str.len = CG(active_op_array)->vars[result->u.var].name_len;
457: SET_UNUSED(opline.op2);
458: opline.op2 = class_node;
459: opline.op2.u.EA.type = ZEND_FETCH_STATIC_MEMBER;
460: *result = opline.result;
461:
462: zend_llist_add_element(fetch_list_ptr, &opline);
463: } else {
464: le = fetch_list_ptr->head;
465:
466: opline_ptr = (zend_op *)le->data;
467: if (opline_ptr->opcode != ZEND_FETCH_W && opline_ptr->op1.op_type == IS_CV) {
468: init_op(&opline TSRMLS_CC);
469: opline.opcode = ZEND_FETCH_W;
470: opline.result.op_type = IS_VAR;
471: opline.result.u.EA.type = 0;
472: opline.result.u.var = get_temporary_variable(CG(active_op_array));
473: opline.op1.op_type = IS_CONST;
474: opline.op1.u.constant.type = IS_STRING;
475: opline.op1.u.constant.value.str.val = estrdup(CG(active_op_array)->vars[opline_ptr->op1.u.var].name);
476: opline.op1.u.constant.value.str.len = CG(active_op_array)->vars[opline_ptr->op1.u.var].name_len;
477: SET_UNUSED(opline.op2);
478: opline.op2 = class_node;
479: opline.op2.u.EA.type = ZEND_FETCH_STATIC_MEMBER;
480: opline_ptr->op1 = opline.result;
481:
482: zend_llist_prepend_element(fetch_list_ptr, &opline);
483: } else {
484: opline_ptr->op2 = class_node;
485: opline_ptr->op2.u.EA.type = ZEND_FETCH_STATIC_MEMBER;
486: }
487: }
488: }
489: /* }}} */
490:
491: void fetch_array_begin(znode *result, znode *varname, znode *first_dim TSRMLS_DC) /* {{{ */
492: {
493: fetch_simple_variable(result, varname, 1 TSRMLS_CC);
494:
495: fetch_array_dim(result, result, first_dim TSRMLS_CC);
496: }
497: /* }}} */
498:
499: void fetch_array_dim(znode *result, const znode *parent, const znode *dim TSRMLS_DC) /* {{{ */
500: {
501: zend_op opline;
502: zend_llist *fetch_list_ptr;
503:
504: init_op(&opline TSRMLS_CC);
505: opline.opcode = ZEND_FETCH_DIM_W; /* the backpatching routine assumes W */
506: opline.result.op_type = IS_VAR;
507: opline.result.u.EA.type = 0;
508: opline.result.u.var = get_temporary_variable(CG(active_op_array));
509: opline.op1 = *parent;
510: opline.op2 = *dim;
511: opline.extended_value = ZEND_FETCH_STANDARD;
512: *result = opline.result;
513:
514: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
515: zend_llist_add_element(fetch_list_ptr, &opline);
516: }
517: /* }}} */
518:
519: void fetch_string_offset(znode *result, const znode *parent, const znode *offset TSRMLS_DC) /* {{{ */
520: {
521: fetch_array_dim(result, parent, offset TSRMLS_CC);
522: }
523: /* }}} */
524:
525: void zend_do_print(znode *result, const znode *arg TSRMLS_DC) /* {{{ */
526: {
527: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
528:
529: opline->result.op_type = IS_TMP_VAR;
530: opline->result.u.var = get_temporary_variable(CG(active_op_array));
531: opline->opcode = ZEND_PRINT;
532: opline->op1 = *arg;
533: SET_UNUSED(opline->op2);
534: *result = opline->result;
535: }
536: /* }}} */
537:
538: void zend_do_echo(const znode *arg TSRMLS_DC) /* {{{ */
539: {
540: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
541:
542: opline->opcode = ZEND_ECHO;
543: opline->op1 = *arg;
544: SET_UNUSED(opline->op2);
545: }
546: /* }}} */
547:
548: void zend_do_abstract_method(const znode *function_name, znode *modifiers, const znode *body TSRMLS_DC) /* {{{ */
549: {
550: char *method_type;
551:
552: if (CG(active_class_entry)->ce_flags & ZEND_ACC_INTERFACE) {
553: Z_LVAL(modifiers->u.constant) |= ZEND_ACC_ABSTRACT;
554: method_type = "Interface";
555: } else {
556: method_type = "Abstract";
557: }
558:
559: if (modifiers->u.constant.value.lval & ZEND_ACC_ABSTRACT) {
560: if(modifiers->u.constant.value.lval & ZEND_ACC_PRIVATE) {
561: 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);
562: }
563: if (Z_LVAL(body->u.constant) == ZEND_ACC_ABSTRACT) {
564: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
565:
566: opline->opcode = ZEND_RAISE_ABSTRACT_ERROR;
567: SET_UNUSED(opline->op1);
568: SET_UNUSED(opline->op2);
569: } else {
570: /* we had code in the function body */
571: 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);
572: }
573: } else {
574: if (body->u.constant.value.lval == ZEND_ACC_ABSTRACT) {
575: 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);
576: }
577: }
578: }
579: /* }}} */
580:
581: static zend_bool opline_is_fetch_this(const zend_op *opline TSRMLS_DC) /* {{{ */
582: {
583: if ((opline->opcode == ZEND_FETCH_W) && (opline->op1.op_type == IS_CONST)
584: && (opline->op1.u.constant.type == IS_STRING)
585: && (opline->op1.u.constant.value.str.len == (sizeof("this")-1))
586: && !memcmp(opline->op1.u.constant.value.str.val, "this", sizeof("this"))) {
587: return 1;
588: } else {
589: return 0;
590: }
591: }
592: /* }}} */
593:
594: void zend_do_assign(znode *result, znode *variable, const znode *value TSRMLS_DC) /* {{{ */
595: {
596: int last_op_number;
597: zend_op *opline;
598:
599: if (value->op_type == IS_CV) {
600: zend_llist *fetch_list_ptr;
601:
602: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
603: if (fetch_list_ptr && fetch_list_ptr->head) {
604: opline = (zend_op *)fetch_list_ptr->head->data;
605:
606: if (opline->opcode == ZEND_FETCH_DIM_W &&
607: opline->op1.op_type == IS_CV &&
608: opline->op1.u.var == value->u.var) {
609:
610: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
611: opline->opcode = ZEND_FETCH_R;
612: opline->result.op_type = IS_VAR;
613: opline->result.u.EA.type = 0;
614: opline->result.u.var = get_temporary_variable(CG(active_op_array));
615: opline->op1.op_type = IS_CONST;
616: ZVAL_STRINGL(&opline->op1.u.constant,
617: CG(active_op_array)->vars[value->u.var].name,
618: CG(active_op_array)->vars[value->u.var].name_len, 1);
619: SET_UNUSED(opline->op2);
620: opline->op2.u.EA.type = ZEND_FETCH_LOCAL;
621: value = &opline->result;
622: }
623: }
624: }
625:
626: zend_do_end_variable_parse(variable, BP_VAR_W, 0 TSRMLS_CC);
627:
628: last_op_number = get_next_op_number(CG(active_op_array));
629: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
630:
631: if (variable->op_type == IS_CV) {
632: if (variable->u.var == CG(active_op_array)->this_var) {
633: zend_error(E_COMPILE_ERROR, "Cannot re-assign $this");
634: }
635: } else if (variable->op_type == IS_VAR) {
636: int n = 0;
637:
638: while (last_op_number - n > 0) {
639: zend_op *last_op;
640:
641: last_op = &CG(active_op_array)->opcodes[last_op_number-n-1];
642:
643: if (last_op->result.op_type == IS_VAR &&
644: last_op->result.u.var == variable->u.var) {
645: if (last_op->opcode == ZEND_FETCH_OBJ_W) {
646: if (n > 0) {
647: int opline_no = (opline-CG(active_op_array)->opcodes)/sizeof(*opline);
648: *opline = *last_op;
649: MAKE_NOP(last_op);
650: /* last_op = opline; */
651: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
652: /* get_next_op can realloc, we need to move last_op */
653: last_op = &CG(active_op_array)->opcodes[opline_no];
654: }
655: last_op->opcode = ZEND_ASSIGN_OBJ;
656: zend_do_op_data(opline, value TSRMLS_CC);
657: SET_UNUSED(opline->result);
658: *result = last_op->result;
659: return;
660: } else if (last_op->opcode == ZEND_FETCH_DIM_W) {
661: if (n > 0) {
662: int opline_no = (opline-CG(active_op_array)->opcodes)/sizeof(*opline);
663: *opline = *last_op;
664: MAKE_NOP(last_op);
665: /* last_op = opline; */
666: /* TBFixed: this can realloc opcodes, leaving last_op pointing wrong */
667: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
668: /* get_next_op can realloc, we need to move last_op */
669: last_op = &CG(active_op_array)->opcodes[opline_no];
670: }
671: last_op->opcode = ZEND_ASSIGN_DIM;
672: zend_do_op_data(opline, value TSRMLS_CC);
673: opline->op2.u.var = get_temporary_variable(CG(active_op_array));
674: opline->op2.u.EA.type = 0;
675: opline->op2.op_type = IS_VAR;
676: SET_UNUSED(opline->result);
677: *result = last_op->result;
678: return;
679: } else if (opline_is_fetch_this(last_op TSRMLS_CC)) {
680: zend_error(E_COMPILE_ERROR, "Cannot re-assign $this");
681: } else {
682: break;
683: }
684: }
685: n++;
686: }
687: }
688:
689: opline->opcode = ZEND_ASSIGN;
690: opline->op1 = *variable;
691: opline->op2 = *value;
692: opline->result.op_type = IS_VAR;
693: opline->result.u.EA.type = 0;
694: opline->result.u.var = get_temporary_variable(CG(active_op_array));
695: *result = opline->result;
696: }
697: /* }}} */
698:
699: static inline zend_bool zend_is_function_or_method_call(const znode *variable) /* {{{ */
700: {
701: zend_uint type = variable->u.EA.type;
702:
703: return ((type & ZEND_PARSED_METHOD_CALL) || (type == ZEND_PARSED_FUNCTION_CALL));
704: }
705: /* }}} */
706:
707: void zend_do_assign_ref(znode *result, const znode *lvar, const znode *rvar TSRMLS_DC) /* {{{ */
708: {
709: zend_op *opline;
710:
711: if (lvar->op_type == IS_CV) {
712: if (lvar->u.var == CG(active_op_array)->this_var) {
713: zend_error(E_COMPILE_ERROR, "Cannot re-assign $this");
714: }
715: } else if (lvar->op_type == IS_VAR) {
716: int last_op_number = get_next_op_number(CG(active_op_array));
717:
718: if (last_op_number > 0) {
719: opline = &CG(active_op_array)->opcodes[last_op_number-1];
720: if (opline_is_fetch_this(opline TSRMLS_CC)) {
721: zend_error(E_COMPILE_ERROR, "Cannot re-assign $this");
722: }
723: }
724: }
725:
726: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
727: opline->opcode = ZEND_ASSIGN_REF;
728: if (zend_is_function_or_method_call(rvar)) {
729: opline->extended_value = ZEND_RETURNS_FUNCTION;
730: } else if (rvar->u.EA.type & ZEND_PARSED_NEW) {
731: opline->extended_value = ZEND_RETURNS_NEW;
732: } else {
733: opline->extended_value = 0;
734: }
735: if (result) {
736: opline->result.op_type = IS_VAR;
737: opline->result.u.EA.type = 0;
738: opline->result.u.var = get_temporary_variable(CG(active_op_array));
739: *result = opline->result;
740: } else {
741: /* SET_UNUSED(opline->result); */
742: opline->result.u.EA.type |= EXT_TYPE_UNUSED;
743: }
744: opline->op1 = *lvar;
745: opline->op2 = *rvar;
746: }
747: /* }}} */
748:
749: static inline void do_begin_loop(TSRMLS_D) /* {{{ */
750: {
751: zend_brk_cont_element *brk_cont_element;
752: int parent;
753:
754: parent = CG(active_op_array)->current_brk_cont;
755: CG(active_op_array)->current_brk_cont = CG(active_op_array)->last_brk_cont;
756: brk_cont_element = get_next_brk_cont_element(CG(active_op_array));
757: brk_cont_element->start = get_next_op_number(CG(active_op_array));
758: brk_cont_element->parent = parent;
759: }
760: /* }}} */
761:
762: static inline void do_end_loop(int cont_addr, int has_loop_var TSRMLS_DC) /* {{{ */
763: {
764: if (!has_loop_var) {
765: /* The start fileld is used to free temporary variables in case of exceptions.
766: * We won't try to free something of we don't have loop variable.
767: */
768: CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].start = -1;
769: }
770: CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].cont = cont_addr;
771: CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].brk = get_next_op_number(CG(active_op_array));
772: CG(active_op_array)->current_brk_cont = CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].parent;
773: }
774: /* }}} */
775:
776: void zend_do_while_cond(const znode *expr, znode *close_bracket_token TSRMLS_DC) /* {{{ */
777: {
778: int while_cond_op_number = get_next_op_number(CG(active_op_array));
779: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
780:
781: opline->opcode = ZEND_JMPZ;
782: opline->op1 = *expr;
783: close_bracket_token->u.opline_num = while_cond_op_number;
784: SET_UNUSED(opline->op2);
785:
786: do_begin_loop(TSRMLS_C);
787: INC_BPC(CG(active_op_array));
788: }
789: /* }}} */
790:
791: void zend_do_while_end(const znode *while_token, const znode *close_bracket_token TSRMLS_DC) /* {{{ */
792: {
793: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
794:
795: /* add unconditional jump */
796: opline->opcode = ZEND_JMP;
797: opline->op1.u.opline_num = while_token->u.opline_num;
798: SET_UNUSED(opline->op1);
799: SET_UNUSED(opline->op2);
800:
801: /* update while's conditional jmp */
802: CG(active_op_array)->opcodes[close_bracket_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
803:
804: do_end_loop(while_token->u.opline_num, 0 TSRMLS_CC);
805:
806: DEC_BPC(CG(active_op_array));
807: }
808: /* }}} */
809:
810: void zend_do_for_cond(const znode *expr, znode *second_semicolon_token TSRMLS_DC) /* {{{ */
811: {
812: int for_cond_op_number = get_next_op_number(CG(active_op_array));
813: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
814:
815: opline->opcode = ZEND_JMPZNZ;
816: opline->op1 = *expr; /* the conditional expression */
817: second_semicolon_token->u.opline_num = for_cond_op_number;
818: SET_UNUSED(opline->op2);
819: }
820: /* }}} */
821:
822: void zend_do_for_before_statement(const znode *cond_start, const znode *second_semicolon_token TSRMLS_DC) /* {{{ */
823: {
824: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
825:
826: opline->opcode = ZEND_JMP;
827: opline->op1.u.opline_num = cond_start->u.opline_num;
828: CG(active_op_array)->opcodes[second_semicolon_token->u.opline_num].extended_value = get_next_op_number(CG(active_op_array));
829: SET_UNUSED(opline->op1);
830: SET_UNUSED(opline->op2);
831:
832: do_begin_loop(TSRMLS_C);
833:
834: INC_BPC(CG(active_op_array));
835: }
836: /* }}} */
837:
838: void zend_do_for_end(const znode *second_semicolon_token TSRMLS_DC) /* {{{ */
839: {
840: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
841:
842: opline->opcode = ZEND_JMP;
843: opline->op1.u.opline_num = second_semicolon_token->u.opline_num+1;
844: CG(active_op_array)->opcodes[second_semicolon_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
845: SET_UNUSED(opline->op1);
846: SET_UNUSED(opline->op2);
847:
848: do_end_loop(second_semicolon_token->u.opline_num+1, 0 TSRMLS_CC);
849:
850: DEC_BPC(CG(active_op_array));
851: }
852: /* }}} */
853:
854: void zend_do_pre_incdec(znode *result, const znode *op1, zend_uchar op TSRMLS_DC) /* {{{ */
855: {
856: int last_op_number = get_next_op_number(CG(active_op_array));
857: zend_op *opline;
858:
859: if (last_op_number > 0) {
860: zend_op *last_op = &CG(active_op_array)->opcodes[last_op_number-1];
861:
862: if (last_op->opcode == ZEND_FETCH_OBJ_RW) {
863: last_op->opcode = (op==ZEND_PRE_INC)?ZEND_PRE_INC_OBJ:ZEND_PRE_DEC_OBJ;
864: last_op->result.op_type = IS_VAR;
865: last_op->result.u.EA.type = 0;
866: last_op->result.u.var = get_temporary_variable(CG(active_op_array));
867: *result = last_op->result;
868: return;
869: }
870: }
871:
872: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
873: opline->opcode = op;
874: opline->op1 = *op1;
875: SET_UNUSED(opline->op2);
876: opline->result.op_type = IS_VAR;
877: opline->result.u.EA.type = 0;
878: opline->result.u.var = get_temporary_variable(CG(active_op_array));
879: *result = opline->result;
880: }
881: /* }}} */
882:
883: void zend_do_post_incdec(znode *result, const znode *op1, zend_uchar op TSRMLS_DC) /* {{{ */
884: {
885: int last_op_number = get_next_op_number(CG(active_op_array));
886: zend_op *opline;
887:
888: if (last_op_number > 0) {
889: zend_op *last_op = &CG(active_op_array)->opcodes[last_op_number-1];
890:
891: if (last_op->opcode == ZEND_FETCH_OBJ_RW) {
892: last_op->opcode = (op==ZEND_POST_INC)?ZEND_POST_INC_OBJ:ZEND_POST_DEC_OBJ;
893: last_op->result.op_type = IS_TMP_VAR;
894: last_op->result.u.var = get_temporary_variable(CG(active_op_array));
895: *result = last_op->result;
896: return;
897: }
898: }
899:
900: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
901: opline->opcode = op;
902: opline->op1 = *op1;
903: SET_UNUSED(opline->op2);
904: opline->result.op_type = IS_TMP_VAR;
905: opline->result.u.var = get_temporary_variable(CG(active_op_array));
906: *result = opline->result;
907: }
908: /* }}} */
909:
910: void zend_do_if_cond(const znode *cond, znode *closing_bracket_token TSRMLS_DC) /* {{{ */
911: {
912: int if_cond_op_number = get_next_op_number(CG(active_op_array));
913: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
914:
915: opline->opcode = ZEND_JMPZ;
916: opline->op1 = *cond;
917: closing_bracket_token->u.opline_num = if_cond_op_number;
918: SET_UNUSED(opline->op2);
919: INC_BPC(CG(active_op_array));
920: }
921: /* }}} */
922:
923: void zend_do_if_after_statement(const znode *closing_bracket_token, unsigned char initialize TSRMLS_DC) /* {{{ */
924: {
925: int if_end_op_number = get_next_op_number(CG(active_op_array));
926: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
927: zend_llist *jmp_list_ptr;
928:
929: opline->opcode = ZEND_JMP;
930: /* save for backpatching */
931: if (initialize) {
932: zend_llist jmp_list;
933:
934: zend_llist_init(&jmp_list, sizeof(int), NULL, 0);
935: zend_stack_push(&CG(bp_stack), (void *) &jmp_list, sizeof(zend_llist));
936: }
937: zend_stack_top(&CG(bp_stack), (void **) &jmp_list_ptr);
938: zend_llist_add_element(jmp_list_ptr, &if_end_op_number);
939:
940: CG(active_op_array)->opcodes[closing_bracket_token->u.opline_num].op2.u.opline_num = if_end_op_number+1;
941: SET_UNUSED(opline->op1);
942: SET_UNUSED(opline->op2);
943: }
944: /* }}} */
945:
946: void zend_do_if_end(TSRMLS_D) /* {{{ */
947: {
948: int next_op_number = get_next_op_number(CG(active_op_array));
949: zend_llist *jmp_list_ptr;
950: zend_llist_element *le;
951:
952: zend_stack_top(&CG(bp_stack), (void **) &jmp_list_ptr);
953: for (le=jmp_list_ptr->head; le; le = le->next) {
954: CG(active_op_array)->opcodes[*((int *) le->data)].op1.u.opline_num = next_op_number;
955: }
956: zend_llist_destroy(jmp_list_ptr);
957: zend_stack_del_top(&CG(bp_stack));
958: DEC_BPC(CG(active_op_array));
959: }
960: /* }}} */
961:
962: void zend_check_writable_variable(const znode *variable) /* {{{ */
963: {
964: zend_uint type = variable->u.EA.type;
965:
966: if (type & ZEND_PARSED_METHOD_CALL) {
967: zend_error(E_COMPILE_ERROR, "Can't use method return value in write context");
968: }
969: if (type == ZEND_PARSED_FUNCTION_CALL) {
970: zend_error(E_COMPILE_ERROR, "Can't use function return value in write context");
971: }
972: }
973: /* }}} */
974:
975: void zend_do_begin_variable_parse(TSRMLS_D) /* {{{ */
976: {
977: zend_llist fetch_list;
978:
979: zend_llist_init(&fetch_list, sizeof(zend_op), NULL, 0);
980: zend_stack_push(&CG(bp_stack), (void *) &fetch_list, sizeof(zend_llist));
981: }
982: /* }}} */
983:
984: void zend_do_end_variable_parse(znode *variable, int type, int arg_offset TSRMLS_DC) /* {{{ */
985: {
986: zend_llist *fetch_list_ptr;
987: zend_llist_element *le;
988: zend_op *opline = NULL;
989: zend_op *opline_ptr;
990: zend_uint this_var = -1;
991:
992: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
993:
994: le = fetch_list_ptr->head;
995:
996: /* TODO: $foo->x->y->z = 1 should fetch "x" and "y" for R or RW, not just W */
997:
998: if (le) {
999: opline_ptr = (zend_op *)le->data;
1000: if (opline_is_fetch_this(opline_ptr TSRMLS_CC)) {
1001: /* convert to FETCH_?(this) into IS_CV */
1002: if (CG(active_op_array)->last == 0 ||
1003: CG(active_op_array)->opcodes[CG(active_op_array)->last-1].opcode != ZEND_BEGIN_SILENCE) {
1004:
1005: this_var = opline_ptr->result.u.var;
1006: if (CG(active_op_array)->this_var == -1) {
1007: CG(active_op_array)->this_var = lookup_cv(CG(active_op_array), Z_STRVAL(opline_ptr->op1.u.constant), Z_STRLEN(opline_ptr->op1.u.constant));
1008: } else {
1009: efree(Z_STRVAL(opline_ptr->op1.u.constant));
1010: }
1011: le = le->next;
1012: if (variable->op_type == IS_VAR &&
1013: variable->u.var == this_var) {
1014: variable->op_type = IS_CV;
1015: variable->u.var = CG(active_op_array)->this_var;
1016: }
1017: } else if (CG(active_op_array)->this_var == -1) {
1018: CG(active_op_array)->this_var = lookup_cv(CG(active_op_array), estrndup("this", sizeof("this")-1), sizeof("this")-1);
1019: }
1020: }
1021:
1022: while (le) {
1023: opline_ptr = (zend_op *)le->data;
1024: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1025: memcpy(opline, opline_ptr, sizeof(zend_op));
1026: if (opline->op1.op_type == IS_VAR &&
1027: opline->op1.u.var == this_var) {
1028: opline->op1.op_type = IS_CV;
1029: opline->op1.u.var = CG(active_op_array)->this_var;
1030: }
1031: switch (type) {
1032: case BP_VAR_R:
1033: if (opline->opcode == ZEND_FETCH_DIM_W && opline->op2.op_type == IS_UNUSED) {
1034: zend_error(E_COMPILE_ERROR, "Cannot use [] for reading");
1035: }
1036: opline->opcode -= 3;
1037: break;
1038: case BP_VAR_W:
1039: break;
1040: case BP_VAR_RW:
1041: opline->opcode += 3;
1042: break;
1043: case BP_VAR_IS:
1044: if (opline->opcode == ZEND_FETCH_DIM_W && opline->op2.op_type == IS_UNUSED) {
1045: zend_error(E_COMPILE_ERROR, "Cannot use [] for reading");
1046: }
1047: opline->opcode += 6; /* 3+3 */
1048: break;
1049: case BP_VAR_FUNC_ARG:
1050: opline->opcode += 9; /* 3+3+3 */
1051: opline->extended_value = arg_offset;
1052: break;
1053: case BP_VAR_UNSET:
1054: if (opline->opcode == ZEND_FETCH_DIM_W && opline->op2.op_type == IS_UNUSED) {
1055: zend_error(E_COMPILE_ERROR, "Cannot use [] for unsetting");
1056: }
1057: opline->opcode += 12; /* 3+3+3+3 */
1058: break;
1059: }
1060: le = le->next;
1061: }
1062: if (opline && type == BP_VAR_W && arg_offset) {
1063: opline->extended_value = ZEND_FETCH_MAKE_REF;
1064: }
1065: }
1066: zend_llist_destroy(fetch_list_ptr);
1067: zend_stack_del_top(&CG(bp_stack));
1068: }
1069: /* }}} */
1070:
1071: void zend_do_add_string(znode *result, const znode *op1, znode *op2 TSRMLS_DC) /* {{{ */
1072: {
1073: zend_op *opline;
1074:
1075: if (Z_STRLEN(op2->u.constant) > 1) {
1076: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1077: opline->opcode = ZEND_ADD_STRING;
1078: } else if (Z_STRLEN(op2->u.constant) == 1) {
1079: int ch = *Z_STRVAL(op2->u.constant);
1080:
1081: /* Free memory and use ZEND_ADD_CHAR in case of 1 character strings */
1082: efree(Z_STRVAL(op2->u.constant));
1083: ZVAL_LONG(&op2->u.constant, ch);
1084: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1085: opline->opcode = ZEND_ADD_CHAR;
1086: } else { /* String can be empty after a variable at the end of a heredoc */
1087: efree(Z_STRVAL(op2->u.constant));
1088: return;
1089: }
1090:
1091: if (op1) {
1092: opline->op1 = *op1;
1093: opline->result = *op1;
1094: } else {
1095: SET_UNUSED(opline->op1);
1096: opline->result.op_type = IS_TMP_VAR;
1097: opline->result.u.var = get_temporary_variable(CG(active_op_array));
1098: }
1099: opline->op2 = *op2;
1100: *result = opline->result;
1101: }
1102: /* }}} */
1103:
1104: void zend_do_add_variable(znode *result, const znode *op1, const znode *op2 TSRMLS_DC) /* {{{ */
1105: {
1106: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1107:
1108: opline->opcode = ZEND_ADD_VAR;
1109:
1110: if (op1) {
1111: opline->op1 = *op1;
1112: opline->result = *op1;
1113: } else {
1114: SET_UNUSED(opline->op1);
1115: opline->result.op_type = IS_TMP_VAR;
1116: opline->result.u.var = get_temporary_variable(CG(active_op_array));
1117: }
1118: opline->op2 = *op2;
1119: *result = opline->result;
1120: }
1121: /* }}} */
1122:
1123: void zend_do_free(znode *op1 TSRMLS_DC) /* {{{ */
1124: {
1125: if (op1->op_type==IS_TMP_VAR) {
1126: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1127:
1128: opline->opcode = ZEND_FREE;
1129: opline->op1 = *op1;
1130: SET_UNUSED(opline->op2);
1131: } else if (op1->op_type==IS_VAR) {
1132: zend_op *opline = &CG(active_op_array)->opcodes[CG(active_op_array)->last-1];
1133:
1134: while (opline->opcode == ZEND_END_SILENCE || opline->opcode == ZEND_EXT_FCALL_END || opline->opcode == ZEND_OP_DATA) {
1135: opline--;
1136: }
1137: if (opline->result.op_type == IS_VAR
1138: && opline->result.u.var == op1->u.var) {
1139: opline->result.u.EA.type |= EXT_TYPE_UNUSED;
1140: } else {
1141: while (opline>CG(active_op_array)->opcodes) {
1142: if (opline->opcode == ZEND_FETCH_DIM_R
1143: && opline->op1.op_type == IS_VAR
1144: && opline->op1.u.var == op1->u.var) {
1145: /* This should the end of a list() construct
1146: * Mark its result as unused
1147: */
1148: opline->extended_value = ZEND_FETCH_STANDARD;
1149: break;
1150: } else if (opline->result.op_type==IS_VAR
1151: && opline->result.u.var == op1->u.var) {
1152: if (opline->opcode == ZEND_NEW) {
1153: opline->result.u.EA.type |= EXT_TYPE_UNUSED;
1154: }
1155: break;
1156: }
1157: opline--;
1158: }
1159: }
1160: } else if (op1->op_type == IS_CONST) {
1161: zval_dtor(&op1->u.constant);
1162: }
1163: }
1164: /* }}} */
1165:
1166: int zend_do_verify_access_types(const znode *current_access_type, const znode *new_modifier) /* {{{ */
1167: {
1168: if ((Z_LVAL(current_access_type->u.constant) & ZEND_ACC_PPP_MASK)
1169: && (Z_LVAL(new_modifier->u.constant) & ZEND_ACC_PPP_MASK)) {
1170: zend_error(E_COMPILE_ERROR, "Multiple access type modifiers are not allowed");
1171: }
1172: if ((Z_LVAL(current_access_type->u.constant) & ZEND_ACC_ABSTRACT)
1173: && (Z_LVAL(new_modifier->u.constant) & ZEND_ACC_ABSTRACT)) {
1174: zend_error(E_COMPILE_ERROR, "Multiple abstract modifiers are not allowed");
1175: }
1176: if ((Z_LVAL(current_access_type->u.constant) & ZEND_ACC_STATIC)
1177: && (Z_LVAL(new_modifier->u.constant) & ZEND_ACC_STATIC)) {
1178: zend_error(E_COMPILE_ERROR, "Multiple static modifiers are not allowed");
1179: }
1180: if ((Z_LVAL(current_access_type->u.constant) & ZEND_ACC_FINAL)
1181: && (Z_LVAL(new_modifier->u.constant) & ZEND_ACC_FINAL)) {
1182: zend_error(E_COMPILE_ERROR, "Multiple final modifiers are not allowed");
1183: }
1184: 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)) {
1185: zend_error(E_COMPILE_ERROR, "Cannot use the final modifier on an abstract class member");
1186: }
1187: return (Z_LVAL(current_access_type->u.constant) | Z_LVAL(new_modifier->u.constant));
1188: }
1189: /* }}} */
1190:
1191: void zend_do_begin_function_declaration(znode *function_token, znode *function_name, int is_method, int return_reference, znode *fn_flags_znode TSRMLS_DC) /* {{{ */
1192: {
1193: zend_op_array op_array;
1194: char *name = function_name->u.constant.value.str.val;
1195: int name_len = function_name->u.constant.value.str.len;
1196: int function_begin_line = function_token->u.opline_num;
1197: zend_uint fn_flags;
1198: char *lcname;
1199: zend_bool orig_interactive;
1200: ALLOCA_FLAG(use_heap)
1201:
1202: if (is_method) {
1203: if (CG(active_class_entry)->ce_flags & ZEND_ACC_INTERFACE) {
1204: if ((Z_LVAL(fn_flags_znode->u.constant) & ~(ZEND_ACC_STATIC|ZEND_ACC_PUBLIC))) {
1205: 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);
1206: }
1207: Z_LVAL(fn_flags_znode->u.constant) |= ZEND_ACC_ABSTRACT; /* propagates to the rest of the parser */
1208: }
1209: fn_flags = Z_LVAL(fn_flags_znode->u.constant); /* must be done *after* the above check */
1210: } else {
1211: fn_flags = 0;
1212: }
1213: if ((fn_flags & ZEND_ACC_STATIC) && (fn_flags & ZEND_ACC_ABSTRACT) && !(CG(active_class_entry)->ce_flags & ZEND_ACC_INTERFACE)) {
1214: 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));
1215: }
1216:
1217: function_token->u.op_array = CG(active_op_array);
1218: lcname = zend_str_tolower_dup(name, name_len);
1219:
1220: orig_interactive = CG(interactive);
1221: CG(interactive) = 0;
1222: init_op_array(&op_array, ZEND_USER_FUNCTION, INITIAL_OP_ARRAY_SIZE TSRMLS_CC);
1223: CG(interactive) = orig_interactive;
1224:
1225: op_array.function_name = name;
1226: op_array.return_reference = return_reference;
1227: op_array.fn_flags |= fn_flags;
1228: op_array.pass_rest_by_reference = 0;
1229:
1230: op_array.scope = is_method?CG(active_class_entry):NULL;
1231: op_array.prototype = NULL;
1232:
1233: op_array.line_start = zend_get_compiled_lineno(TSRMLS_C);
1234:
1235: if (is_method) {
1236: if (zend_hash_add(&CG(active_class_entry)->function_table, lcname, name_len+1, &op_array, sizeof(zend_op_array), (void **) &CG(active_op_array)) == FAILURE) {
1237: zend_error(E_COMPILE_ERROR, "Cannot redeclare %s::%s()", CG(active_class_entry)->name, name);
1238: }
1239:
1240: if (fn_flags & ZEND_ACC_ABSTRACT) {
1241: CG(active_class_entry)->ce_flags |= ZEND_ACC_IMPLICIT_ABSTRACT_CLASS;
1242: }
1243:
1244: if (!(fn_flags & ZEND_ACC_PPP_MASK)) {
1245: fn_flags |= ZEND_ACC_PUBLIC;
1246: }
1247:
1248: if (CG(active_class_entry)->ce_flags & ZEND_ACC_INTERFACE) {
1249: if ((name_len == sizeof(ZEND_CALL_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_CALL_FUNC_NAME, sizeof(ZEND_CALL_FUNC_NAME)-1))) {
1250: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1251: zend_error(E_WARNING, "The magic method __call() must have public visibility and cannot be static");
1252: }
1253: } else if ((name_len == sizeof(ZEND_CALLSTATIC_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_CALLSTATIC_FUNC_NAME, sizeof(ZEND_CALLSTATIC_FUNC_NAME)-1))) {
1254: if ((fn_flags & (ZEND_ACC_PPP_MASK ^ ZEND_ACC_PUBLIC)) || (fn_flags & ZEND_ACC_STATIC) == 0) {
1255: zend_error(E_WARNING, "The magic method __callStatic() must have public visibility and be static");
1256: }
1257: } else if ((name_len == sizeof(ZEND_GET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_GET_FUNC_NAME, sizeof(ZEND_GET_FUNC_NAME)-1))) {
1258: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1259: zend_error(E_WARNING, "The magic method __get() must have public visibility and cannot be static");
1260: }
1261: } else if ((name_len == sizeof(ZEND_SET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_SET_FUNC_NAME, sizeof(ZEND_SET_FUNC_NAME)-1))) {
1262: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1263: zend_error(E_WARNING, "The magic method __set() must have public visibility and cannot be static");
1264: }
1265: } else if ((name_len == sizeof(ZEND_UNSET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_UNSET_FUNC_NAME, sizeof(ZEND_UNSET_FUNC_NAME)-1))) {
1266: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1267: zend_error(E_WARNING, "The magic method __unset() must have public visibility and cannot be static");
1268: }
1269: } else if ((name_len == sizeof(ZEND_ISSET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_ISSET_FUNC_NAME, sizeof(ZEND_ISSET_FUNC_NAME)-1))) {
1270: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1271: zend_error(E_WARNING, "The magic method __isset() must have public visibility and cannot be static");
1272: }
1273: } else if ((name_len == sizeof(ZEND_TOSTRING_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_TOSTRING_FUNC_NAME, sizeof(ZEND_TOSTRING_FUNC_NAME)-1))) {
1274: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1275: zend_error(E_WARNING, "The magic method __toString() must have public visibility and cannot be static");
1276: }
1277: }
1278: } else {
1279: char *class_lcname;
1280:
1281: class_lcname = do_alloca(CG(active_class_entry)->name_length + 1, use_heap);
1282: zend_str_tolower_copy(class_lcname, CG(active_class_entry)->name, CG(active_class_entry)->name_length);
1283: /* Improve after RC: cache the lowercase class name */
1284:
1285: if ((CG(active_class_entry)->name_length == name_len) && (!memcmp(class_lcname, lcname, name_len))) {
1286: if (!CG(active_class_entry)->constructor) {
1287: CG(active_class_entry)->constructor = (zend_function *) CG(active_op_array);
1288: }
1289: } else if ((name_len == sizeof(ZEND_CONSTRUCTOR_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_CONSTRUCTOR_FUNC_NAME, sizeof(ZEND_CONSTRUCTOR_FUNC_NAME)))) {
1290: if (CG(active_class_entry)->constructor) {
1291: zend_error(E_STRICT, "Redefining already defined constructor for class %s", CG(active_class_entry)->name);
1292: }
1293: CG(active_class_entry)->constructor = (zend_function *) CG(active_op_array);
1294: } else if ((name_len == sizeof(ZEND_DESTRUCTOR_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_DESTRUCTOR_FUNC_NAME, sizeof(ZEND_DESTRUCTOR_FUNC_NAME)-1))) {
1295: CG(active_class_entry)->destructor = (zend_function *) CG(active_op_array);
1296: } else if ((name_len == sizeof(ZEND_CLONE_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_CLONE_FUNC_NAME, sizeof(ZEND_CLONE_FUNC_NAME)-1))) {
1297: CG(active_class_entry)->clone = (zend_function *) CG(active_op_array);
1298: } else if ((name_len == sizeof(ZEND_CALL_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_CALL_FUNC_NAME, sizeof(ZEND_CALL_FUNC_NAME)-1))) {
1299: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1300: zend_error(E_WARNING, "The magic method __call() must have public visibility and cannot be static");
1301: }
1302: CG(active_class_entry)->__call = (zend_function *) CG(active_op_array);
1303: } else if ((name_len == sizeof(ZEND_CALLSTATIC_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_CALLSTATIC_FUNC_NAME, sizeof(ZEND_CALLSTATIC_FUNC_NAME)-1))) {
1304: if ((fn_flags & (ZEND_ACC_PPP_MASK ^ ZEND_ACC_PUBLIC)) || (fn_flags & ZEND_ACC_STATIC) == 0) {
1305: zend_error(E_WARNING, "The magic method __callStatic() must have public visibility and be static");
1306: }
1307: CG(active_class_entry)->__callstatic = (zend_function *) CG(active_op_array);
1308: } else if ((name_len == sizeof(ZEND_GET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_GET_FUNC_NAME, sizeof(ZEND_GET_FUNC_NAME)-1))) {
1309: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1310: zend_error(E_WARNING, "The magic method __get() must have public visibility and cannot be static");
1311: }
1312: CG(active_class_entry)->__get = (zend_function *) CG(active_op_array);
1313: } else if ((name_len == sizeof(ZEND_SET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_SET_FUNC_NAME, sizeof(ZEND_SET_FUNC_NAME)-1))) {
1314: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1315: zend_error(E_WARNING, "The magic method __set() must have public visibility and cannot be static");
1316: }
1317: CG(active_class_entry)->__set = (zend_function *) CG(active_op_array);
1318: } else if ((name_len == sizeof(ZEND_UNSET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_UNSET_FUNC_NAME, sizeof(ZEND_UNSET_FUNC_NAME)-1))) {
1319: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1320: zend_error(E_WARNING, "The magic method __unset() must have public visibility and cannot be static");
1321: }
1322: CG(active_class_entry)->__unset = (zend_function *) CG(active_op_array);
1323: } else if ((name_len == sizeof(ZEND_ISSET_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_ISSET_FUNC_NAME, sizeof(ZEND_ISSET_FUNC_NAME)-1))) {
1324: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1325: zend_error(E_WARNING, "The magic method __isset() must have public visibility and cannot be static");
1326: }
1327: CG(active_class_entry)->__isset = (zend_function *) CG(active_op_array);
1328: } else if ((name_len == sizeof(ZEND_TOSTRING_FUNC_NAME)-1) && (!memcmp(lcname, ZEND_TOSTRING_FUNC_NAME, sizeof(ZEND_TOSTRING_FUNC_NAME)-1))) {
1329: if (fn_flags & ((ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC) ^ ZEND_ACC_PUBLIC)) {
1330: zend_error(E_WARNING, "The magic method __toString() must have public visibility and cannot be static");
1331: }
1332: CG(active_class_entry)->__tostring = (zend_function *) CG(active_op_array);
1333: } else if (!(fn_flags & ZEND_ACC_STATIC)) {
1334: CG(active_op_array)->fn_flags |= ZEND_ACC_ALLOW_STATIC;
1335: }
1336: free_alloca(class_lcname, use_heap);
1337: }
1338:
1339: efree(lcname);
1340: } else {
1341: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1342:
1343: if (CG(current_namespace)) {
1344: /* Prefix function name with current namespcae name */
1345: znode tmp;
1346:
1347: tmp.u.constant = *CG(current_namespace);
1348: zval_copy_ctor(&tmp.u.constant);
1349: zend_do_build_namespace_name(&tmp, &tmp, function_name TSRMLS_CC);
1350: op_array.function_name = Z_STRVAL(tmp.u.constant);
1351: efree(lcname);
1352: name_len = Z_STRLEN(tmp.u.constant);
1353: lcname = zend_str_tolower_dup(Z_STRVAL(tmp.u.constant), name_len);
1354: }
1355:
1356: opline->opcode = ZEND_DECLARE_FUNCTION;
1357: opline->op1.op_type = IS_CONST;
1358: build_runtime_defined_function_key(&opline->op1.u.constant, lcname, name_len TSRMLS_CC);
1359: opline->op2.op_type = IS_CONST;
1360: opline->op2.u.constant.type = IS_STRING;
1361: opline->op2.u.constant.value.str.val = lcname;
1362: opline->op2.u.constant.value.str.len = name_len;
1363: Z_SET_REFCOUNT(opline->op2.u.constant, 1);
1364: opline->extended_value = ZEND_DECLARE_FUNCTION;
1365: zend_hash_update(CG(function_table), opline->op1.u.constant.value.str.val, opline->op1.u.constant.value.str.len, &op_array, sizeof(zend_op_array), (void **) &CG(active_op_array));
1366: }
1367:
1368: if (CG(compiler_options) & ZEND_COMPILE_EXTENDED_INFO) {
1369: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1370:
1371: opline->opcode = ZEND_EXT_NOP;
1372: opline->lineno = function_begin_line;
1373: SET_UNUSED(opline->op1);
1374: SET_UNUSED(opline->op2);
1375: }
1376:
1377: {
1378: /* Push a seperator to the switch and foreach stacks */
1379: zend_switch_entry switch_entry;
1380:
1381: switch_entry.cond.op_type = IS_UNUSED;
1382: switch_entry.default_case = 0;
1383: switch_entry.control_var = 0;
1384:
1385: zend_stack_push(&CG(switch_cond_stack), (void *) &switch_entry, sizeof(switch_entry));
1386:
1387: {
1388: /* Foreach stack separator */
1389: zend_op dummy_opline;
1390:
1391: dummy_opline.result.op_type = IS_UNUSED;
1392: dummy_opline.op1.op_type = IS_UNUSED;
1393:
1394: zend_stack_push(&CG(foreach_copy_stack), (void *) &dummy_opline, sizeof(zend_op));
1395: }
1396: }
1397:
1398: if (CG(doc_comment)) {
1399: CG(active_op_array)->doc_comment = CG(doc_comment);
1400: CG(active_op_array)->doc_comment_len = CG(doc_comment_len);
1401: CG(doc_comment) = NULL;
1402: CG(doc_comment_len) = 0;
1403: }
1404:
1405: zend_stack_push(&CG(labels_stack), (void *) &CG(labels), sizeof(HashTable*));
1406: CG(labels) = NULL;
1407: }
1408: /* }}} */
1409:
1410: void zend_do_begin_lambda_function_declaration(znode *result, znode *function_token, int return_reference TSRMLS_DC) /* {{{ */
1411: {
1412: znode function_name;
1413: zend_op_array *current_op_array = CG(active_op_array);
1414: int current_op_number = get_next_op_number(CG(active_op_array));
1415: zend_op *current_op;
1416:
1417: function_name.op_type = IS_CONST;
1418: ZVAL_STRINGL(&function_name.u.constant, "{closure}", sizeof("{closure}")-1, 1);
1419:
1420: zend_do_begin_function_declaration(function_token, &function_name, 0, return_reference, NULL TSRMLS_CC);
1421:
1422: result->op_type = IS_TMP_VAR;
1423: result->u.var = get_temporary_variable(current_op_array);
1424:
1425: current_op = ¤t_op_array->opcodes[current_op_number];
1426: current_op->opcode = ZEND_DECLARE_LAMBDA_FUNCTION;
1427: zval_dtor(¤t_op->op2.u.constant);
1428: ZVAL_LONG(¤t_op->op2.u.constant, zend_hash_func(Z_STRVAL(current_op->op1.u.constant), Z_STRLEN(current_op->op1.u.constant)));
1429: current_op->result = *result;
1430: CG(active_op_array)->fn_flags |= ZEND_ACC_CLOSURE;
1431: }
1432: /* }}} */
1433:
1434: void zend_do_handle_exception(TSRMLS_D) /* {{{ */
1435: {
1436: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1437:
1438: opline->opcode = ZEND_HANDLE_EXCEPTION;
1439: SET_UNUSED(opline->op1);
1440: SET_UNUSED(opline->op2);
1441: }
1442: /* }}} */
1443:
1444: void zend_do_end_function_declaration(const znode *function_token TSRMLS_DC) /* {{{ */
1445: {
1446: char lcname[16];
1447: int name_len;
1448:
1449: zend_do_extended_info(TSRMLS_C);
1450: zend_do_return(NULL, 0 TSRMLS_CC);
1451:
1452: pass_two(CG(active_op_array) TSRMLS_CC);
1453: zend_release_labels(TSRMLS_C);
1454:
1455: if (CG(active_class_entry)) {
1456: zend_check_magic_method_implementation(CG(active_class_entry), (zend_function*)CG(active_op_array), E_COMPILE_ERROR TSRMLS_CC);
1457: } else {
1458: /* we don't care if the function name is longer, in fact lowercasing only
1459: * the beginning of the name speeds up the check process */
1460: name_len = strlen(CG(active_op_array)->function_name);
1461: zend_str_tolower_copy(lcname, CG(active_op_array)->function_name, MIN(name_len, sizeof(lcname)-1));
1462: lcname[sizeof(lcname)-1] = '\0'; /* zend_str_tolower_copy won't necessarily set the zero byte */
1463: 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) {
1464: zend_error(E_COMPILE_ERROR, "%s() must take exactly 1 argument", ZEND_AUTOLOAD_FUNC_NAME);
1465: }
1466: }
1467:
1468: CG(active_op_array)->line_end = zend_get_compiled_lineno(TSRMLS_C);
1469: CG(active_op_array) = function_token->u.op_array;
1470:
1471:
1472: /* Pop the switch and foreach seperators */
1473: zend_stack_del_top(&CG(switch_cond_stack));
1474: zend_stack_del_top(&CG(foreach_copy_stack));
1475: }
1476: /* }}} */
1477:
1478: void zend_do_receive_arg(zend_uchar op, const znode *var, const znode *offset, const znode *initialization, znode *class_type, const znode *varname, zend_uchar pass_by_reference TSRMLS_DC) /* {{{ */
1479: {
1480: zend_op *opline;
1481: zend_arg_info *cur_arg_info;
1482:
1483: if (class_type->op_type == IS_CONST &&
1484: Z_TYPE(class_type->u.constant) == IS_STRING &&
1485: Z_STRLEN(class_type->u.constant) == 0) {
1486: /* Usage of namespace as class name not in namespace */
1487: zval_dtor(&class_type->u.constant);
1488: zend_error(E_COMPILE_ERROR, "Cannot use 'namespace' as a class name");
1489: return;
1490: }
1491:
1492: if (var->op_type == IS_CV &&
1493: var->u.var == CG(active_op_array)->this_var &&
1494: (CG(active_op_array)->fn_flags & ZEND_ACC_STATIC) == 0) {
1495: zend_error(E_COMPILE_ERROR, "Cannot re-assign $this");
1496: } else if (var->op_type == IS_VAR &&
1497: CG(active_op_array)->scope &&
1498: ((CG(active_op_array)->fn_flags & ZEND_ACC_STATIC) == 0) &&
1499: (Z_TYPE(varname->u.constant) == IS_STRING) &&
1500: (Z_STRLEN(varname->u.constant) == sizeof("this")-1) &&
1501: (memcmp(Z_STRVAL(varname->u.constant), "this", sizeof("this")) == 0)) {
1502: zend_error(E_COMPILE_ERROR, "Cannot re-assign $this");
1503: }
1504:
1505: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1506: CG(active_op_array)->num_args++;
1507: opline->opcode = op;
1508: opline->result = *var;
1509: opline->op1 = *offset;
1510: if (op == ZEND_RECV_INIT) {
1511: opline->op2 = *initialization;
1512: } else {
1513: CG(active_op_array)->required_num_args = CG(active_op_array)->num_args;
1514: SET_UNUSED(opline->op2);
1515: }
1516: CG(active_op_array)->arg_info = erealloc(CG(active_op_array)->arg_info, sizeof(zend_arg_info)*(CG(active_op_array)->num_args));
1517: cur_arg_info = &CG(active_op_array)->arg_info[CG(active_op_array)->num_args-1];
1518: cur_arg_info->name = estrndup(varname->u.constant.value.str.val, varname->u.constant.value.str.len);
1519: cur_arg_info->name_len = varname->u.constant.value.str.len;
1520: cur_arg_info->array_type_hint = 0;
1521: cur_arg_info->allow_null = 1;
1522: cur_arg_info->pass_by_reference = pass_by_reference;
1523: cur_arg_info->class_name = NULL;
1524: cur_arg_info->class_name_len = 0;
1525:
1526: if (class_type->op_type != IS_UNUSED) {
1527: cur_arg_info->allow_null = 0;
1528: if (class_type->u.constant.type == IS_STRING) {
1529: if (ZEND_FETCH_CLASS_DEFAULT == zend_get_class_fetch_type(Z_STRVAL(class_type->u.constant), Z_STRLEN(class_type->u.constant))) {
1530: zend_resolve_class_name(class_type, &opline->extended_value, 1 TSRMLS_CC);
1531: }
1532: cur_arg_info->class_name = class_type->u.constant.value.str.val;
1533: cur_arg_info->class_name_len = class_type->u.constant.value.str.len;
1534: if (op == ZEND_RECV_INIT) {
1535: if (Z_TYPE(initialization->u.constant) == IS_NULL || (Z_TYPE(initialization->u.constant) == IS_CONSTANT && !strcasecmp(Z_STRVAL(initialization->u.constant), "NULL"))) {
1536: cur_arg_info->allow_null = 1;
1537: } else {
1538: zend_error(E_COMPILE_ERROR, "Default value for parameters with a class type hint can only be NULL");
1539: }
1540: }
1541: } else {
1542: cur_arg_info->array_type_hint = 1;
1543: cur_arg_info->class_name = NULL;
1544: cur_arg_info->class_name_len = 0;
1545: if (op == ZEND_RECV_INIT) {
1546: if (Z_TYPE(initialization->u.constant) == IS_NULL || (Z_TYPE(initialization->u.constant) == IS_CONSTANT && !strcasecmp(Z_STRVAL(initialization->u.constant), "NULL"))) {
1547: cur_arg_info->allow_null = 1;
1548: } else if (Z_TYPE(initialization->u.constant) != IS_ARRAY && Z_TYPE(initialization->u.constant) != IS_CONSTANT_ARRAY) {
1549: zend_error(E_COMPILE_ERROR, "Default value for parameters with array type hint can only be an array or NULL");
1550: }
1551: }
1552: }
1553: }
1554: opline->result.u.EA.type |= EXT_TYPE_UNUSED;
1555: }
1556: /* }}} */
1557:
1558: int zend_do_begin_function_call(znode *function_name, zend_bool check_namespace TSRMLS_DC) /* {{{ */
1559: {
1560: zend_function *function;
1561: char *lcname;
1562: char *is_compound = memchr(Z_STRVAL(function_name->u.constant), '\\', Z_STRLEN(function_name->u.constant));
1563:
1564: zend_resolve_non_class_name(function_name, check_namespace TSRMLS_CC);
1565:
1566: if (check_namespace && CG(current_namespace) && !is_compound) {
1567: /* We assume we call function from the current namespace
1568: if it is not prefixed. */
1569:
1570: /* In run-time PHP will check for function with full name and
1571: internal function with short name */
1572: zend_do_begin_dynamic_function_call(function_name, 1 TSRMLS_CC);
1573: return 1;
1574: }
1575:
1576: lcname = zend_str_tolower_dup(function_name->u.constant.value.str.val, function_name->u.constant.value.str.len);
1577: if ((zend_hash_find(CG(function_table), lcname, function_name->u.constant.value.str.len+1, (void **) &function)==FAILURE) ||
1578: ((CG(compiler_options) & ZEND_COMPILE_IGNORE_INTERNAL_FUNCTIONS) &&
1579: (function->type == ZEND_INTERNAL_FUNCTION))) {
1580: zend_do_begin_dynamic_function_call(function_name, 0 TSRMLS_CC);
1581: efree(lcname);
1582: return 1; /* Dynamic */
1583: }
1584: efree(function_name->u.constant.value.str.val);
1585: function_name->u.constant.value.str.val = lcname;
1586:
1587: zend_stack_push(&CG(function_call_stack), (void *) &function, sizeof(zend_function *));
1588: zend_do_extended_fcall_begin(TSRMLS_C);
1589: return 0;
1590: }
1591: /* }}} */
1592:
1593: void zend_do_begin_method_call(znode *left_bracket TSRMLS_DC) /* {{{ */
1594: {
1595: zend_op *last_op;
1596: int last_op_number;
1597: unsigned char *ptr = NULL;
1598:
1599: zend_do_end_variable_parse(left_bracket, BP_VAR_R, 0 TSRMLS_CC);
1600: zend_do_begin_variable_parse(TSRMLS_C);
1601:
1602: last_op_number = get_next_op_number(CG(active_op_array))-1;
1603: last_op = &CG(active_op_array)->opcodes[last_op_number];
1604:
1605: if ((last_op->op2.op_type == IS_CONST) && (last_op->op2.u.constant.type == IS_STRING) && (last_op->op2.u.constant.value.str.len == sizeof(ZEND_CLONE_FUNC_NAME)-1)
1606: && !zend_binary_strcasecmp(last_op->op2.u.constant.value.str.val, last_op->op2.u.constant.value.str.len, ZEND_CLONE_FUNC_NAME, sizeof(ZEND_CLONE_FUNC_NAME)-1)) {
1607: zend_error(E_COMPILE_ERROR, "Cannot call __clone() method on objects - use 'clone $obj' instead");
1608: }
1609:
1610: if (last_op->opcode == ZEND_FETCH_OBJ_R) {
1611: last_op->opcode = ZEND_INIT_METHOD_CALL;
1612: SET_UNUSED(last_op->result);
1613: Z_LVAL(left_bracket->u.constant) = ZEND_INIT_FCALL_BY_NAME;
1614: } else {
1615: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1616: opline->opcode = ZEND_INIT_FCALL_BY_NAME;
1617: opline->op2 = *left_bracket;
1618: if (opline->op2.op_type == IS_CONST) {
1619: opline->op1.op_type = IS_CONST;
1620: Z_TYPE(opline->op1.u.constant) = IS_STRING;
1621: Z_STRVAL(opline->op1.u.constant) = zend_str_tolower_dup(Z_STRVAL(opline->op2.u.constant), Z_STRLEN(opline->op2.u.constant));
1622: Z_STRLEN(opline->op1.u.constant) = Z_STRLEN(opline->op2.u.constant);
1623: opline->extended_value = zend_hash_func(Z_STRVAL(opline->op1.u.constant), Z_STRLEN(opline->op1.u.constant) + 1);
1624: } else {
1625: opline->extended_value = 0;
1626: SET_UNUSED(opline->op1);
1627: }
1628: }
1629:
1630: zend_stack_push(&CG(function_call_stack), (void *) &ptr, sizeof(zend_function *));
1631: zend_do_extended_fcall_begin(TSRMLS_C);
1632: }
1633: /* }}} */
1634:
1635: void zend_do_clone(znode *result, const znode *expr TSRMLS_DC) /* {{{ */
1636: {
1637: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1638:
1639: opline->opcode = ZEND_CLONE;
1640: opline->op1 = *expr;
1641: SET_UNUSED(opline->op2);
1642: opline->result.op_type = IS_VAR;
1643: opline->result.u.var = get_temporary_variable(CG(active_op_array));
1644: *result = opline->result;
1645: }
1646: /* }}} */
1647:
1648: void zend_do_begin_dynamic_function_call(znode *function_name, int ns_call TSRMLS_DC) /* {{{ */
1649: {
1650: unsigned char *ptr = NULL;
1651: zend_op *opline, *opline2;
1652:
1653: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1654: if (ns_call) {
1655: char *slash;
1656: int prefix_len, name_len;
1657: /* In run-time PHP will check for function with full name and
1658: internal function with short name */
1659: opline->opcode = ZEND_INIT_NS_FCALL_BY_NAME;
1660: opline->op2 = *function_name;
1661: opline->extended_value = 0;
1662: opline->op1.op_type = IS_CONST;
1663: Z_TYPE(opline->op1.u.constant) = IS_STRING;
1664: Z_STRVAL(opline->op1.u.constant) = zend_str_tolower_dup(Z_STRVAL(opline->op2.u.constant), Z_STRLEN(opline->op2.u.constant));
1665: Z_STRLEN(opline->op1.u.constant) = Z_STRLEN(opline->op2.u.constant);
1666: opline->extended_value = zend_hash_func(Z_STRVAL(opline->op1.u.constant), Z_STRLEN(opline->op1.u.constant) + 1);
1667: slash = zend_memrchr(Z_STRVAL(opline->op1.u.constant), '\\', Z_STRLEN(opline->op1.u.constant));
1668: prefix_len = slash-Z_STRVAL(opline->op1.u.constant)+1;
1669: name_len = Z_STRLEN(opline->op1.u.constant)-prefix_len;
1670: opline2 = get_next_op(CG(active_op_array) TSRMLS_CC);
1671: opline2->opcode = ZEND_OP_DATA;
1672: opline2->op1.op_type = IS_CONST;
1673: Z_TYPE(opline2->op1.u.constant) = IS_LONG;
1674: if(!slash) {
1675: zend_error(E_CORE_ERROR, "Namespaced name %s should contain slash", Z_STRVAL(opline->op1.u.constant));
1676: }
1677: /* this is the length of namespace prefix */
1678: Z_LVAL(opline2->op1.u.constant) = prefix_len;
1679: /* this is the hash of the non-prefixed part, lowercased */
1680: opline2->extended_value = zend_hash_func(slash+1, name_len+1);
1681: SET_UNUSED(opline2->op2);
1682: } else {
1683: opline->opcode = ZEND_INIT_FCALL_BY_NAME;
1684: opline->op2 = *function_name;
1685: if (opline->op2.op_type == IS_CONST) {
1686: opline->op1.op_type = IS_CONST;
1687: Z_TYPE(opline->op1.u.constant) = IS_STRING;
1688: Z_STRVAL(opline->op1.u.constant) = zend_str_tolower_dup(Z_STRVAL(opline->op2.u.constant), Z_STRLEN(opline->op2.u.constant));
1689: Z_STRLEN(opline->op1.u.constant) = Z_STRLEN(opline->op2.u.constant);
1690: opline->extended_value = zend_hash_func(Z_STRVAL(opline->op1.u.constant), Z_STRLEN(opline->op1.u.constant) + 1);
1691: } else {
1692: opline->extended_value = 0;
1693: SET_UNUSED(opline->op1);
1694: }
1695: }
1696:
1697: zend_stack_push(&CG(function_call_stack), (void *) &ptr, sizeof(zend_function *));
1698: zend_do_extended_fcall_begin(TSRMLS_C);
1699: }
1700: /* }}} */
1701:
1702: void zend_resolve_non_class_name(znode *element_name, zend_bool check_namespace TSRMLS_DC) /* {{{ */
1703: {
1704: znode tmp;
1705: int len;
1706: zval **ns;
1707: char *lcname, *compound = memchr(Z_STRVAL(element_name->u.constant), '\\', Z_STRLEN(element_name->u.constant));
1708:
1709: if (Z_STRVAL(element_name->u.constant)[0] == '\\') {
1710: /* name starts with \ so it is known and unambiguos, nothing to do here but shorten it */
1711: memmove(Z_STRVAL(element_name->u.constant), Z_STRVAL(element_name->u.constant)+1, Z_STRLEN(element_name->u.constant));
1712: --Z_STRLEN(element_name->u.constant);
1713: return;
1714: }
1715:
1716: if(!check_namespace) {
1717: return;
1718: }
1719:
1720: if (compound && CG(current_import)) {
1721: len = compound - Z_STRVAL(element_name->u.constant);
1722: lcname = zend_str_tolower_dup(Z_STRVAL(element_name->u.constant), len);
1723: /* Check if first part of compound name is an import name */
1724: if (zend_hash_find(CG(current_import), lcname, len+1, (void**)&ns) == SUCCESS) {
1725: /* Substitute import name */
1726: tmp.op_type = IS_CONST;
1727: tmp.u.constant = **ns;
1728: zval_copy_ctor(&tmp.u.constant);
1729: len += 1;
1730: Z_STRLEN(element_name->u.constant) -= len;
1731: memmove(Z_STRVAL(element_name->u.constant), Z_STRVAL(element_name->u.constant)+len, Z_STRLEN(element_name->u.constant)+1);
1732: zend_do_build_namespace_name(&tmp, &tmp, element_name TSRMLS_CC);
1733: *element_name = tmp;
1734: efree(lcname);
1735: return;
1736: }
1737: efree(lcname);
1738: }
1739:
1740: if (CG(current_namespace)) {
1741: tmp = *element_name;
1742: Z_STRLEN(tmp.u.constant) = sizeof("\\")-1 + Z_STRLEN(element_name->u.constant) + Z_STRLEN_P(CG(current_namespace));
1743: Z_STRVAL(tmp.u.constant) = (char *) emalloc(Z_STRLEN(tmp.u.constant)+1);
1744: memcpy(Z_STRVAL(tmp.u.constant), Z_STRVAL_P(CG(current_namespace)), Z_STRLEN_P(CG(current_namespace)));
1745: memcpy(&(Z_STRVAL(tmp.u.constant)[Z_STRLEN_P(CG(current_namespace))]), "\\", sizeof("\\")-1);
1746: 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);
1747: STR_FREE(Z_STRVAL(element_name->u.constant));
1748: *element_name = tmp;
1749: }
1750: }
1751: /* }}} */
1752:
1753: void zend_resolve_class_name(znode *class_name, ulong *fetch_type, int check_ns_name TSRMLS_DC) /* {{{ */
1754: {
1755: char *compound;
1756: char *lcname;
1757: zval **ns;
1758: znode tmp;
1759: int len;
1760:
1761: compound = memchr(Z_STRVAL(class_name->u.constant), '\\', Z_STRLEN(class_name->u.constant));
1762: if (compound) {
1763: /* This is a compound class name that contains namespace prefix */
1764: if (Z_STRVAL(class_name->u.constant)[0] == '\\') {
1765: /* The STRING name has "\" prefix */
1766: Z_STRLEN(class_name->u.constant) -= 1;
1767: memmove(Z_STRVAL(class_name->u.constant), Z_STRVAL(class_name->u.constant)+1, Z_STRLEN(class_name->u.constant)+1);
1768: Z_STRVAL(class_name->u.constant) = erealloc(
1769: Z_STRVAL(class_name->u.constant),
1770: Z_STRLEN(class_name->u.constant) + 1);
1771:
1772: if (ZEND_FETCH_CLASS_DEFAULT != zend_get_class_fetch_type(Z_STRVAL(class_name->u.constant), Z_STRLEN(class_name->u.constant))) {
1773: zend_error(E_COMPILE_ERROR, "'\\%s' is an invalid class name", Z_STRVAL(class_name->u.constant));
1774: }
1775: } else {
1776: if (CG(current_import)) {
1777: len = compound - Z_STRVAL(class_name->u.constant);
1778: lcname = zend_str_tolower_dup(Z_STRVAL(class_name->u.constant), len);
1779: /* Check if first part of compound name is an import name */
1780: if (zend_hash_find(CG(current_import), lcname, len+1, (void**)&ns) == SUCCESS) {
1781: /* Substitute import name */
1782: tmp.op_type = IS_CONST;
1783: tmp.u.constant = **ns;
1784: zval_copy_ctor(&tmp.u.constant);
1785: len += 1;
1786: Z_STRLEN(class_name->u.constant) -= len;
1787: memmove(Z_STRVAL(class_name->u.constant), Z_STRVAL(class_name->u.constant)+len, Z_STRLEN(class_name->u.constant)+1);
1788: zend_do_build_namespace_name(&tmp, &tmp, class_name TSRMLS_CC);
1789: *class_name = tmp;
1790: efree(lcname);
1791: return;
1792: }
1793: efree(lcname);
1794: }
1795: /* Here name is not prefixed with \ and not imported */
1796: if (CG(current_namespace)) {
1797: tmp.op_type = IS_CONST;
1798: tmp.u.constant = *CG(current_namespace);
1799: zval_copy_ctor(&tmp.u.constant);
1800: zend_do_build_namespace_name(&tmp, &tmp, class_name TSRMLS_CC);
1801: *class_name = tmp;
1802: }
1803: }
1804: } else if (CG(current_import) || CG(current_namespace)) {
1805: /* this is a plain name (without \) */
1806: lcname = zend_str_tolower_dup(Z_STRVAL(class_name->u.constant), Z_STRLEN(class_name->u.constant));
1807:
1808: if (CG(current_import) &&
1809: zend_hash_find(CG(current_import), lcname, Z_STRLEN(class_name->u.constant)+1, (void**)&ns) == SUCCESS) {
1810: /* The given name is an import name. Substitute it. */
1811: zval_dtor(&class_name->u.constant);
1812: class_name->u.constant = **ns;
1813: zval_copy_ctor(&class_name->u.constant);
1814: } else if (CG(current_namespace)) {
1815: /* plain name, no import - prepend current namespace to it */
1816: tmp.op_type = IS_CONST;
1817: tmp.u.constant = *CG(current_namespace);
1818: zval_copy_ctor(&tmp.u.constant);
1819: zend_do_build_namespace_name(&tmp, &tmp, class_name TSRMLS_CC);
1820: *class_name = tmp;
1821: }
1822: efree(lcname);
1823: }
1824: }
1825: /* }}} */
1826:
1827: void zend_do_fetch_class(znode *result, znode *class_name TSRMLS_DC) /* {{{ */
1828: {
1829: long fetch_class_op_number;
1830: zend_op *opline;
1831:
1832: if (class_name->op_type == IS_CONST &&
1833: Z_TYPE(class_name->u.constant) == IS_STRING &&
1834: Z_STRLEN(class_name->u.constant) == 0) {
1835: /* Usage of namespace as class name not in namespace */
1836: zval_dtor(&class_name->u.constant);
1837: zend_error(E_COMPILE_ERROR, "Cannot use 'namespace' as a class name");
1838: return;
1839: }
1840:
1841: fetch_class_op_number = get_next_op_number(CG(active_op_array));
1842: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1843:
1844: opline->opcode = ZEND_FETCH_CLASS;
1845: SET_UNUSED(opline->op1);
1846: opline->extended_value = ZEND_FETCH_CLASS_GLOBAL;
1847: CG(catch_begin) = fetch_class_op_number;
1848: if (class_name->op_type == IS_CONST) {
1849: int fetch_type;
1850:
1851: fetch_type = zend_get_class_fetch_type(class_name->u.constant.value.str.val, class_name->u.constant.value.str.len);
1852: switch (fetch_type) {
1853: case ZEND_FETCH_CLASS_SELF:
1854: case ZEND_FETCH_CLASS_PARENT:
1855: case ZEND_FETCH_CLASS_STATIC:
1856: SET_UNUSED(opline->op2);
1857: opline->extended_value = fetch_type;
1858: zval_dtor(&class_name->u.constant);
1859: break;
1860: default:
1861: zend_resolve_class_name(class_name, &opline->extended_value, 0 TSRMLS_CC);
1862: opline->op2 = *class_name;
1863: break;
1864: }
1865: } else {
1866: opline->op2 = *class_name;
1867: }
1868: opline->result.u.var = get_temporary_variable(CG(active_op_array));
1869: opline->result.u.EA.type = opline->extended_value;
1870: opline->result.op_type = IS_VAR; /* FIXME: Hack so that INIT_FCALL_BY_NAME still knows this is a class */
1871: *result = opline->result;
1872: }
1873: /* }}} */
1874:
1875: void zend_do_label(znode *label TSRMLS_DC) /* {{{ */
1876: {
1877: zend_op_array *oparray = CG(active_op_array);
1878: zend_label dest;
1879:
1880: if (!CG(labels)) {
1881: ALLOC_HASHTABLE(CG(labels));
1882: zend_hash_init(CG(labels), 4, NULL, NULL, 0);
1883: }
1884:
1885: dest.brk_cont = oparray->current_brk_cont;
1886: dest.opline_num = get_next_op_number(oparray);
1887:
1888: if (zend_hash_add(CG(labels), Z_STRVAL(label->u.constant), Z_STRLEN(label->u.constant) + 1, (void**)&dest, sizeof(zend_label), NULL) == FAILURE) {
1889: zend_error(E_COMPILE_ERROR, "Label '%s' already defined", Z_STRVAL(label->u.constant));
1890: }
1891:
1892: /* Done with label now */
1893: zval_dtor(&label->u.constant);
1894: }
1895: /* }}} */
1896:
1897: void zend_resolve_goto_label(zend_op_array *op_array, zend_op *opline, int pass2 TSRMLS_DC) /* {{{ */
1898: {
1899: zend_label *dest;
1900: long current, distance;
1901:
1902: if (CG(labels) == NULL ||
1903: zend_hash_find(CG(labels), Z_STRVAL(opline->op2.u.constant), Z_STRLEN(opline->op2.u.constant)+1, (void**)&dest) == FAILURE) {
1904:
1905: if (pass2) {
1906: CG(in_compilation) = 1;
1907: CG(active_op_array) = op_array;
1908: CG(zend_lineno) = opline->lineno;
1909: zend_error(E_COMPILE_ERROR, "'goto' to undefined label '%s'", Z_STRVAL(opline->op2.u.constant));
1910: } else {
1911: /* Label is not defined. Delay to pass 2. */
1912: INC_BPC(op_array);
1913: return;
1914: }
1915: }
1916:
1917: opline->op1.u.opline_num = dest->opline_num;
1918: zval_dtor(&opline->op2.u.constant);
1919:
1920: /* Check that we are not moving into loop or switch */
1921: current = opline->extended_value;
1922: for (distance = 0; current != dest->brk_cont; distance++) {
1923: if (current == -1) {
1924: if (pass2) {
1925: CG(in_compilation) = 1;
1926: CG(active_op_array) = op_array;
1927: CG(zend_lineno) = opline->lineno;
1928: }
1929: zend_error(E_COMPILE_ERROR, "'goto' into loop or switch statement is disallowed");
1930: }
1931: current = op_array->brk_cont_array[current].parent;
1932: }
1933:
1934: if (distance == 0) {
1935: /* Nothing to break out of, optimize to ZEND_JMP */
1936: opline->opcode = ZEND_JMP;
1937: opline->extended_value = 0;
1938: SET_UNUSED(opline->op2);
1939: } else {
1940: /* Set real break distance */
1941: ZVAL_LONG(&opline->op2.u.constant, distance);
1942: }
1943:
1944: if (pass2) {
1945: DEC_BPC(op_array);
1946: }
1947: }
1948: /* }}} */
1949:
1950: void zend_do_goto(const znode *label TSRMLS_DC) /* {{{ */
1951: {
1952: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
1953:
1954: opline->opcode = ZEND_GOTO;
1955: opline->extended_value = CG(active_op_array)->current_brk_cont;
1956: SET_UNUSED(opline->op1);
1957: opline->op2 = *label;
1958: zend_resolve_goto_label(CG(active_op_array), opline, 0 TSRMLS_CC);
1959: }
1960: /* }}} */
1961:
1962: void zend_release_labels(TSRMLS_D) /* {{{ */
1963: {
1964: if (CG(labels)) {
1965: zend_hash_destroy(CG(labels));
1966: FREE_HASHTABLE(CG(labels));
1967: }
1968: if (!zend_stack_is_empty(&CG(labels_stack))) {
1969: HashTable **pht;
1970:
1971: zend_stack_top(&CG(labels_stack), (void**)&pht);
1972: CG(labels) = *pht;
1973: zend_stack_del_top(&CG(labels_stack));
1974: } else {
1975: CG(labels) = NULL;
1976: }
1977: }
1978: /* }}} */
1979:
1980: void zend_do_build_full_name(znode *result, znode *prefix, znode *name, int is_class_member TSRMLS_DC) /* {{{ */
1981: {
1982: zend_uint length;
1983:
1984: if (!result) {
1985: result = prefix;
1986: } else {
1987: *result = *prefix;
1988: }
1989:
1990: if (is_class_member) {
1991: length = sizeof("::")-1 + result->u.constant.value.str.len + name->u.constant.value.str.len;
1992: result->u.constant.value.str.val = erealloc(result->u.constant.value.str.val, length+1);
1993: memcpy(&result->u.constant.value.str.val[result->u.constant.value.str.len], "::", sizeof("::")-1);
1994: 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);
1995: STR_FREE(name->u.constant.value.str.val);
1996: result->u.constant.value.str.len = length;
1997: } else {
1998: length = sizeof("\\")-1 + result->u.constant.value.str.len + name->u.constant.value.str.len;
1999: result->u.constant.value.str.val = erealloc(result->u.constant.value.str.val, length+1);
2000: memcpy(&result->u.constant.value.str.val[result->u.constant.value.str.len], "\\", sizeof("\\")-1);
2001: 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);
2002: STR_FREE(name->u.constant.value.str.val);
2003: result->u.constant.value.str.len = length;
2004: }
2005: }
2006: /* }}} */
2007:
2008: int zend_do_begin_class_member_function_call(znode *class_name, znode *method_name TSRMLS_DC) /* {{{ */
2009: {
2010: znode class_node;
2011: unsigned char *ptr = NULL;
2012: zend_op *opline;
2013: ulong fetch_type = 0;
2014:
2015: if (method_name->op_type == IS_CONST) {
2016: char *lcname = zend_str_tolower_dup(Z_STRVAL(method_name->u.constant), Z_STRLEN(method_name->u.constant));
2017: if ((sizeof(ZEND_CONSTRUCTOR_FUNC_NAME)-1) == Z_STRLEN(method_name->u.constant) &&
2018: memcmp(lcname, ZEND_CONSTRUCTOR_FUNC_NAME, sizeof(ZEND_CONSTRUCTOR_FUNC_NAME)-1) == 0) {
2019: zval_dtor(&method_name->u.constant);
2020: SET_UNUSED(*method_name);
2021: }
2022: efree(lcname);
2023: }
2024:
2025: if (class_name->op_type == IS_CONST &&
2026: ZEND_FETCH_CLASS_DEFAULT == zend_get_class_fetch_type(Z_STRVAL(class_name->u.constant), Z_STRLEN(class_name->u.constant))) {
2027: fetch_type = ZEND_FETCH_CLASS_GLOBAL;
2028: zend_resolve_class_name(class_name, &fetch_type, 1 TSRMLS_CC);
2029: class_node = *class_name;
2030: } else {
2031: zend_do_fetch_class(&class_node, class_name TSRMLS_CC);
2032: }
2033: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2034: opline->opcode = ZEND_INIT_STATIC_METHOD_CALL;
2035: opline->op1 = class_node;
2036: opline->op2 = *method_name;
2037:
2038: zend_stack_push(&CG(function_call_stack), (void *) &ptr, sizeof(zend_function *));
2039: zend_do_extended_fcall_begin(TSRMLS_C);
2040: return 1; /* Dynamic */
2041: }
2042: /* }}} */
2043:
2044: void zend_do_end_function_call(znode *function_name, znode *result, const znode *argument_list, int is_method, int is_dynamic_fcall TSRMLS_DC) /* {{{ */
2045: {
2046: zend_op *opline;
2047:
2048: if (is_method && function_name && function_name->op_type == IS_UNUSED) {
2049: /* clone */
2050: if (Z_LVAL(argument_list->u.constant) != 0) {
2051: zend_error(E_WARNING, "Clone method does not require arguments");
2052: }
2053: opline = &CG(active_op_array)->opcodes[Z_LVAL(function_name->u.constant)];
2054: } else {
2055: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2056: if (!is_method && !is_dynamic_fcall && function_name->op_type==IS_CONST) {
2057: opline->opcode = ZEND_DO_FCALL;
2058: opline->op1 = *function_name;
2059: ZVAL_LONG(&opline->op2.u.constant, zend_hash_func(Z_STRVAL(function_name->u.constant), Z_STRLEN(function_name->u.constant) + 1));
2060: } else {
2061: opline->opcode = ZEND_DO_FCALL_BY_NAME;
2062: SET_UNUSED(opline->op1);
2063: }
2064: }
2065:
2066: opline->result.u.var = get_temporary_variable(CG(active_op_array));
2067: opline->result.op_type = IS_VAR;
2068: *result = opline->result;
2069: SET_UNUSED(opline->op2);
2070:
2071: zend_stack_del_top(&CG(function_call_stack));
2072: opline->extended_value = Z_LVAL(argument_list->u.constant);
2073: }
2074: /* }}} */
2075:
2076: void zend_do_pass_param(znode *param, zend_uchar op, int offset TSRMLS_DC) /* {{{ */
2077: {
2078: zend_op *opline;
2079: int original_op=op;
2080: zend_function **function_ptr_ptr, *function_ptr;
2081: int send_by_reference;
2082: int send_function = 0;
2083:
2084: zend_stack_top(&CG(function_call_stack), (void **) &function_ptr_ptr);
2085: function_ptr = *function_ptr_ptr;
2086:
2087: if (original_op == ZEND_SEND_REF && !CG(allow_call_time_pass_reference)) {
2088: if (function_ptr &&
2089: function_ptr->common.function_name &&
2090: function_ptr->common.type == ZEND_USER_FUNCTION &&
2091: !ARG_SHOULD_BE_SENT_BY_REF(function_ptr, (zend_uint) offset)) {
2092: zend_error(E_DEPRECATED,
2093: "Call-time pass-by-reference has been deprecated; "
2094: "If you would like to pass it by reference, modify the declaration of %s(). "
2095: "If you would like to enable call-time pass-by-reference, you can set "
2096: "allow_call_time_pass_reference to true in your INI file", function_ptr->common.function_name);
2097: } else {
2098: zend_error(E_DEPRECATED, "Call-time pass-by-reference has been deprecated");
2099: }
2100: }
2101:
2102: if (function_ptr) {
2103: if (ARG_MAY_BE_SENT_BY_REF(function_ptr, (zend_uint) offset)) {
2104: if (param->op_type & (IS_VAR|IS_CV)) {
2105: send_by_reference = 1;
2106: if (op == ZEND_SEND_VAR && zend_is_function_or_method_call(param)) {
2107: /* Method call */
2108: op = ZEND_SEND_VAR_NO_REF;
2109: send_function = ZEND_ARG_SEND_FUNCTION | ZEND_ARG_SEND_SILENT;
2110: }
2111: } else {
2112: op = ZEND_SEND_VAL;
2113: send_by_reference = 0;
2114: }
2115: } else {
2116: send_by_reference = ARG_SHOULD_BE_SENT_BY_REF(function_ptr, (zend_uint) offset) ? ZEND_ARG_SEND_BY_REF : 0;
2117: }
2118: } else {
2119: send_by_reference = 0;
2120: }
2121:
2122: if (op == ZEND_SEND_VAR && zend_is_function_or_method_call(param)) {
2123: /* Method call */
2124: op = ZEND_SEND_VAR_NO_REF;
2125: send_function = ZEND_ARG_SEND_FUNCTION;
2126: } else if (op == ZEND_SEND_VAL && (param->op_type & (IS_VAR|IS_CV))) {
2127: op = ZEND_SEND_VAR_NO_REF;
2128: }
2129:
2130: if (op!=ZEND_SEND_VAR_NO_REF && send_by_reference==ZEND_ARG_SEND_BY_REF) {
2131: /* change to passing by reference */
2132: switch (param->op_type) {
2133: case IS_VAR:
2134: case IS_CV:
2135: op = ZEND_SEND_REF;
2136: break;
2137: default:
2138: zend_error(E_COMPILE_ERROR, "Only variables can be passed by reference");
2139: break;
2140: }
2141: }
2142:
2143: if (original_op == ZEND_SEND_VAR) {
2144: switch (op) {
2145: case ZEND_SEND_VAR_NO_REF:
2146: zend_do_end_variable_parse(param, BP_VAR_R, 0 TSRMLS_CC);
2147: break;
2148: case ZEND_SEND_VAR:
2149: if (function_ptr) {
2150: zend_do_end_variable_parse(param, BP_VAR_R, 0 TSRMLS_CC);
2151: } else {
2152: zend_do_end_variable_parse(param, BP_VAR_FUNC_ARG, offset TSRMLS_CC);
2153: }
2154: break;
2155: case ZEND_SEND_REF:
2156: zend_do_end_variable_parse(param, BP_VAR_W, 0 TSRMLS_CC);
2157: break;
2158: }
2159: }
2160:
2161: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2162:
2163: if (op == ZEND_SEND_VAR_NO_REF) {
2164: if (function_ptr) {
2165: opline->extended_value = ZEND_ARG_COMPILE_TIME_BOUND | send_by_reference | send_function;
2166: } else {
2167: opline->extended_value = send_function;
2168: }
2169: } else {
2170: if (function_ptr) {
2171: opline->extended_value = ZEND_DO_FCALL;
2172: } else {
2173: opline->extended_value = ZEND_DO_FCALL_BY_NAME;
2174: }
2175: }
2176: opline->opcode = op;
2177: opline->op1 = *param;
2178: opline->op2.u.opline_num = offset;
2179: SET_UNUSED(opline->op2);
2180: }
2181: /* }}} */
2182:
2183: static int generate_free_switch_expr(const zend_switch_entry *switch_entry TSRMLS_DC) /* {{{ */
2184: {
2185: zend_op *opline;
2186:
2187: if (switch_entry->cond.op_type != IS_VAR && switch_entry->cond.op_type != IS_TMP_VAR) {
2188: return (switch_entry->cond.op_type == IS_UNUSED);
2189: }
2190:
2191: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2192:
2193: opline->opcode = (switch_entry->cond.op_type == IS_TMP_VAR) ? ZEND_FREE : ZEND_SWITCH_FREE;
2194: opline->op1 = switch_entry->cond;
2195: SET_UNUSED(opline->op2);
2196: opline->extended_value = 0;
2197: return 0;
2198: }
2199: /* }}} */
2200:
2201: static int generate_free_foreach_copy(const zend_op *foreach_copy TSRMLS_DC) /* {{{ */
2202: {
2203: zend_op *opline;
2204:
2205: /* If we reach the seperator then stop applying the stack */
2206: if (foreach_copy->result.op_type == IS_UNUSED && foreach_copy->op1.op_type == IS_UNUSED) {
2207: return 1;
2208: }
2209:
2210: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2211:
2212: opline->opcode = (foreach_copy->result.op_type == IS_TMP_VAR) ? ZEND_FREE : ZEND_SWITCH_FREE;
2213: opline->op1 = foreach_copy->result;
2214: SET_UNUSED(opline->op2);
2215: opline->extended_value = 1;
2216:
2217: if (foreach_copy->op1.op_type != IS_UNUSED) {
2218: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2219:
2220: opline->opcode = (foreach_copy->op1.op_type == IS_TMP_VAR) ? ZEND_FREE : ZEND_SWITCH_FREE;
2221: opline->op1 = foreach_copy->op1;
2222: SET_UNUSED(opline->op2);
2223: opline->extended_value = 0;
2224: }
2225:
2226: return 0;
2227: }
2228: /* }}} */
2229:
2230: void zend_do_return(znode *expr, int do_end_vparse TSRMLS_DC) /* {{{ */
2231: {
2232: zend_op *opline;
2233: int start_op_number, end_op_number;
2234:
2235: if (do_end_vparse) {
2236: if (CG(active_op_array)->return_reference && !zend_is_function_or_method_call(expr)) {
2237: zend_do_end_variable_parse(expr, BP_VAR_W, 0 TSRMLS_CC);
2238: } else {
2239: zend_do_end_variable_parse(expr, BP_VAR_R, 0 TSRMLS_CC);
2240: }
2241: }
2242:
2243: start_op_number = get_next_op_number(CG(active_op_array));
2244:
2245: #ifdef ZTS
2246: zend_stack_apply_with_argument(&CG(switch_cond_stack), ZEND_STACK_APPLY_TOPDOWN, (int (*)(void *element, void *)) generate_free_switch_expr TSRMLS_CC);
2247: zend_stack_apply_with_argument(&CG(foreach_copy_stack), ZEND_STACK_APPLY_TOPDOWN, (int (*)(void *element, void *)) generate_free_foreach_copy TSRMLS_CC);
2248: #else
2249: zend_stack_apply(&CG(switch_cond_stack), ZEND_STACK_APPLY_TOPDOWN, (int (*)(void *element)) generate_free_switch_expr);
2250: zend_stack_apply(&CG(foreach_copy_stack), ZEND_STACK_APPLY_TOPDOWN, (int (*)(void *element)) generate_free_foreach_copy);
2251: #endif
2252:
2253: end_op_number = get_next_op_number(CG(active_op_array));
2254: while (start_op_number < end_op_number) {
2255: CG(active_op_array)->opcodes[start_op_number].op1.u.EA.type = EXT_TYPE_FREE_ON_RETURN;
2256: start_op_number++;
2257: }
2258:
2259: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2260:
2261: opline->opcode = ZEND_RETURN;
2262:
2263: if (expr) {
2264: opline->op1 = *expr;
2265:
2266: if (do_end_vparse && zend_is_function_or_method_call(expr)) {
2267: opline->extended_value = ZEND_RETURNS_FUNCTION;
2268: }
2269: } else {
2270: opline->op1.op_type = IS_CONST;
2271: INIT_ZVAL(opline->op1.u.constant);
2272: }
2273:
2274: SET_UNUSED(opline->op2);
2275: }
2276: /* }}} */
2277:
2278: static int zend_add_try_element(zend_uint try_op TSRMLS_DC) /* {{{ */
2279: {
2280: int try_catch_offset = CG(active_op_array)->last_try_catch++;
2281:
2282: 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);
2283: CG(active_op_array)->try_catch_array[try_catch_offset].try_op = try_op;
2284: return try_catch_offset;
2285: }
2286: /* }}} */
2287:
2288: static void zend_add_catch_element(int offset, zend_uint catch_op TSRMLS_DC) /* {{{ */
2289: {
2290: CG(active_op_array)->try_catch_array[offset].catch_op = catch_op;
2291: }
2292: /* }}} */
2293:
2294: void zend_do_first_catch(znode *open_parentheses TSRMLS_DC) /* {{{ */
2295: {
2296: open_parentheses->u.opline_num = get_next_op_number(CG(active_op_array));
2297: }
2298: /* }}} */
2299:
2300: void zend_initialize_try_catch_element(const znode *try_token TSRMLS_DC) /* {{{ */
2301: {
2302: int jmp_op_number = get_next_op_number(CG(active_op_array));
2303: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2304: zend_llist jmp_list;
2305: zend_llist *jmp_list_ptr;
2306:
2307: opline->opcode = ZEND_JMP;
2308: SET_UNUSED(opline->op1);
2309: SET_UNUSED(opline->op2);
2310: /* save for backpatching */
2311:
2312: zend_llist_init(&jmp_list, sizeof(int), NULL, 0);
2313: zend_stack_push(&CG(bp_stack), (void *) &jmp_list, sizeof(zend_llist));
2314: zend_stack_top(&CG(bp_stack), (void **) &jmp_list_ptr);
2315: zend_llist_add_element(jmp_list_ptr, &jmp_op_number);
2316:
2317: zend_add_catch_element(try_token->u.opline_num, get_next_op_number(CG(active_op_array)) TSRMLS_CC);
2318: }
2319: /* }}} */
2320:
2321: void zend_do_mark_last_catch(const znode *first_catch, const znode *last_additional_catch TSRMLS_DC) /* {{{ */
2322: {
2323: CG(active_op_array)->last--;
2324: zend_do_if_end(TSRMLS_C);
2325: if (last_additional_catch->u.opline_num == -1) {
2326: CG(active_op_array)->opcodes[first_catch->u.opline_num].op1.u.EA.type = 1;
2327: CG(active_op_array)->opcodes[first_catch->u.opline_num].extended_value = get_next_op_number(CG(active_op_array));
2328: } else {
2329: CG(active_op_array)->opcodes[last_additional_catch->u.opline_num].op1.u.EA.type = 1;
2330: CG(active_op_array)->opcodes[last_additional_catch->u.opline_num].extended_value = get_next_op_number(CG(active_op_array));
2331: }
2332: DEC_BPC(CG(active_op_array));
2333: }
2334: /* }}} */
2335:
2336: void zend_do_try(znode *try_token TSRMLS_DC) /* {{{ */
2337: {
2338: try_token->u.opline_num = zend_add_try_element(get_next_op_number(CG(active_op_array)) TSRMLS_CC);
2339: INC_BPC(CG(active_op_array));
2340: }
2341: /* }}} */
2342:
2343: void zend_do_begin_catch(znode *try_token, znode *class_name, const znode *catch_var, znode *first_catch TSRMLS_DC) /* {{{ */
2344: {
2345: long catch_op_number;
2346: zend_op *opline;
2347: znode catch_class;
2348:
2349: zend_do_fetch_class(&catch_class, class_name TSRMLS_CC);
2350:
2351: catch_op_number = get_next_op_number(CG(active_op_array));
2352: if (catch_op_number > 0) {
2353: opline = &CG(active_op_array)->opcodes[catch_op_number-1];
2354: if (opline->opcode == ZEND_FETCH_CLASS) {
2355: opline->extended_value |= ZEND_FETCH_CLASS_NO_AUTOLOAD;
2356: }
2357: }
2358:
2359: if (first_catch) {
2360: first_catch->u.opline_num = catch_op_number;
2361: }
2362:
2363: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2364: opline->opcode = ZEND_CATCH;
2365: opline->op1 = catch_class;
2366: /* SET_UNUSED(opline->op1); */ /* FIXME: Define IS_CLASS or something like that */
2367: opline->op2.op_type = IS_CV;
2368: opline->op2.u.var = lookup_cv(CG(active_op_array), catch_var->u.constant.value.str.val, catch_var->u.constant.value.str.len);
2369: opline->op2.u.EA.type = 0;
2370: opline->op1.u.EA.type = 0; /* 1 means it's the last catch in the block */
2371:
2372: try_token->u.opline_num = catch_op_number;
2373: }
2374: /* }}} */
2375:
2376: void zend_do_end_catch(const znode *try_token TSRMLS_DC) /* {{{ */
2377: {
2378: int jmp_op_number = get_next_op_number(CG(active_op_array));
2379: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2380: zend_llist *jmp_list_ptr;
2381:
2382: opline->opcode = ZEND_JMP;
2383: SET_UNUSED(opline->op1);
2384: SET_UNUSED(opline->op2);
2385: /* save for backpatching */
2386:
2387: zend_stack_top(&CG(bp_stack), (void **) &jmp_list_ptr);
2388: zend_llist_add_element(jmp_list_ptr, &jmp_op_number);
2389:
2390: CG(active_op_array)->opcodes[try_token->u.opline_num].extended_value = get_next_op_number(CG(active_op_array));
2391: }
2392: /* }}} */
2393:
2394: void zend_do_throw(const znode *expr TSRMLS_DC) /* {{{ */
2395: {
2396: zend_op *opline;
2397:
2398: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
2399: opline->opcode = ZEND_THROW;
2400: opline->op1 = *expr;
2401: SET_UNUSED(opline->op2);
2402: }
2403: /* }}} */
2404:
2405: ZEND_API void function_add_ref(zend_function *function) /* {{{ */
2406: {
2407: if (function->type == ZEND_USER_FUNCTION) {
2408: zend_op_array *op_array = &function->op_array;
2409:
2410: (*op_array->refcount)++;
2411: if (op_array->static_variables) {
2412: HashTable *static_variables = op_array->static_variables;
2413: zval *tmp_zval;
2414:
2415: ALLOC_HASHTABLE(op_array->static_variables);
2416: zend_hash_init(op_array->static_variables, zend_hash_num_elements(static_variables), NULL, ZVAL_PTR_DTOR, 0);
2417: zend_hash_copy(op_array->static_variables, static_variables, (copy_ctor_func_t) zval_add_ref, (void *) &tmp_zval, sizeof(zval *));
2418: }
2419: }
2420: }
2421: /* }}} */
2422:
2423: static void do_inherit_parent_constructor(zend_class_entry *ce) /* {{{ */
2424: {
2425: zend_function *function;
2426:
2427: if (!ce->parent) {
2428: return;
2429: }
2430:
2431: /* You cannot change create_object */
2432: ce->create_object = ce->parent->create_object;
2433:
2434: /* Inherit special functions if needed */
2435: if (!ce->get_iterator) {
2436: ce->get_iterator = ce->parent->get_iterator;
2437: }
2438: if (!ce->iterator_funcs.funcs) {
2439: ce->iterator_funcs.funcs = ce->parent->iterator_funcs.funcs;
2440: }
2441: if (!ce->__get) {
2442: ce->__get = ce->parent->__get;
2443: }
2444: if (!ce->__set) {
2445: ce->__set = ce->parent->__set;
2446: }
2447: if (!ce->__unset) {
2448: ce->__unset = ce->parent->__unset;
2449: }
2450: if (!ce->__isset) {
2451: ce->__isset = ce->parent->__isset;
2452: }
2453: if (!ce->__call) {
2454: ce->__call = ce->parent->__call;
2455: }
2456: if (!ce->__callstatic) {
2457: ce->__callstatic = ce->parent->__callstatic;
2458: }
2459: if (!ce->__tostring) {
2460: ce->__tostring = ce->parent->__tostring;
2461: }
2462: if (!ce->clone) {
2463: ce->clone = ce->parent->clone;
2464: }
2465: if(!ce->serialize) {
2466: ce->serialize = ce->parent->serialize;
2467: }
2468: if(!ce->unserialize) {
2469: ce->unserialize = ce->parent->unserialize;
2470: }
2471: if (!ce->destructor) {
2472: ce->destructor = ce->parent->destructor;
2473: }
2474: if (ce->constructor) {
2475: if (ce->parent->constructor && ce->parent->constructor->common.fn_flags & ZEND_ACC_FINAL) {
2476: zend_error(E_ERROR, "Cannot override final %s::%s() with %s::%s()",
2477: ce->parent->name, ce->parent->constructor->common.function_name,
2478: ce->name, ce->constructor->common.function_name
2479: );
2480: }
2481: return;
2482: }
2483:
2484: if (zend_hash_find(&ce->parent->function_table, ZEND_CONSTRUCTOR_FUNC_NAME, sizeof(ZEND_CONSTRUCTOR_FUNC_NAME), (void **)&function)==SUCCESS) {
2485: /* inherit parent's constructor */
2486: zend_hash_update(&ce->function_table, ZEND_CONSTRUCTOR_FUNC_NAME, sizeof(ZEND_CONSTRUCTOR_FUNC_NAME), function, sizeof(zend_function), NULL);
2487: function_add_ref(function);
2488: } else {
2489: /* Don't inherit the old style constructor if we already have the new style constructor */
2490: char *lc_class_name;
2491: char *lc_parent_class_name;
2492:
2493: lc_class_name = zend_str_tolower_dup(ce->name, ce->name_length);
2494: if (!zend_hash_exists(&ce->function_table, lc_class_name, ce->name_length+1)) {
2495: lc_parent_class_name = zend_str_tolower_dup(ce->parent->name, ce->parent->name_length);
2496: if (!zend_hash_exists(&ce->function_table, lc_parent_class_name, ce->parent->name_length+1) &&
2497: zend_hash_find(&ce->parent->function_table, lc_parent_class_name, ce->parent->name_length+1, (void **)&function)==SUCCESS) {
2498: if (function->common.fn_flags & ZEND_ACC_CTOR) {
2499: /* inherit parent's constructor */
2500: zend_hash_update(&ce->function_table, lc_parent_class_name, ce->parent->name_length+1, function, sizeof(zend_function), NULL);
2501: function_add_ref(function);
2502: }
2503: }
2504: efree(lc_parent_class_name);
2505: }
2506: efree(lc_class_name);
2507: }
2508: ce->constructor = ce->parent->constructor;
2509: }
2510: /* }}} */
2511:
2512: char *zend_visibility_string(zend_uint fn_flags) /* {{{ */
2513: {
2514: if (fn_flags & ZEND_ACC_PRIVATE) {
2515: return "private";
2516: }
2517: if (fn_flags & ZEND_ACC_PROTECTED) {
2518: return "protected";
2519: }
2520: if (fn_flags & ZEND_ACC_PUBLIC) {
2521: return "public";
2522: }
2523: return "";
2524: }
2525: /* }}} */
2526:
2527: static void do_inherit_method(zend_function *function) /* {{{ */
2528: {
2529: /* The class entry of the derived function intentionally remains the same
2530: * as that of the parent class. That allows us to know in which context
2531: * we're running, and handle private method calls properly.
2532: */
2533: function_add_ref(function);
2534: }
2535: /* }}} */
2536:
2537: static zend_bool zend_do_perform_implementation_check(const zend_function *fe, const zend_function *proto TSRMLS_DC) /* {{{ */
2538: {
2539: zend_uint i;
2540:
2541: /* If it's a user function then arg_info == NULL means we don't have any parameters but
2542: * we still need to do the arg number checks. We are only willing to ignore this for internal
2543: * functions because extensions don't always define arg_info.
2544: */
2545: if (!proto || (!proto->common.arg_info && proto->common.type != ZEND_USER_FUNCTION)) {
2546: return 1;
2547: }
2548:
2549: /* Checks for constructors only if they are declared in an interface */
2550: if ((fe->common.fn_flags & ZEND_ACC_CTOR) && (proto->common.scope->ce_flags & ZEND_ACC_INTERFACE) == 0) {
2551: return 1;
2552: }
2553:
2554: /* check number of arguments */
2555: if (proto->common.required_num_args < fe->common.required_num_args
2556: || proto->common.num_args > fe->common.num_args) {
2557: return 0;
2558: }
2559:
2560: if (fe->common.type != ZEND_USER_FUNCTION
2561: && proto->common.pass_rest_by_reference
2562: && !fe->common.pass_rest_by_reference) {
2563: return 0;
2564: }
2565:
2566: /* by-ref constraints on return values are covariant */
2567: if (proto->common.return_reference && !fe->common.return_reference) {
2568: return 0;
2569: }
2570:
2571: for (i=0; i < proto->common.num_args; i++) {
2572: if (ZEND_LOG_XOR(fe->common.arg_info[i].class_name, proto->common.arg_info[i].class_name)) {
2573: /* Only one has a type hint and the other one doesn't */
2574: return 0;
2575: }
2576: if (fe->common.arg_info[i].class_name
2577: && strcasecmp(fe->common.arg_info[i].class_name, proto->common.arg_info[i].class_name)!=0) {
2578: char *colon;
2579:
2580: if (fe->common.type != ZEND_USER_FUNCTION) {
2581: return 0;
2582: } else if (strchr(proto->common.arg_info[i].class_name, '\\') != NULL ||
2583: (colon = zend_memrchr(fe->common.arg_info[i].class_name, '\\', fe->common.arg_info[i].class_name_len)) == NULL ||
2584: strcasecmp(colon+1, proto->common.arg_info[i].class_name) != 0) {
2585: zend_class_entry **fe_ce, **proto_ce;
2586: int found, found2;
2587:
2588: found = zend_lookup_class(fe->common.arg_info[i].class_name, fe->common.arg_info[i].class_name_len, &fe_ce TSRMLS_CC);
2589: found2 = zend_lookup_class(proto->common.arg_info[i].class_name, proto->common.arg_info[i].class_name_len, &proto_ce TSRMLS_CC);
2590:
2591: /* Check for class alias */
2592: if (found != SUCCESS || found2 != SUCCESS ||
2593: (*fe_ce)->type == ZEND_INTERNAL_CLASS ||
2594: (*proto_ce)->type == ZEND_INTERNAL_CLASS ||
2595: *fe_ce != *proto_ce) {
2596: return 0;
2597: }
2598: }
2599: }
2600: if (fe->common.arg_info[i].array_type_hint != proto->common.arg_info[i].array_type_hint) {
2601: /* Only one has an array type hint and the other one doesn't */
2602: return 0;
2603: }
2604:
2605: /* by-ref constraints on arguments are invariant */
2606: if (fe->common.arg_info[i].pass_by_reference != proto->common.arg_info[i].pass_by_reference) {
2607: return 0;
2608: }
2609: }
2610:
2611: if (proto->common.pass_rest_by_reference) {
2612: for (i=proto->common.num_args; i < fe->common.num_args; i++) {
2613: if (!fe->common.arg_info[i].pass_by_reference) {
2614: return 0;
2615: }
2616: }
2617: }
2618: return 1;
2619: }
2620: /* }}} */
2621:
2622: 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) /* {{{ */
2623: {
2624: zend_uint child_flags;
2625: zend_uint parent_flags = parent->common.fn_flags;
2626: zend_function *child;
2627: TSRMLS_FETCH();
2628:
2629: if (zend_hash_quick_find(child_function_table, hash_key->arKey, hash_key->nKeyLength, hash_key->h, (void **) &child)==FAILURE) {
2630: if (parent_flags & (ZEND_ACC_ABSTRACT)) {
2631: child_ce->ce_flags |= ZEND_ACC_IMPLICIT_ABSTRACT_CLASS;
2632: }
2633: return 1; /* method doesn't exist in child, copy from parent */
2634: }
2635:
2636: if ((parent->common.scope->ce_flags & ZEND_ACC_INTERFACE) == 0
2637: && parent->common.fn_flags & ZEND_ACC_ABSTRACT
2638: && parent->common.scope != (child->common.prototype ? child->common.prototype->common.scope : child->common.scope)
2639: && child->common.fn_flags & (ZEND_ACC_ABSTRACT|ZEND_ACC_IMPLEMENTED_ABSTRACT)) {
2640: zend_error(E_COMPILE_ERROR, "Can't inherit abstract function %s::%s() (previously declared abstract in %s)",
2641: parent->common.scope->name,
2642: child->common.function_name,
2643: child->common.prototype ? child->common.prototype->common.scope->name : child->common.scope->name);
2644: }
2645:
2646: if (parent_flags & ZEND_ACC_FINAL) {
2647: zend_error(E_COMPILE_ERROR, "Cannot override final method %s::%s()", ZEND_FN_SCOPE_NAME(parent), child->common.function_name);
2648: }
2649:
2650: child_flags = child->common.fn_flags;
2651: /* You cannot change from static to non static and vice versa.
2652: */
2653: if ((child_flags & ZEND_ACC_STATIC) != (parent_flags & ZEND_ACC_STATIC)) {
2654: if (child->common.fn_flags & ZEND_ACC_STATIC) {
2655: 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));
2656: } else {
2657: 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));
2658: }
2659: }
2660:
2661: /* Disallow making an inherited method abstract. */
2662: if ((child_flags & ZEND_ACC_ABSTRACT) && !(parent_flags & ZEND_ACC_ABSTRACT)) {
2663: 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));
2664: }
2665:
2666: if (parent_flags & ZEND_ACC_CHANGED) {
2667: child->common.fn_flags |= ZEND_ACC_CHANGED;
2668: } else {
2669: /* Prevent derived classes from restricting access that was available in parent classes
2670: */
2671: if ((child_flags & ZEND_ACC_PPP_MASK) > (parent_flags & ZEND_ACC_PPP_MASK)) {
2672: 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");
2673: } else if (((child_flags & ZEND_ACC_PPP_MASK) < (parent_flags & ZEND_ACC_PPP_MASK))
2674: && ((parent_flags & ZEND_ACC_PPP_MASK) & ZEND_ACC_PRIVATE)) {
2675: child->common.fn_flags |= ZEND_ACC_CHANGED;
2676: }
2677: }
2678:
2679: if (parent_flags & ZEND_ACC_PRIVATE) {
2680: child->common.prototype = NULL;
2681: } else if (parent_flags & ZEND_ACC_ABSTRACT) {
2682: child->common.fn_flags |= ZEND_ACC_IMPLEMENTED_ABSTRACT;
2683: child->common.prototype = parent;
2684: } else if (!(parent->common.fn_flags & ZEND_ACC_CTOR) || (parent->common.prototype && (parent->common.prototype->common.scope->ce_flags & ZEND_ACC_INTERFACE))) {
2685: /* ctors only have a prototype if it comes from an interface */
2686: child->common.prototype = parent->common.prototype ? parent->common.prototype : parent;
2687: }
2688:
2689: if (child->common.prototype && (child->common.prototype->common.fn_flags & ZEND_ACC_ABSTRACT)) {
2690: if (!zend_do_perform_implementation_check(child, child->common.prototype TSRMLS_CC)) {
2691: zend_error(E_COMPILE_ERROR, "Declaration of %s::%s() must be compatible with that of %s::%s()", ZEND_FN_SCOPE_NAME(child), child->common.function_name, ZEND_FN_SCOPE_NAME(child->common.prototype), child->common.prototype->common.function_name);
2692: }
2693: } 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 */
2694: if (!zend_do_perform_implementation_check(child, parent TSRMLS_CC)) {
2695: zend_error(E_STRICT, "Declaration of %s::%s() should be compatible with that of %s::%s()", ZEND_FN_SCOPE_NAME(child), child->common.function_name, ZEND_FN_SCOPE_NAME(parent), parent->common.function_name);
2696: }
2697: }
2698:
2699: return 0;
2700: }
2701: /* }}} */
2702:
2703: 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) /* {{{ */
2704: {
2705: zend_property_info *child_info;
2706: zend_class_entry *parent_ce = ce->parent;
2707:
2708: if (parent_info->flags & (ZEND_ACC_PRIVATE|ZEND_ACC_SHADOW)) {
2709: if (zend_hash_quick_find(&ce->properties_info, hash_key->arKey, hash_key->nKeyLength, hash_key->h, (void **) &child_info)==SUCCESS) {
2710: child_info->flags |= ZEND_ACC_CHANGED;
2711: } else {
2712: 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);
2713: if(ce->type & ZEND_INTERNAL_CLASS) {
2714: zend_duplicate_property_info_internal(child_info);
2715: } else {
2716: zend_duplicate_property_info(child_info);
2717: }
2718: child_info->flags &= ~ZEND_ACC_PRIVATE; /* it's not private anymore */
2719: child_info->flags |= ZEND_ACC_SHADOW; /* but it's a shadow of private */
2720: }
2721: return 0; /* don't copy access information to child */
2722: }
2723:
2724: if (zend_hash_quick_find(&ce->properties_info, hash_key->arKey, hash_key->nKeyLength, hash_key->h, (void **) &child_info)==SUCCESS) {
2725: if ((parent_info->flags & ZEND_ACC_STATIC) != (child_info->flags & ZEND_ACC_STATIC)) {
2726: zend_error(E_COMPILE_ERROR, "Cannot redeclare %s%s::$%s as %s%s::$%s",
2727: (parent_info->flags & ZEND_ACC_STATIC) ? "static " : "non static ", parent_ce->name, hash_key->arKey,
2728: (child_info->flags & ZEND_ACC_STATIC) ? "static " : "non static ", ce->name, hash_key->arKey);
2729:
2730: }
2731:
2732: if(parent_info->flags & ZEND_ACC_CHANGED) {
2733: child_info->flags |= ZEND_ACC_CHANGED;
2734: }
2735:
2736: if ((child_info->flags & ZEND_ACC_PPP_MASK) > (parent_info->flags & ZEND_ACC_PPP_MASK)) {
2737: 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");
2738: } else if (child_info->flags & ZEND_ACC_IMPLICIT_PUBLIC) {
2739: if (!(parent_info->flags & ZEND_ACC_IMPLICIT_PUBLIC)) {
2740: /* Explicitly copy the default value from the parent (if it has one) */
2741: zval **pvalue;
2742:
2743: if (zend_hash_quick_find(&parent_ce->default_properties, parent_info->name, parent_info->name_length+1, parent_info->h, (void **) &pvalue) == SUCCESS) {
2744: Z_ADDREF_PP(pvalue);
2745: zend_hash_quick_del(&ce->default_properties, child_info->name, child_info->name_length+1, parent_info->h);
2746: zend_hash_quick_update(&ce->default_properties, parent_info->name, parent_info->name_length+1, parent_info->h, pvalue, sizeof(zval *), NULL);
2747: }
2748: }
2749: return 1; /* Inherit from the parent */
2750: } else if ((child_info->flags & ZEND_ACC_PUBLIC) && (parent_info->flags & ZEND_ACC_PROTECTED)) {
2751: char *prot_name;
2752: int prot_name_length;
2753:
2754: zend_mangle_property_name(&prot_name, &prot_name_length, "*", 1, child_info->name, child_info->name_length, ce->type & ZEND_INTERNAL_CLASS);
2755: if (child_info->flags & ZEND_ACC_STATIC) {
2756: zval **prop;
2757: HashTable *ht;
2758:
2759: if (parent_ce->type != ce->type) {
2760: /* User class extends internal class */
2761: TSRMLS_FETCH();
2762:
2763: ht = CE_STATIC_MEMBERS(parent_ce);
2764: } else {
2765: ht = &parent_ce->default_static_members;
2766: }
2767: if (zend_hash_find(ht, prot_name, prot_name_length+1, (void**)&prop) == SUCCESS) {
2768: zend_hash_del(&ce->default_static_members, prot_name, prot_name_length+1);
2769: }
2770: } else {
2771: zend_hash_del(&ce->default_properties, prot_name, prot_name_length+1);
2772: }
2773: pefree(prot_name, ce->type & ZEND_INTERNAL_CLASS);
2774: }
2775: return 0; /* Don't copy from parent */
2776: } else {
2777: return 1; /* Copy from parent */
2778: }
2779: }
2780: /* }}} */
2781:
2782: static inline void do_implement_interface(zend_class_entry *ce, zend_class_entry *iface TSRMLS_DC) /* {{{ */
2783: {
2784: if (!(ce->ce_flags & ZEND_ACC_INTERFACE) && iface->interface_gets_implemented && iface->interface_gets_implemented(iface, ce TSRMLS_CC) == FAILURE) {
2785: zend_error(E_CORE_ERROR, "Class %s could not implement interface %s", ce->name, iface->name);
2786: }
2787: if (ce == iface) {
2788: zend_error(E_ERROR, "Interface %s cannot implement itself", ce->name);
2789: }
2790: }
2791: /* }}} */
2792:
2793: ZEND_API void zend_do_inherit_interfaces(zend_class_entry *ce, const zend_class_entry *iface TSRMLS_DC) /* {{{ */
2794: {
2795: /* expects interface to be contained in ce's interface list already */
2796: zend_uint i, ce_num, if_num = iface->num_interfaces;
2797: zend_class_entry *entry;
2798:
2799: if (if_num==0) {
2800: return;
2801: }
2802: ce_num = ce->num_interfaces;
2803:
2804: if (ce->type == ZEND_INTERNAL_CLASS) {
2805: ce->interfaces = (zend_class_entry **) realloc(ce->interfaces, sizeof(zend_class_entry *) * (ce_num + if_num));
2806: } else {
2807: ce->interfaces = (zend_class_entry **) erealloc(ce->interfaces, sizeof(zend_class_entry *) * (ce_num + if_num));
2808: }
2809:
2810: /* Inherit the interfaces, only if they're not already inherited by the class */
2811: while (if_num--) {
2812: entry = iface->interfaces[if_num];
2813: for (i = 0; i < ce_num; i++) {
2814: if (ce->interfaces[i] == entry) {
2815: break;
2816: }
2817: }
2818: if (i == ce_num) {
2819: ce->interfaces[ce->num_interfaces++] = entry;
2820: }
2821: }
2822:
2823: /* and now call the implementing handlers */
2824: while (ce_num < ce->num_interfaces) {
2825: do_implement_interface(ce, ce->interfaces[ce_num++] TSRMLS_CC);
2826: }
2827: }
2828: /* }}} */
2829:
2830: static int inherit_static_prop(zval **p TSRMLS_DC, int num_args, va_list args, const zend_hash_key *key) /* {{{ */
2831: {
2832: HashTable *target = va_arg(args, HashTable*);
2833:
2834: if (!zend_hash_quick_exists(target, key->arKey, key->nKeyLength, key->h)) {
2835: SEPARATE_ZVAL_TO_MAKE_IS_REF(p);
2836: if (zend_hash_quick_add(target, key->arKey, key->nKeyLength, key->h, p, sizeof(zval*), NULL) == SUCCESS) {
2837: Z_ADDREF_PP(p);
2838: }
2839: }
2840: return ZEND_HASH_APPLY_KEEP;
2841: }
2842: /* }}} */
2843:
2844: #define zval_property_ctor(parent_ce, ce) \
2845: ((copy_ctor_func_t) (((parent_ce)->type != (ce)->type) ? zval_shared_property_ctor : zval_add_ref))
2846:
2847: ZEND_API void zend_do_inheritance(zend_class_entry *ce, zend_class_entry *parent_ce TSRMLS_DC) /* {{{ */
2848: {
2849: if ((ce->ce_flags & ZEND_ACC_INTERFACE)
2850: && !(parent_ce->ce_flags & ZEND_ACC_INTERFACE)) {
2851: zend_error(E_COMPILE_ERROR, "Interface %s may not inherit from class (%s)", ce->name, parent_ce->name);
2852: }
2853: if (parent_ce->ce_flags & ZEND_ACC_FINAL_CLASS) {
2854: zend_error(E_COMPILE_ERROR, "Class %s may not inherit from final class (%s)", ce->name, parent_ce->name);
2855: }
2856:
2857: ce->parent = parent_ce;
2858: /* Copy serialize/unserialize callbacks */
2859: if (!ce->serialize) {
2860: ce->serialize = parent_ce->serialize;
2861: }
2862: if (!ce->unserialize) {
2863: ce->unserialize = parent_ce->unserialize;
2864: }
2865:
2866: /* Inherit interfaces */
2867: zend_do_inherit_interfaces(ce, parent_ce TSRMLS_CC);
2868:
2869: /* Inherit properties */
2870: zend_hash_merge(&ce->default_properties, &parent_ce->default_properties, zval_property_ctor(parent_ce, ce), NULL, sizeof(zval *), 0);
2871: if (parent_ce->type != ce->type) {
2872: /* User class extends internal class */
2873: zend_update_class_constants(parent_ce TSRMLS_CC);
2874: zend_hash_apply_with_arguments(CE_STATIC_MEMBERS(parent_ce) TSRMLS_CC, (apply_func_args_t)inherit_static_prop, 1, &ce->default_static_members);
2875: } else {
2876: zend_hash_apply_with_arguments(&parent_ce->default_static_members TSRMLS_CC, (apply_func_args_t)inherit_static_prop, 1, &ce->default_static_members);
2877: }
2878: 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);
2879:
2880: zend_hash_merge(&ce->constants_table, &parent_ce->constants_table, zval_property_ctor(parent_ce, ce), NULL, sizeof(zval *), 0);
2881: 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);
2882: do_inherit_parent_constructor(ce);
2883:
2884: if (ce->ce_flags & ZEND_ACC_IMPLICIT_ABSTRACT_CLASS && ce->type == ZEND_INTERNAL_CLASS) {
2885: ce->ce_flags |= ZEND_ACC_EXPLICIT_ABSTRACT_CLASS;
2886: } else if (!(ce->ce_flags & ZEND_ACC_IMPLEMENT_INTERFACES)) {
2887: /* The verification will be done in runtime by ZEND_VERIFY_ABSTRACT_CLASS */
2888: zend_verify_abstract_class(ce TSRMLS_CC);
2889: }
2890: }
2891: /* }}} */
2892:
2893: 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) /* {{{ */
2894: {
2895: zval **old_constant;
2896:
2897: if (zend_hash_quick_find(child_constants_table, hash_key->arKey, hash_key->nKeyLength, hash_key->h, (void**)&old_constant) == SUCCESS) {
2898: if (*old_constant != *parent_constant) {
2899: zend_error(E_COMPILE_ERROR, "Cannot inherit previously-inherited or override constant %s from interface %s", hash_key->arKey, iface->name);
2900: }
2901: return 0;
2902: }
2903: return 1;
2904: }
2905: /* }}} */
2906:
2907: static int do_interface_constant_check(zval **val TSRMLS_DC, int num_args, va_list args, const zend_hash_key *key) /* {{{ */
2908: {
2909: zend_class_entry **iface = va_arg(args, zend_class_entry**);
2910:
2911: do_inherit_constant_check(&(*iface)->constants_table, (const zval **) val, key, *iface);
2912:
2913: return ZEND_HASH_APPLY_KEEP;
2914: }
2915: /* }}} */
2916:
2917: ZEND_API void zend_do_implement_interface(zend_class_entry *ce, zend_class_entry *iface TSRMLS_DC) /* {{{ */
2918: {
2919: zend_uint i, ignore = 0;
2920: zend_uint current_iface_num = ce->num_interfaces;
2921: zend_uint parent_iface_num = ce->parent ? ce->parent->num_interfaces : 0;
2922:
2923: for (i = 0; i < ce->num_interfaces; i++) {
2924: if (ce->interfaces[i] == NULL) {
2925: memmove(ce->interfaces + i, ce->interfaces + i + 1, sizeof(zend_class_entry*) * (--ce->num_interfaces - i));
2926: i--;
2927: } else if (ce->interfaces[i] == iface) {
2928: if (i < parent_iface_num) {
2929: ignore = 1;
2930: } else {
2931: zend_error(E_COMPILE_ERROR, "Class %s cannot implement previously implemented interface %s", ce->name, iface->name);
2932: }
2933: }
2934: }
2935: if (ignore) {
2936: /* Check for attempt to redeclare interface constants */
2937: zend_hash_apply_with_arguments(&ce->constants_table TSRMLS_CC, (apply_func_args_t) do_interface_constant_check, 1, &iface);
2938: } else {
2939: if (ce->num_interfaces >= current_iface_num) {
2940: if (ce->type == ZEND_INTERNAL_CLASS) {
2941: ce->interfaces = (zend_class_entry **) realloc(ce->interfaces, sizeof(zend_class_entry *) * (++current_iface_num));
2942: } else {
2943: ce->interfaces = (zend_class_entry **) erealloc(ce->interfaces, sizeof(zend_class_entry *) * (++current_iface_num));
2944: }
2945: }
2946: ce->interfaces[ce->num_interfaces++] = iface;
2947:
2948: 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);
2949: 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);
2950:
2951: do_implement_interface(ce, iface TSRMLS_CC);
2952: zend_do_inherit_interfaces(ce, iface TSRMLS_CC);
2953: }
2954: }
2955: /* }}} */
2956:
2957: ZEND_API int do_bind_function(zend_op *opline, HashTable *function_table, zend_bool compile_time) /* {{{ */
2958: {
2959: zend_function *function;
2960:
2961: zend_hash_find(function_table, opline->op1.u.constant.value.str.val, opline->op1.u.constant.value.str.len, (void *) &function);
2962: if (zend_hash_add(function_table, opline->op2.u.constant.value.str.val, opline->op2.u.constant.value.str.len+1, function, sizeof(zend_function), NULL)==FAILURE) {
2963: int error_level = compile_time ? E_COMPILE_ERROR : E_ERROR;
2964: zend_function *old_function;
2965:
2966: if (zend_hash_find(function_table, opline->op2.u.constant.value.str.val, opline->op2.u.constant.value.str.len+1, (void *) &old_function)==SUCCESS
2967: && old_function->type == ZEND_USER_FUNCTION
2968: && old_function->op_array.last > 0) {
2969: zend_error(error_level, "Cannot redeclare %s() (previously declared in %s:%d)",
2970: function->common.function_name,
2971: old_function->op_array.filename,
2972: old_function->op_array.opcodes[0].lineno);
2973: } else {
2974: zend_error(error_level, "Cannot redeclare %s()", function->common.function_name);
2975: }
2976: return FAILURE;
2977: } else {
2978: (*function->op_array.refcount)++;
2979: function->op_array.static_variables = NULL; /* NULL out the unbound function */
2980: return SUCCESS;
2981: }
2982: }
2983: /* }}} */
2984:
2985: ZEND_API zend_class_entry *do_bind_class(const zend_op *opline, HashTable *class_table, zend_bool compile_time TSRMLS_DC) /* {{{ */
2986: {
2987: zend_class_entry *ce, **pce;
2988:
2989: if (zend_hash_find(class_table, opline->op1.u.constant.value.str.val, opline->op1.u.constant.value.str.len, (void **) &pce)==FAILURE) {
2990: zend_error(E_COMPILE_ERROR, "Internal Zend error - Missing class information for %s", opline->op1.u.constant.value.str.val);
2991: return NULL;
2992: } else {
2993: ce = *pce;
2994: }
2995: ce->refcount++;
2996: if (zend_hash_add(class_table, opline->op2.u.constant.value.str.val, opline->op2.u.constant.value.str.len+1, &ce, sizeof(zend_class_entry *), NULL)==FAILURE) {
2997: ce->refcount--;
2998: if (!compile_time) {
2999: /* If we're in compile time, in practice, it's quite possible
3000: * that we'll never reach this class declaration at runtime,
3001: * so we shut up about it. This allows the if (!defined('FOO')) { return; }
3002: * approach to work.
3003: */
3004: zend_error(E_COMPILE_ERROR, "Cannot redeclare class %s", ce->name);
3005: }
3006: return NULL;
3007: } else {
3008: if (!(ce->ce_flags & (ZEND_ACC_INTERFACE|ZEND_ACC_IMPLEMENT_INTERFACES))) {
3009: zend_verify_abstract_class(ce TSRMLS_CC);
3010: }
3011: return ce;
3012: }
3013: }
3014: /* }}} */
3015:
3016: ZEND_API zend_class_entry *do_bind_inherited_class(const zend_op *opline, HashTable *class_table, zend_class_entry *parent_ce, zend_bool compile_time TSRMLS_DC) /* {{{ */
3017: {
3018: zend_class_entry *ce, **pce;
3019: int found_ce;
3020:
3021: found_ce = zend_hash_find(class_table, opline->op1.u.constant.value.str.val, opline->op1.u.constant.value.str.len, (void **) &pce);
3022:
3023: if (found_ce == FAILURE) {
3024: if (!compile_time) {
3025: /* If we're in compile time, in practice, it's quite possible
3026: * that we'll never reach this class declaration at runtime,
3027: * so we shut up about it. This allows the if (!defined('FOO')) { return; }
3028: * approach to work.
3029: */
3030: zend_error(E_COMPILE_ERROR, "Cannot redeclare class %s", opline->op2.u.constant.value.str.val);
3031: }
3032: return NULL;
3033: } else {
3034: ce = *pce;
3035: }
3036:
3037: if (parent_ce->ce_flags & ZEND_ACC_INTERFACE) {
3038: zend_error(E_COMPILE_ERROR, "Class %s cannot extend from interface %s", ce->name, parent_ce->name);
3039: }
3040:
3041: zend_do_inheritance(ce, parent_ce TSRMLS_CC);
3042:
3043: ce->refcount++;
3044:
3045: /* Register the derived class */
3046: if (zend_hash_add(class_table, opline->op2.u.constant.value.str.val, opline->op2.u.constant.value.str.len+1, pce, sizeof(zend_class_entry *), NULL)==FAILURE) {
3047: zend_error(E_COMPILE_ERROR, "Cannot redeclare class %s", ce->name);
3048: }
3049: return ce;
3050: }
3051: /* }}} */
3052:
3053: void zend_do_early_binding(TSRMLS_D) /* {{{ */
3054: {
3055: zend_op *opline = &CG(active_op_array)->opcodes[CG(active_op_array)->last-1];
3056: HashTable *table;
3057:
3058: while (opline->opcode == ZEND_TICKS && opline > CG(active_op_array)->opcodes) {
3059: opline--;
3060: }
3061:
3062: switch (opline->opcode) {
3063: case ZEND_DECLARE_FUNCTION:
3064: if (do_bind_function(opline, CG(function_table), 1) == FAILURE) {
3065: return;
3066: }
3067: table = CG(function_table);
3068: break;
3069: case ZEND_DECLARE_CLASS:
3070: if (do_bind_class(opline, CG(class_table), 1 TSRMLS_CC) == NULL) {
3071: return;
3072: }
3073: table = CG(class_table);
3074: break;
3075: case ZEND_DECLARE_INHERITED_CLASS:
3076: {
3077: zend_op *fetch_class_opline = opline-1;
3078: zval *parent_name = &fetch_class_opline->op2.u.constant;
3079: zend_class_entry **pce;
3080:
3081: if ((zend_lookup_class(Z_STRVAL_P(parent_name), Z_STRLEN_P(parent_name), &pce TSRMLS_CC) == FAILURE) ||
3082: ((CG(compiler_options) & ZEND_COMPILE_IGNORE_INTERNAL_CLASSES) &&
3083: ((*pce)->type == ZEND_INTERNAL_CLASS))) {
3084: if (CG(compiler_options) & ZEND_COMPILE_DELAYED_BINDING) {
3085: zend_uint *opline_num = &CG(active_op_array)->early_binding;
3086:
3087: while (*opline_num != -1) {
3088: opline_num = &CG(active_op_array)->opcodes[*opline_num].result.u.opline_num;
3089: }
3090: *opline_num = opline - CG(active_op_array)->opcodes;
3091: opline->opcode = ZEND_DECLARE_INHERITED_CLASS_DELAYED;
3092: opline->result.op_type = IS_UNUSED;
3093: opline->result.u.opline_num = -1;
3094: }
3095: return;
3096: }
3097: if (do_bind_inherited_class(opline, CG(class_table), *pce, 1 TSRMLS_CC) == NULL) {
3098: return;
3099: }
3100: /* clear unnecessary ZEND_FETCH_CLASS opcode */
3101: zval_dtor(&fetch_class_opline->op2.u.constant);
3102: MAKE_NOP(fetch_class_opline);
3103:
3104: table = CG(class_table);
3105: break;
3106: }
3107: case ZEND_VERIFY_ABSTRACT_CLASS:
3108: case ZEND_ADD_INTERFACE:
3109: /* We currently don't early-bind classes that implement interfaces */
3110: return;
3111: default:
3112: zend_error(E_COMPILE_ERROR, "Invalid binding type");
3113: return;
3114: }
3115:
3116: zend_hash_del(table, opline->op1.u.constant.value.str.val, opline->op1.u.constant.value.str.len);
3117: zval_dtor(&opline->op1.u.constant);
3118: zval_dtor(&opline->op2.u.constant);
3119: MAKE_NOP(opline);
3120: }
3121: /* }}} */
3122:
3123: ZEND_API void zend_do_delayed_early_binding(const zend_op_array *op_array TSRMLS_DC) /* {{{ */
3124: {
3125: if (op_array->early_binding != -1) {
3126: zend_bool orig_in_compilation = CG(in_compilation);
3127: zend_uint opline_num = op_array->early_binding;
3128: zend_class_entry **pce;
3129:
3130: CG(in_compilation) = 1;
3131: while (opline_num != -1) {
3132: if (zend_lookup_class(Z_STRVAL(op_array->opcodes[opline_num-1].op2.u.constant), Z_STRLEN(op_array->opcodes[opline_num-1].op2.u.constant), &pce TSRMLS_CC) == SUCCESS) {
3133: do_bind_inherited_class(&op_array->opcodes[opline_num], EG(class_table), *pce, 1 TSRMLS_CC);
3134: }
3135: opline_num = op_array->opcodes[opline_num].result.u.opline_num;
3136: }
3137: CG(in_compilation) = orig_in_compilation;
3138: }
3139: }
3140: /* }}} */
3141:
3142: void zend_do_boolean_or_begin(znode *expr1, znode *op_token TSRMLS_DC) /* {{{ */
3143: {
3144: int next_op_number = get_next_op_number(CG(active_op_array));
3145: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3146:
3147: opline->opcode = ZEND_JMPNZ_EX;
3148: if (expr1->op_type == IS_TMP_VAR) {
3149: opline->result = *expr1;
3150: } else {
3151: opline->result.u.var = get_temporary_variable(CG(active_op_array));
3152: opline->result.op_type = IS_TMP_VAR;
3153: }
3154: opline->op1 = *expr1;
3155: SET_UNUSED(opline->op2);
3156:
3157: op_token->u.opline_num = next_op_number;
3158:
3159: *expr1 = opline->result;
3160: }
3161: /* }}} */
3162:
3163: void zend_do_boolean_or_end(znode *result, const znode *expr1, const znode *expr2, znode *op_token TSRMLS_DC) /* {{{ */
3164: {
3165: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3166:
3167: *result = *expr1; /* we saved the original result in expr1 */
3168: opline->opcode = ZEND_BOOL;
3169: opline->result = *result;
3170: opline->op1 = *expr2;
3171: SET_UNUSED(opline->op2);
3172:
3173: CG(active_op_array)->opcodes[op_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
3174: }
3175: /* }}} */
3176:
3177: void zend_do_boolean_and_begin(znode *expr1, znode *op_token TSRMLS_DC) /* {{{ */
3178: {
3179: int next_op_number = get_next_op_number(CG(active_op_array));
3180: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3181:
3182: opline->opcode = ZEND_JMPZ_EX;
3183: if (expr1->op_type == IS_TMP_VAR) {
3184: opline->result = *expr1;
3185: } else {
3186: opline->result.u.var = get_temporary_variable(CG(active_op_array));
3187: opline->result.op_type = IS_TMP_VAR;
3188: }
3189: opline->op1 = *expr1;
3190: SET_UNUSED(opline->op2);
3191:
3192: op_token->u.opline_num = next_op_number;
3193:
3194: *expr1 = opline->result;
3195: }
3196: /* }}} */
3197:
3198: void zend_do_boolean_and_end(znode *result, const znode *expr1, const znode *expr2, const znode *op_token TSRMLS_DC) /* {{{ */
3199: {
3200: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3201:
3202: *result = *expr1; /* we saved the original result in expr1 */
3203: opline->opcode = ZEND_BOOL;
3204: opline->result = *result;
3205: opline->op1 = *expr2;
3206: SET_UNUSED(opline->op2);
3207:
3208: CG(active_op_array)->opcodes[op_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
3209: }
3210: /* }}} */
3211:
3212: void zend_do_do_while_begin(TSRMLS_D) /* {{{ */
3213: {
3214: do_begin_loop(TSRMLS_C);
3215: INC_BPC(CG(active_op_array));
3216: }
3217: /* }}} */
3218:
3219: void zend_do_do_while_end(const znode *do_token, const znode *expr_open_bracket, const znode *expr TSRMLS_DC) /* {{{ */
3220: {
3221: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3222:
3223: opline->opcode = ZEND_JMPNZ;
3224: opline->op1 = *expr;
3225: opline->op2.u.opline_num = do_token->u.opline_num;
3226: SET_UNUSED(opline->op2);
3227:
3228: do_end_loop(expr_open_bracket->u.opline_num, 0 TSRMLS_CC);
3229:
3230: DEC_BPC(CG(active_op_array));
3231: }
3232: /* }}} */
3233:
3234: void zend_do_brk_cont(zend_uchar op, const znode *expr TSRMLS_DC) /* {{{ */
3235: {
3236: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3237:
3238: opline->opcode = op;
3239: opline->op1.u.opline_num = CG(active_op_array)->current_brk_cont;
3240: SET_UNUSED(opline->op1);
3241: if (expr) {
3242: opline->op2 = *expr;
3243: } else {
3244: Z_TYPE(opline->op2.u.constant) = IS_LONG;
3245: Z_LVAL(opline->op2.u.constant) = 1;
3246: INIT_PZVAL(&opline->op2.u.constant);
3247: opline->op2.op_type = IS_CONST;
3248: }
3249: }
3250: /* }}} */
3251:
3252: void zend_do_switch_cond(const znode *cond TSRMLS_DC) /* {{{ */
3253: {
3254: zend_switch_entry switch_entry;
3255:
3256: switch_entry.cond = *cond;
3257: switch_entry.default_case = -1;
3258: switch_entry.control_var = -1;
3259: zend_stack_push(&CG(switch_cond_stack), (void *) &switch_entry, sizeof(switch_entry));
3260:
3261: do_begin_loop(TSRMLS_C);
3262:
3263: INC_BPC(CG(active_op_array));
3264: }
3265: /* }}} */
3266:
3267: void zend_do_switch_end(const znode *case_list TSRMLS_DC) /* {{{ */
3268: {
3269: zend_op *opline;
3270: zend_switch_entry *switch_entry_ptr;
3271:
3272: zend_stack_top(&CG(switch_cond_stack), (void **) &switch_entry_ptr);
3273:
3274: /* add code to jmp to default case */
3275: if (switch_entry_ptr->default_case != -1) {
3276: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3277: opline->opcode = ZEND_JMP;
3278: SET_UNUSED(opline->op1);
3279: SET_UNUSED(opline->op2);
3280: opline->op1.u.opline_num = switch_entry_ptr->default_case;
3281: }
3282:
3283: if (case_list->op_type != IS_UNUSED) { /* non-empty switch */
3284: int next_op_number = get_next_op_number(CG(active_op_array));
3285:
3286: CG(active_op_array)->opcodes[case_list->u.opline_num].op1.u.opline_num = next_op_number;
3287: }
3288:
3289: /* remember break/continue loop information */
3290: CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].cont = CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].brk = get_next_op_number(CG(active_op_array));
3291: CG(active_op_array)->current_brk_cont = CG(active_op_array)->brk_cont_array[CG(active_op_array)->current_brk_cont].parent;
3292:
3293: if (switch_entry_ptr->cond.op_type==IS_VAR || switch_entry_ptr->cond.op_type==IS_TMP_VAR) {
3294: /* emit free for the switch condition*/
3295: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3296: opline->opcode = (switch_entry_ptr->cond.op_type == IS_TMP_VAR) ? ZEND_FREE : ZEND_SWITCH_FREE;
3297: opline->op1 = switch_entry_ptr->cond;
3298: SET_UNUSED(opline->op2);
3299: }
3300: if (switch_entry_ptr->cond.op_type == IS_CONST) {
3301: zval_dtor(&switch_entry_ptr->cond.u.constant);
3302: }
3303:
3304: zend_stack_del_top(&CG(switch_cond_stack));
3305:
3306: DEC_BPC(CG(active_op_array));
3307: }
3308: /* }}} */
3309:
3310: void zend_do_case_before_statement(const znode *case_list, znode *case_token, const znode *case_expr TSRMLS_DC) /* {{{ */
3311: {
3312: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3313: int next_op_number;
3314: zend_switch_entry *switch_entry_ptr;
3315: znode result;
3316:
3317: zend_stack_top(&CG(switch_cond_stack), (void **) &switch_entry_ptr);
3318:
3319: if (switch_entry_ptr->control_var == -1) {
3320: switch_entry_ptr->control_var = get_temporary_variable(CG(active_op_array));
3321: }
3322: opline->opcode = ZEND_CASE;
3323: opline->result.u.var = switch_entry_ptr->control_var;
3324: opline->result.op_type = IS_TMP_VAR;
3325: opline->op1 = switch_entry_ptr->cond;
3326: opline->op2 = *case_expr;
3327: if (opline->op1.op_type == IS_CONST) {
3328: zval_copy_ctor(&opline->op1.u.constant);
3329: }
3330: result = opline->result;
3331:
3332: next_op_number = get_next_op_number(CG(active_op_array));
3333: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3334: opline->opcode = ZEND_JMPZ;
3335: opline->op1 = result;
3336: SET_UNUSED(opline->op2);
3337: case_token->u.opline_num = next_op_number;
3338:
3339: if (case_list->op_type==IS_UNUSED) {
3340: return;
3341: }
3342: next_op_number = get_next_op_number(CG(active_op_array));
3343: CG(active_op_array)->opcodes[case_list->u.opline_num].op1.u.opline_num = next_op_number;
3344: }
3345: /* }}} */
3346:
3347: void zend_do_case_after_statement(znode *result, const znode *case_token TSRMLS_DC) /* {{{ */
3348: {
3349: int next_op_number = get_next_op_number(CG(active_op_array));
3350: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3351:
3352: opline->opcode = ZEND_JMP;
3353: SET_UNUSED(opline->op1);
3354: SET_UNUSED(opline->op2);
3355: result->u.opline_num = next_op_number;
3356:
3357: switch (CG(active_op_array)->opcodes[case_token->u.opline_num].opcode) {
3358: case ZEND_JMP:
3359: CG(active_op_array)->opcodes[case_token->u.opline_num].op1.u.opline_num = get_next_op_number(CG(active_op_array));
3360: break;
3361: case ZEND_JMPZ:
3362: CG(active_op_array)->opcodes[case_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
3363: break;
3364: }
3365: }
3366: /* }}} */
3367:
3368: void zend_do_default_before_statement(const znode *case_list, znode *default_token TSRMLS_DC) /* {{{ */
3369: {
3370: int next_op_number = get_next_op_number(CG(active_op_array));
3371: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3372: zend_switch_entry *switch_entry_ptr;
3373:
3374: zend_stack_top(&CG(switch_cond_stack), (void **) &switch_entry_ptr);
3375:
3376: opline->opcode = ZEND_JMP;
3377: SET_UNUSED(opline->op1);
3378: SET_UNUSED(opline->op2);
3379: default_token->u.opline_num = next_op_number;
3380:
3381: next_op_number = get_next_op_number(CG(active_op_array));
3382: switch_entry_ptr->default_case = next_op_number;
3383:
3384: if (case_list->op_type==IS_UNUSED) {
3385: return;
3386: }
3387: CG(active_op_array)->opcodes[case_list->u.opline_num].op1.u.opline_num = next_op_number;
3388: }
3389: /* }}} */
3390:
3391: void zend_do_begin_class_declaration(const znode *class_token, znode *class_name, const znode *parent_class_name TSRMLS_DC) /* {{{ */
3392: {
3393: zend_op *opline;
3394: int doing_inheritance = 0;
3395: zend_class_entry *new_class_entry;
3396: char *lcname;
3397: int error = 0;
3398: zval **ns_name;
3399:
3400: if (CG(active_class_entry)) {
3401: zend_error(E_COMPILE_ERROR, "Class declarations may not be nested");
3402: return;
3403: }
3404:
3405: lcname = zend_str_tolower_dup(class_name->u.constant.value.str.val, class_name->u.constant.value.str.len);
3406:
3407: if (!(strcmp(lcname, "self") && strcmp(lcname, "parent"))) {
3408: efree(lcname);
3409: zend_error(E_COMPILE_ERROR, "Cannot use '%s' as class name as it is reserved", class_name->u.constant.value.str.val);
3410: }
3411:
3412: /* Class name must not conflict with import names */
3413: if (CG(current_import) &&
3414: zend_hash_find(CG(current_import), lcname, Z_STRLEN(class_name->u.constant)+1, (void**)&ns_name) == SUCCESS) {
3415: error = 1;
3416: }
3417:
3418: if (CG(current_namespace)) {
3419: /* Prefix class name with name of current namespace */
3420: znode tmp;
3421:
3422: tmp.u.constant = *CG(current_namespace);
3423: zval_copy_ctor(&tmp.u.constant);
3424: zend_do_build_namespace_name(&tmp, &tmp, class_name TSRMLS_CC);
3425: class_name = &tmp;
3426: efree(lcname);
3427: lcname = zend_str_tolower_dup(Z_STRVAL(class_name->u.constant), Z_STRLEN(class_name->u.constant));
3428: }
3429:
3430: if (error) {
3431: char *tmp = zend_str_tolower_dup(Z_STRVAL_PP(ns_name), Z_STRLEN_PP(ns_name));
3432:
3433: if (Z_STRLEN_PP(ns_name) != Z_STRLEN(class_name->u.constant) ||
3434: memcmp(tmp, lcname, Z_STRLEN(class_name->u.constant))) {
3435: zend_error(E_COMPILE_ERROR, "Cannot declare class %s because the name is already in use", Z_STRVAL(class_name->u.constant));
3436: }
3437: efree(tmp);
3438: }
3439:
3440: new_class_entry = emalloc(sizeof(zend_class_entry));
3441: new_class_entry->type = ZEND_USER_CLASS;
3442: new_class_entry->name = class_name->u.constant.value.str.val;
3443: new_class_entry->name_length = class_name->u.constant.value.str.len;
3444:
3445: zend_initialize_class_data(new_class_entry, 1 TSRMLS_CC);
3446: new_class_entry->filename = zend_get_compiled_filename(TSRMLS_C);
3447: new_class_entry->line_start = class_token->u.opline_num;
3448: new_class_entry->ce_flags |= class_token->u.EA.type;
3449:
3450: if (parent_class_name && parent_class_name->op_type != IS_UNUSED) {
3451: switch (parent_class_name->u.EA.type) {
3452: case ZEND_FETCH_CLASS_SELF:
3453: zend_error(E_COMPILE_ERROR, "Cannot use 'self' as class name as it is reserved");
3454: break;
3455: case ZEND_FETCH_CLASS_PARENT:
3456: zend_error(E_COMPILE_ERROR, "Cannot use 'parent' as class name as it is reserved");
3457: break;
3458: case ZEND_FETCH_CLASS_STATIC:
3459: zend_error(E_COMPILE_ERROR, "Cannot use 'static' as class name as it is reserved");
3460: break;
3461: default:
3462: break;
3463: }
3464: doing_inheritance = 1;
3465: }
3466:
3467: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3468: opline->op1.op_type = IS_CONST;
3469: build_runtime_defined_function_key(&opline->op1.u.constant, lcname, new_class_entry->name_length TSRMLS_CC);
3470:
3471: opline->op2.op_type = IS_CONST;
3472: opline->op2.u.constant.type = IS_STRING;
3473: Z_SET_REFCOUNT(opline->op2.u.constant, 1);
3474:
3475: if (doing_inheritance) {
3476: opline->extended_value = parent_class_name->u.var;
3477: opline->opcode = ZEND_DECLARE_INHERITED_CLASS;
3478: } else {
3479: opline->opcode = ZEND_DECLARE_CLASS;
3480: }
3481:
3482: opline->op2.u.constant.value.str.val = lcname;
3483: opline->op2.u.constant.value.str.len = new_class_entry->name_length;
3484:
3485: zend_hash_update(CG(class_table), opline->op1.u.constant.value.str.val, opline->op1.u.constant.value.str.len, &new_class_entry, sizeof(zend_class_entry *), NULL);
3486: CG(active_class_entry) = new_class_entry;
3487:
3488: opline->result.u.var = get_temporary_variable(CG(active_op_array));
3489: opline->result.op_type = IS_VAR;
3490: CG(implementing_class) = opline->result;
3491:
3492: if (CG(doc_comment)) {
3493: CG(active_class_entry)->doc_comment = CG(doc_comment);
3494: CG(active_class_entry)->doc_comment_len = CG(doc_comment_len);
3495: CG(doc_comment) = NULL;
3496: CG(doc_comment_len) = 0;
3497: }
3498: }
3499: /* }}} */
3500:
3501: static void do_verify_abstract_class(TSRMLS_D) /* {{{ */
3502: {
3503: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3504:
3505: opline->opcode = ZEND_VERIFY_ABSTRACT_CLASS;
3506: opline->op1 = CG(implementing_class);
3507: SET_UNUSED(opline->op2);
3508: }
3509: /* }}} */
3510:
3511: void zend_do_end_class_declaration(const znode *class_token, const znode *parent_token TSRMLS_DC) /* {{{ */
3512: {
3513: zend_class_entry *ce = CG(active_class_entry);
3514:
3515: if (ce->constructor) {
3516: ce->constructor->common.fn_flags |= ZEND_ACC_CTOR;
3517: if (ce->constructor->common.fn_flags & ZEND_ACC_STATIC) {
3518: zend_error(E_COMPILE_ERROR, "Constructor %s::%s() cannot be static", ce->name, ce->constructor->common.function_name);
3519: }
3520: }
3521: if (ce->destructor) {
3522: ce->destructor->common.fn_flags |= ZEND_ACC_DTOR;
3523: if (ce->destructor->common.fn_flags & ZEND_ACC_STATIC) {
3524: zend_error(E_COMPILE_ERROR, "Destructor %s::%s() cannot be static", ce->name, ce->destructor->common.function_name);
3525: }
3526: }
3527: if (ce->clone) {
3528: ce->clone->common.fn_flags |= ZEND_ACC_CLONE;
3529: if (ce->clone->common.fn_flags & ZEND_ACC_STATIC) {
3530: zend_error(E_COMPILE_ERROR, "Clone method %s::%s() cannot be static", ce->name, ce->clone->common.function_name);
3531: }
3532: }
3533:
3534: ce->line_end = zend_get_compiled_lineno(TSRMLS_C);
3535:
3536: if (!(ce->ce_flags & (ZEND_ACC_INTERFACE|ZEND_ACC_EXPLICIT_ABSTRACT_CLASS))
3537: && ((parent_token->op_type != IS_UNUSED) || (ce->num_interfaces > 0))) {
3538: zend_verify_abstract_class(ce TSRMLS_CC);
3539: if (ce->num_interfaces) {
3540: do_verify_abstract_class(TSRMLS_C);
3541: }
3542: }
3543: /* Inherit interfaces; reset number to zero, we need it for above check and
3544: * will restore it during actual implementation.
3545: * The ZEND_ACC_IMPLEMENT_INTERFACES flag disables double call to
3546: * zend_verify_abstract_class() */
3547: if (ce->num_interfaces > 0) {
3548: ce->interfaces = NULL;
3549: ce->num_interfaces = 0;
3550: ce->ce_flags |= ZEND_ACC_IMPLEMENT_INTERFACES;
3551: }
3552: CG(active_class_entry) = NULL;
3553: }
3554: /* }}} */
3555:
3556: void zend_do_implements_interface(znode *interface_name TSRMLS_DC) /* {{{ */
3557: {
3558: zend_op *opline;
3559:
3560: switch (zend_get_class_fetch_type(Z_STRVAL(interface_name->u.constant), Z_STRLEN(interface_name->u.constant))) {
3561: case ZEND_FETCH_CLASS_SELF:
3562: case ZEND_FETCH_CLASS_PARENT:
3563: case ZEND_FETCH_CLASS_STATIC:
3564: zend_error(E_COMPILE_ERROR, "Cannot use '%s' as interface name as it is reserved", Z_STRVAL(interface_name->u.constant));
3565: break;
3566: default:
3567: break;
3568: }
3569:
3570: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3571: opline->opcode = ZEND_ADD_INTERFACE;
3572: opline->op1 = CG(implementing_class);
3573: zend_resolve_class_name(interface_name, &opline->extended_value, 0 TSRMLS_CC);
3574: opline->extended_value = (opline->extended_value & ~ZEND_FETCH_CLASS_MASK) | ZEND_FETCH_CLASS_INTERFACE;
3575: opline->op2 = *interface_name;
3576: CG(active_class_entry)->num_interfaces++;
3577: }
3578: /* }}} */
3579:
3580: 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) /* {{{ */
3581: {
3582: char *prop_name;
3583: int prop_name_length;
3584:
3585: prop_name_length = 1 + src1_length + 1 + src2_length;
3586: prop_name = pemalloc(prop_name_length + 1, internal);
3587: prop_name[0] = '\0';
3588: memcpy(prop_name + 1, src1, src1_length+1);
3589: memcpy(prop_name + 1 + src1_length + 1, src2, src2_length+1);
3590:
3591: *dest = prop_name;
3592: *dest_length = prop_name_length;
3593: }
3594: /* }}} */
3595:
3596: static int zend_strnlen(const char* s, int maxlen) /* {{{ */
3597: {
3598: int len = 0;
3599: while (*s++ && maxlen--) len++;
3600: return len;
3601: }
3602: /* }}} */
3603:
3604: ZEND_API int zend_unmangle_property_name(char *mangled_property, int len, char **class_name, char **prop_name) /* {{{ */
3605: {
3606: int class_name_len;
3607:
3608: *class_name = NULL;
3609:
3610: if (mangled_property[0]!=0) {
3611: *prop_name = mangled_property;
3612: return SUCCESS;
3613: }
3614: if (len < 3 || mangled_property[1]==0) {
3615: zend_error(E_NOTICE, "Illegal member variable name");
3616: *prop_name = mangled_property;
3617: return FAILURE;
3618: }
3619:
3620: class_name_len = zend_strnlen(mangled_property+1, --len - 1) + 1;
3621: if (class_name_len >= len || mangled_property[class_name_len]!=0) {
3622: zend_error(E_NOTICE, "Corrupt member variable name");
3623: *prop_name = mangled_property;
3624: return FAILURE;
3625: }
3626: *class_name = mangled_property+1;
3627: *prop_name = (*class_name)+class_name_len;
3628: return SUCCESS;
3629: }
3630: /* }}} */
3631:
3632: void zend_do_declare_property(const znode *var_name, const znode *value, zend_uint access_type TSRMLS_DC) /* {{{ */
3633: {
3634: zval *property;
3635: zend_property_info *existing_property_info;
3636: char *comment = NULL;
3637: int comment_len = 0;
3638:
3639: if (CG(active_class_entry)->ce_flags & ZEND_ACC_INTERFACE) {
3640: zend_error(E_COMPILE_ERROR, "Interfaces may not include member variables");
3641: }
3642:
3643: if (access_type & ZEND_ACC_ABSTRACT) {
3644: zend_error(E_COMPILE_ERROR, "Properties cannot be declared abstract");
3645: }
3646:
3647: if (access_type & ZEND_ACC_FINAL) {
3648: zend_error(E_COMPILE_ERROR, "Cannot declare property %s::$%s final, the final modifier is allowed only for methods and classes",
3649: CG(active_class_entry)->name, var_name->u.constant.value.str.val);
3650: }
3651:
3652: 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) {
3653: if (!(existing_property_info->flags & ZEND_ACC_IMPLICIT_PUBLIC)) {
3654: zend_error(E_COMPILE_ERROR, "Cannot redeclare %s::$%s", CG(active_class_entry)->name, var_name->u.constant.value.str.val);
3655: }
3656: }
3657: ALLOC_ZVAL(property);
3658:
3659: if (value) {
3660: *property = value->u.constant;
3661: } else {
3662: INIT_PZVAL(property);
3663: Z_TYPE_P(property) = IS_NULL;
3664: }
3665:
3666: if (CG(doc_comment)) {
3667: comment = CG(doc_comment);
3668: comment_len = CG(doc_comment_len);
3669: CG(doc_comment) = NULL;
3670: CG(doc_comment_len) = 0;
3671: }
3672:
3673: zend_declare_property_ex(CG(active_class_entry), var_name->u.constant.value.str.val, var_name->u.constant.value.str.len, property, access_type, comment, comment_len TSRMLS_CC);
3674: efree(var_name->u.constant.value.str.val);
3675: }
3676: /* }}} */
3677:
3678: void zend_do_declare_class_constant(znode *var_name, const znode *value TSRMLS_DC) /* {{{ */
3679: {
3680: zval *property;
3681:
3682: if(Z_TYPE(value->u.constant) == IS_CONSTANT_ARRAY) {
3683: zend_error(E_COMPILE_ERROR, "Arrays are not allowed in class constants");
3684: }
3685:
3686: ALLOC_ZVAL(property);
3687: *property = value->u.constant;
3688:
3689: if (zend_hash_add(&CG(active_class_entry)->constants_table, var_name->u.constant.value.str.val, var_name->u.constant.value.str.len+1, &property, sizeof(zval *), NULL)==FAILURE) {
3690: FREE_ZVAL(property);
3691: zend_error(E_COMPILE_ERROR, "Cannot redefine class constant %s::%s", CG(active_class_entry)->name, var_name->u.constant.value.str.val);
3692: }
3693: FREE_PNODE(var_name);
3694:
3695: if (CG(doc_comment)) {
3696: efree(CG(doc_comment));
3697: CG(doc_comment) = NULL;
3698: CG(doc_comment_len) = 0;
3699: }
3700: }
3701: /* }}} */
3702:
3703: void zend_do_fetch_property(znode *result, znode *object, const znode *property TSRMLS_DC) /* {{{ */
3704: {
3705: zend_op opline;
3706: zend_llist *fetch_list_ptr;
3707:
3708: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
3709:
3710: if (object->op_type == IS_CV) {
3711: if (object->u.var == CG(active_op_array)->this_var) {
3712: SET_UNUSED(*object); /* this means $this for objects */
3713: }
3714: } else if (fetch_list_ptr->count == 1) {
3715: zend_llist_element *le = fetch_list_ptr->head;
3716: zend_op *opline_ptr = (zend_op *) le->data;
3717:
3718: if (opline_is_fetch_this(opline_ptr TSRMLS_CC)) {
3719: efree(Z_STRVAL(opline_ptr->op1.u.constant));
3720: SET_UNUSED(opline_ptr->op1); /* this means $this for objects */
3721: opline_ptr->op2 = *property;
3722: /* if it was usual fetch, we change it to object fetch */
3723: switch (opline_ptr->opcode) {
3724: case ZEND_FETCH_W:
3725: opline_ptr->opcode = ZEND_FETCH_OBJ_W;
3726: break;
3727: case ZEND_FETCH_R:
3728: opline_ptr->opcode = ZEND_FETCH_OBJ_R;
3729: break;
3730: case ZEND_FETCH_RW:
3731: opline_ptr->opcode = ZEND_FETCH_OBJ_RW;
3732: break;
3733: case ZEND_FETCH_IS:
3734: opline_ptr->opcode = ZEND_FETCH_OBJ_IS;
3735: break;
3736: case ZEND_FETCH_UNSET:
3737: opline_ptr->opcode = ZEND_FETCH_OBJ_UNSET;
3738: break;
3739: case ZEND_FETCH_FUNC_ARG:
3740: opline_ptr->opcode = ZEND_FETCH_OBJ_FUNC_ARG;
3741: break;
3742: }
3743: *result = opline_ptr->result;
3744: return;
3745: }
3746: }
3747:
3748: init_op(&opline TSRMLS_CC);
3749: opline.opcode = ZEND_FETCH_OBJ_W; /* the backpatching routine assumes W */
3750: opline.result.op_type = IS_VAR;
3751: opline.result.u.EA.type = 0;
3752: opline.result.u.var = get_temporary_variable(CG(active_op_array));
3753: opline.op1 = *object;
3754: opline.op2 = *property;
3755: *result = opline.result;
3756:
3757: zend_llist_add_element(fetch_list_ptr, &opline);
3758: }
3759: /* }}} */
3760:
3761: void zend_do_halt_compiler_register(TSRMLS_D) /* {{{ */
3762: {
3763: char *name, *cfilename;
3764: char haltoff[] = "__COMPILER_HALT_OFFSET__";
3765: int len, clen;
3766:
3767: if (CG(has_bracketed_namespaces) && CG(in_namespace)) {
3768: zend_error(E_COMPILE_ERROR, "__HALT_COMPILER() can only be used from the outermost scope");
3769: }
3770:
3771: cfilename = zend_get_compiled_filename(TSRMLS_C);
3772: clen = strlen(cfilename);
3773: zend_mangle_property_name(&name, &len, haltoff, sizeof(haltoff) - 1, cfilename, clen, 0);
3774: zend_register_long_constant(name, len+1, zend_get_scanned_file_offset(TSRMLS_C), CONST_CS, 0 TSRMLS_CC);
3775: pefree(name, 0);
3776:
3777: if (CG(in_namespace)) {
3778: zend_do_end_namespace(TSRMLS_C);
3779: }
3780: }
3781: /* }}} */
3782:
3783: void zend_do_declare_implicit_property(TSRMLS_D) /* {{{ */
3784: {
3785: /* Fixes bug #26182. Not sure why we needed to do this in the first place.
3786: Has to be checked with Zeev.
3787: */
3788: #if ANDI_0
3789: zend_op *opline_ptr;
3790: zend_llist_element *le;
3791: zend_llist *fetch_list_ptr;
3792:
3793:
3794: zend_stack_top(&CG(bp_stack), (void **) &fetch_list_ptr);
3795:
3796: if (fetch_list_ptr->count != 1) {
3797: return;
3798: }
3799:
3800: le = fetch_list_ptr->head;
3801: opline_ptr = (zend_op *) le->data;
3802:
3803: if (opline_ptr->op1.op_type == IS_UNUSED
3804: && CG(active_class_entry)
3805: && opline_ptr->op2.op_type == IS_CONST
3806: && !zend_hash_exists(&CG(active_class_entry)->properties_info, opline_ptr->op2.u.constant.value.str.val, opline_ptr->op2.u.constant.value.str.len+1)) {
3807: znode property;
3808:
3809: property = opline_ptr->op2;
3810: property.u.constant.value.str.val = estrndup(opline_ptr->op2.u.constant.value.str.val, opline_ptr->op2.u.constant.value.str.len);
3811: zend_do_declare_property(&property, NULL, ZEND_ACC_PUBLIC|ZEND_ACC_IMPLICIT_PUBLIC TSRMLS_CC);
3812: }
3813: #endif
3814: }
3815: /* }}} */
3816:
3817: void zend_do_push_object(const znode *object TSRMLS_DC) /* {{{ */
3818: {
3819: zend_stack_push(&CG(object_stack), object, sizeof(znode));
3820: }
3821: /* }}} */
3822:
3823: void zend_do_pop_object(znode *object TSRMLS_DC) /* {{{ */
3824: {
3825: if (object) {
3826: znode *tmp;
3827:
3828: zend_stack_top(&CG(object_stack), (void **) &tmp);
3829: *object = *tmp;
3830: }
3831: zend_stack_del_top(&CG(object_stack));
3832: }
3833: /* }}} */
3834:
3835: void zend_do_begin_new_object(znode *new_token, znode *class_type TSRMLS_DC) /* {{{ */
3836: {
3837: zend_op *opline;
3838: unsigned char *ptr = NULL;
3839:
3840: new_token->u.opline_num = get_next_op_number(CG(active_op_array));
3841: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3842: opline->opcode = ZEND_NEW;
3843: opline->result.op_type = IS_VAR;
3844: opline->result.u.var = get_temporary_variable(CG(active_op_array));
3845: opline->op1 = *class_type;
3846: SET_UNUSED(opline->op2);
3847:
3848: zend_stack_push(&CG(function_call_stack), (void *) &ptr, sizeof(unsigned char *));
3849: }
3850: /* }}} */
3851:
3852: void zend_do_end_new_object(znode *result, const znode *new_token, const znode *argument_list TSRMLS_DC) /* {{{ */
3853: {
3854: znode ctor_result;
3855:
3856: zend_do_end_function_call(NULL, &ctor_result, argument_list, 1, 0 TSRMLS_CC);
3857: zend_do_free(&ctor_result TSRMLS_CC);
3858:
3859: CG(active_op_array)->opcodes[new_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
3860: *result = CG(active_op_array)->opcodes[new_token->u.opline_num].result;
3861: }
3862: /* }}} */
3863:
3864: static zend_constant* zend_get_ct_const(const zval *const_name, int all_internal_constants_substitution TSRMLS_DC) /* {{{ */
3865: {
3866: zend_constant *c = NULL;
3867:
3868: if (Z_STRVAL_P(const_name)[0] == '\\') {
3869: if (zend_hash_find(EG(zend_constants), Z_STRVAL_P(const_name)+1, Z_STRLEN_P(const_name), (void **) &c) == FAILURE) {
3870: char *lookup_name = zend_str_tolower_dup(Z_STRVAL_P(const_name)+1, Z_STRLEN_P(const_name)-1);
3871:
3872: if (zend_hash_find(EG(zend_constants), lookup_name, Z_STRLEN_P(const_name), (void **) &c)==SUCCESS) {
3873: if ((c->flags & CONST_CT_SUBST) && !(c->flags & CONST_CS)) {
3874: efree(lookup_name);
3875: return c;
3876: }
3877: }
3878: efree(lookup_name);
3879: return NULL;
3880: }
3881: } else if (zend_hash_find(EG(zend_constants), Z_STRVAL_P(const_name), Z_STRLEN_P(const_name)+1, (void **) &c) == FAILURE) {
3882: char *lookup_name = zend_str_tolower_dup(Z_STRVAL_P(const_name), Z_STRLEN_P(const_name));
3883:
3884: if (zend_hash_find(EG(zend_constants), lookup_name, Z_STRLEN_P(const_name)+1, (void **) &c)==SUCCESS) {
3885: if ((c->flags & CONST_CT_SUBST) && !(c->flags & CONST_CS)) {
3886: efree(lookup_name);
3887: return c;
3888: }
3889: }
3890: efree(lookup_name);
3891: return NULL;
3892: }
3893: if (c->flags & CONST_CT_SUBST) {
3894: return c;
3895: }
3896: if (all_internal_constants_substitution &&
3897: (c->flags & CONST_PERSISTENT) &&
3898: !(CG(compiler_options) & ZEND_COMPILE_NO_CONSTANT_SUBSTITUTION) &&
3899: Z_TYPE(c->value) != IS_CONSTANT &&
3900: Z_TYPE(c->value) != IS_CONSTANT_ARRAY) {
3901: return c;
3902: }
3903: return NULL;
3904: }
3905: /* }}} */
3906:
3907: static int zend_constant_ct_subst(znode *result, zval *const_name, int all_internal_constants_substitution TSRMLS_DC) /* {{{ */
3908: {
3909: zend_constant *c = zend_get_ct_const(const_name, all_internal_constants_substitution TSRMLS_CC);
3910:
3911: if (c) {
3912: zval_dtor(const_name);
3913: result->op_type = IS_CONST;
3914: result->u.constant = c->value;
3915: zval_copy_ctor(&result->u.constant);
3916: INIT_PZVAL(&result->u.constant);
3917: return 1;
3918: }
3919: return 0;
3920: }
3921: /* }}} */
3922:
3923: void zend_do_fetch_constant(znode *result, znode *constant_container, znode *constant_name, int mode, zend_bool check_namespace TSRMLS_DC) /* {{{ */
3924: {
3925: znode tmp;
3926: zend_op *opline;
3927: int type;
3928: char *compound;
3929: ulong fetch_type = 0;
3930:
3931: if (constant_container) {
3932: switch (mode) {
3933: case ZEND_CT:
3934: /* this is a class constant */
3935: type = zend_get_class_fetch_type(Z_STRVAL(constant_container->u.constant), Z_STRLEN(constant_container->u.constant));
3936:
3937: if (ZEND_FETCH_CLASS_STATIC == type) {
3938: zend_error(E_ERROR, "\"static::\" is not allowed in compile-time constants");
3939: } else if (ZEND_FETCH_CLASS_DEFAULT == type) {
3940: zend_resolve_class_name(constant_container, &fetch_type, 1 TSRMLS_CC);
3941: }
3942: zend_do_build_full_name(NULL, constant_container, constant_name, 1 TSRMLS_CC);
3943: *result = *constant_container;
3944: result->u.constant.type = IS_CONSTANT | fetch_type;
3945: break;
3946: case ZEND_RT:
3947: if (constant_container->op_type == IS_CONST &&
3948: ZEND_FETCH_CLASS_DEFAULT == zend_get_class_fetch_type(Z_STRVAL(constant_container->u.constant), Z_STRLEN(constant_container->u.constant))) {
3949: zend_resolve_class_name(constant_container, &fetch_type, 1 TSRMLS_CC);
3950: } else {
3951: zend_do_fetch_class(&tmp, constant_container TSRMLS_CC);
3952: constant_container = &tmp;
3953: }
3954: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3955: opline->opcode = ZEND_FETCH_CONSTANT;
3956: opline->result.op_type = IS_TMP_VAR;
3957: opline->result.u.var = get_temporary_variable(CG(active_op_array));
3958: opline->op1 = *constant_container;
3959: opline->op2 = *constant_name;
3960: *result = opline->result;
3961: break;
3962: }
3963: return;
3964: }
3965: /* namespace constant */
3966: /* only one that did not contain \ from the start can be converted to string if unknown */
3967: switch (mode) {
3968: case ZEND_CT:
3969: compound = memchr(Z_STRVAL(constant_name->u.constant), '\\', Z_STRLEN(constant_name->u.constant));
3970: /* this is a namespace constant, or an unprefixed constant */
3971:
3972: if (zend_constant_ct_subst(result, &constant_name->u.constant, 0 TSRMLS_CC)) {
3973: break;
3974: }
3975:
3976: zend_resolve_non_class_name(constant_name, check_namespace TSRMLS_CC);
3977:
3978: if(!compound) {
3979: fetch_type |= IS_CONSTANT_UNQUALIFIED;
3980: }
3981:
3982: *result = *constant_name;
3983: result->u.constant.type = IS_CONSTANT | fetch_type;
3984: break;
3985: case ZEND_RT:
3986: compound = memchr(Z_STRVAL(constant_name->u.constant), '\\', Z_STRLEN(constant_name->u.constant));
3987:
3988: zend_resolve_non_class_name(constant_name, check_namespace TSRMLS_CC);
3989:
3990: if(zend_constant_ct_subst(result, &constant_name->u.constant, 1 TSRMLS_CC)) {
3991: break;
3992: }
3993:
3994: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
3995: opline->opcode = ZEND_FETCH_CONSTANT;
3996: opline->result.op_type = IS_TMP_VAR;
3997: opline->result.u.var = get_temporary_variable(CG(active_op_array));
3998: *result = opline->result;
3999: SET_UNUSED(opline->op1);
4000: if(compound) {
4001: /* the name is unambiguous */
4002: opline->extended_value = 0;
4003: } else {
4004: opline->extended_value = IS_CONSTANT_UNQUALIFIED;
4005: }
4006: opline->op2 = *constant_name;
4007: break;
4008: }
4009: }
4010: /* }}} */
4011:
4012: void zend_do_shell_exec(znode *result, const znode *cmd TSRMLS_DC) /* {{{ */
4013: {
4014: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4015:
4016: switch (cmd->op_type) {
4017: case IS_CONST:
4018: case IS_TMP_VAR:
4019: opline->opcode = ZEND_SEND_VAL;
4020: break;
4021: default:
4022: opline->opcode = ZEND_SEND_VAR;
4023: break;
4024: }
4025: opline->op1 = *cmd;
4026: opline->op2.u.opline_num = 0;
4027: opline->extended_value = ZEND_DO_FCALL;
4028: SET_UNUSED(opline->op2);
4029:
4030: /* FIXME: exception support not added to this op2 */
4031: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4032: opline->opcode = ZEND_DO_FCALL;
4033: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4034: opline->result.op_type = IS_VAR;
4035: Z_STRVAL(opline->op1.u.constant) = estrndup("shell_exec", sizeof("shell_exec")-1);
4036: Z_STRLEN(opline->op1.u.constant) = sizeof("shell_exec")-1;
4037: INIT_PZVAL(&opline->op1.u.constant);
4038: Z_TYPE(opline->op1.u.constant) = IS_STRING;
4039: opline->op1.op_type = IS_CONST;
4040: opline->extended_value = 1;
4041: SET_UNUSED(opline->op2);
4042: ZVAL_LONG(&opline->op2.u.constant, zend_hash_func("shell_exec", sizeof("shell_exec")));
4043: *result = opline->result;
4044: }
4045: /* }}} */
4046:
4047: void zend_do_init_array(znode *result, const znode *expr, const znode *offset, zend_bool is_ref TSRMLS_DC) /* {{{ */
4048: {
4049: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4050:
4051: opline->opcode = ZEND_INIT_ARRAY;
4052: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4053: opline->result.op_type = IS_TMP_VAR;
4054: *result = opline->result;
4055: if (expr) {
4056: opline->op1 = *expr;
4057: if (offset) {
4058: opline->op2 = *offset;
4059: } else {
4060: SET_UNUSED(opline->op2);
4061: }
4062: } else {
4063: SET_UNUSED(opline->op1);
4064: SET_UNUSED(opline->op2);
4065: }
4066: opline->extended_value = is_ref;
4067: }
4068: /* }}} */
4069:
4070: void zend_do_add_array_element(znode *result, const znode *expr, const znode *offset, zend_bool is_ref TSRMLS_DC) /* {{{ */
4071: {
4072: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4073:
4074: opline->opcode = ZEND_ADD_ARRAY_ELEMENT;
4075: opline->result = *result;
4076: opline->op1 = *expr;
4077: if (offset) {
4078: opline->op2 = *offset;
4079: } else {
4080: SET_UNUSED(opline->op2);
4081: }
4082: opline->extended_value = is_ref;
4083: }
4084: /* }}} */
4085:
4086: void zend_do_add_static_array_element(znode *result, znode *offset, const znode *expr) /* {{{ */
4087: {
4088: zval *element;
4089:
4090: ALLOC_ZVAL(element);
4091: *element = expr->u.constant;
4092: if (offset) {
4093: switch (offset->u.constant.type & IS_CONSTANT_TYPE_MASK) {
4094: case IS_CONSTANT:
4095: /* Ugly hack to denote that this value has a constant index */
4096: Z_TYPE_P(element) |= IS_CONSTANT_INDEX;
4097: Z_STRVAL(offset->u.constant) = erealloc(Z_STRVAL(offset->u.constant), Z_STRLEN(offset->u.constant)+3);
4098: Z_STRVAL(offset->u.constant)[Z_STRLEN(offset->u.constant)+1] = Z_TYPE(offset->u.constant);
4099: Z_STRVAL(offset->u.constant)[Z_STRLEN(offset->u.constant)+2] = 0;
4100: zend_symtable_update(result->u.constant.value.ht, Z_STRVAL(offset->u.constant), Z_STRLEN(offset->u.constant)+3, &element, sizeof(zval *), NULL);
4101: zval_dtor(&offset->u.constant);
4102: break;
4103: case IS_STRING:
4104: 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);
4105: zval_dtor(&offset->u.constant);
4106: break;
4107: case IS_NULL:
4108: zend_symtable_update(Z_ARRVAL(result->u.constant), "", 1, &element, sizeof(zval *), NULL);
4109: break;
4110: case IS_LONG:
4111: case IS_BOOL:
4112: zend_hash_index_update(Z_ARRVAL(result->u.constant), Z_LVAL(offset->u.constant), &element, sizeof(zval *), NULL);
4113: break;
4114: case IS_DOUBLE:
4115: zend_hash_index_update(Z_ARRVAL(result->u.constant), zend_dval_to_lval(Z_DVAL(offset->u.constant)), &element, sizeof(zval *), NULL);
4116: break;
4117: case IS_CONSTANT_ARRAY:
4118: zend_error(E_ERROR, "Illegal offset type");
4119: break;
4120: }
4121: } else {
4122: zend_hash_next_index_insert(Z_ARRVAL(result->u.constant), &element, sizeof(zval *), NULL);
4123: }
4124: }
4125: /* }}} */
4126:
4127: void zend_do_add_list_element(const znode *element TSRMLS_DC) /* {{{ */
4128: {
4129: list_llist_element lle;
4130:
4131: if (element) {
4132: zend_check_writable_variable(element);
4133:
4134: lle.var = *element;
4135: zend_llist_copy(&lle.dimensions, &CG(dimension_llist));
4136: zend_llist_prepend_element(&CG(list_llist), &lle);
4137: }
4138: (*((int *)CG(dimension_llist).tail->data))++;
4139: }
4140: /* }}} */
4141:
4142: void zend_do_new_list_begin(TSRMLS_D) /* {{{ */
4143: {
4144: int current_dimension = 0;
4145: zend_llist_add_element(&CG(dimension_llist), ¤t_dimension);
4146: }
4147: /* }}} */
4148:
4149: void zend_do_new_list_end(TSRMLS_D) /* {{{ */
4150: {
4151: zend_llist_remove_tail(&CG(dimension_llist));
4152: (*((int *)CG(dimension_llist).tail->data))++;
4153: }
4154: /* }}} */
4155:
4156: void zend_do_list_init(TSRMLS_D) /* {{{ */
4157: {
4158: zend_stack_push(&CG(list_stack), &CG(list_llist), sizeof(zend_llist));
4159: zend_stack_push(&CG(list_stack), &CG(dimension_llist), sizeof(zend_llist));
4160: zend_llist_init(&CG(list_llist), sizeof(list_llist_element), NULL, 0);
4161: zend_llist_init(&CG(dimension_llist), sizeof(int), NULL, 0);
4162: zend_do_new_list_begin(TSRMLS_C);
4163: }
4164: /* }}} */
4165:
4166: void zend_do_list_end(znode *result, znode *expr TSRMLS_DC) /* {{{ */
4167: {
4168: zend_llist_element *le;
4169: zend_llist_element *dimension;
4170: zend_op *opline;
4171: znode last_container;
4172:
4173: le = CG(list_llist).head;
4174: while (le) {
4175: zend_llist *tmp_dimension_llist = &((list_llist_element *)le->data)->dimensions;
4176: dimension = tmp_dimension_llist->head;
4177: while (dimension) {
4178: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4179: if (dimension == tmp_dimension_llist->head) { /* first */
4180: last_container = *expr;
4181: switch (expr->op_type) {
4182: case IS_VAR:
4183: case IS_CV:
4184: opline->opcode = ZEND_FETCH_DIM_R;
4185: break;
4186: case IS_TMP_VAR:
4187: opline->opcode = ZEND_FETCH_DIM_TMP_VAR;
4188: break;
4189: case IS_CONST: /* fetch_dim_tmp_var will handle this bogus fetch */
4190: zval_copy_ctor(&expr->u.constant);
4191: opline->opcode = ZEND_FETCH_DIM_TMP_VAR;
4192: break;
4193: }
4194: opline->extended_value = ZEND_FETCH_ADD_LOCK;
4195: } else {
4196: opline->opcode = ZEND_FETCH_DIM_R;
4197: }
4198: opline->result.op_type = IS_VAR;
4199: opline->result.u.EA.type = 0;
4200: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4201: opline->op1 = last_container;
4202: opline->op2.op_type = IS_CONST;
4203: Z_TYPE(opline->op2.u.constant) = IS_LONG;
4204: Z_LVAL(opline->op2.u.constant) = *((int *) dimension->data);
4205: INIT_PZVAL(&opline->op2.u.constant);
4206: last_container = opline->result;
4207: dimension = dimension->next;
4208: }
4209: ((list_llist_element *) le->data)->value = last_container;
4210: zend_llist_destroy(&((list_llist_element *) le->data)->dimensions);
4211: zend_do_assign(result, &((list_llist_element *) le->data)->var, &((list_llist_element *) le->data)->value TSRMLS_CC);
4212: zend_do_free(result TSRMLS_CC);
4213: le = le->next;
4214: }
4215: zend_llist_destroy(&CG(dimension_llist));
4216: zend_llist_destroy(&CG(list_llist));
4217: *result = *expr;
4218: {
4219: zend_llist *p;
4220:
4221: /* restore previous lists */
4222: zend_stack_top(&CG(list_stack), (void **) &p);
4223: CG(dimension_llist) = *p;
4224: zend_stack_del_top(&CG(list_stack));
4225: zend_stack_top(&CG(list_stack), (void **) &p);
4226: CG(list_llist) = *p;
4227: zend_stack_del_top(&CG(list_stack));
4228: }
4229: }
4230: /* }}} */
4231:
4232: void zend_do_fetch_static_variable(znode *varname, const znode *static_assignment, int fetch_type TSRMLS_DC) /* {{{ */
4233: {
4234: zval *tmp;
4235: zend_op *opline;
4236: znode lval;
4237: znode result;
4238:
4239: ALLOC_ZVAL(tmp);
4240:
4241: if (static_assignment) {
4242: *tmp = static_assignment->u.constant;
4243: } else {
4244: INIT_ZVAL(*tmp);
4245: }
4246: if (!CG(active_op_array)->static_variables) {
4247: ALLOC_HASHTABLE(CG(active_op_array)->static_variables);
4248: zend_hash_init(CG(active_op_array)->static_variables, 2, NULL, ZVAL_PTR_DTOR, 0);
4249: }
4250: 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);
4251:
4252: if (varname->op_type == IS_CONST) {
4253: if (Z_TYPE(varname->u.constant) != IS_STRING) {
4254: convert_to_string(&varname->u.constant);
4255: }
4256: }
4257:
4258: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4259: 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 */
4260: opline->result.op_type = IS_VAR;
4261: opline->result.u.EA.type = 0;
4262: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4263: opline->op1 = *varname;
4264: SET_UNUSED(opline->op2);
4265: opline->op2.u.EA.type = ZEND_FETCH_STATIC;
4266: result = opline->result;
4267:
4268: if (varname->op_type == IS_CONST) {
4269: zval_copy_ctor(&varname->u.constant);
4270: }
4271: fetch_simple_variable(&lval, varname, 0 TSRMLS_CC); /* Relies on the fact that the default fetch is BP_VAR_W */
4272:
4273: if (fetch_type == ZEND_FETCH_LEXICAL) {
4274: znode dummy;
4275:
4276: zend_do_begin_variable_parse(TSRMLS_C);
4277: zend_do_assign(&dummy, &lval, &result TSRMLS_CC);
4278: zend_do_free(&dummy TSRMLS_CC);
4279: } else {
4280: zend_do_assign_ref(NULL, &lval, &result TSRMLS_CC);
4281: }
4282: CG(active_op_array)->opcodes[CG(active_op_array)->last-1].result.u.EA.type |= EXT_TYPE_UNUSED;
4283:
4284: /* zval_dtor(&varname->u.constant); */
4285: }
4286: /* }}} */
4287:
4288: void zend_do_fetch_lexical_variable(znode *varname, zend_bool is_ref TSRMLS_DC) /* {{{ */
4289: {
4290: znode value;
4291:
4292: if (Z_STRLEN(varname->u.constant) == sizeof("this") - 1 &&
4293: memcmp(Z_STRVAL(varname->u.constant), "this", sizeof("this") - 1) == 0) {
4294: zend_error(E_COMPILE_ERROR, "Cannot use $this as lexical variable");
4295: return;
4296: }
4297:
4298: value.op_type = IS_CONST;
4299: ZVAL_NULL(&value.u.constant);
4300: Z_TYPE(value.u.constant) |= is_ref ? IS_LEXICAL_REF : IS_LEXICAL_VAR;
4301: Z_SET_REFCOUNT_P(&value.u.constant, 1);
4302: Z_UNSET_ISREF_P(&value.u.constant);
4303:
4304: zend_do_fetch_static_variable(varname, &value, is_ref ? ZEND_FETCH_STATIC : ZEND_FETCH_LEXICAL TSRMLS_CC);
4305: }
4306: /* }}} */
4307:
4308: void zend_do_fetch_global_variable(znode *varname, const znode *static_assignment, int fetch_type TSRMLS_DC) /* {{{ */
4309: {
4310: zend_op *opline;
4311: znode lval;
4312: znode result;
4313:
4314: if (varname->op_type == IS_CONST) {
4315: if (Z_TYPE(varname->u.constant) != IS_STRING) {
4316: convert_to_string(&varname->u.constant);
4317: }
4318: }
4319:
4320: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4321: opline->opcode = ZEND_FETCH_W; /* the default mode must be Write, since fetch_simple_variable() is used to define function arguments */
4322: opline->result.op_type = IS_VAR;
4323: opline->result.u.EA.type = 0;
4324: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4325: opline->op1 = *varname;
4326: SET_UNUSED(opline->op2);
4327: opline->op2.u.EA.type = fetch_type;
4328: result = opline->result;
4329:
4330: if (varname->op_type == IS_CONST) {
4331: zval_copy_ctor(&varname->u.constant);
4332: }
4333: fetch_simple_variable(&lval, varname, 0 TSRMLS_CC); /* Relies on the fact that the default fetch is BP_VAR_W */
4334:
4335: zend_do_assign_ref(NULL, &lval, &result TSRMLS_CC);
4336: CG(active_op_array)->opcodes[CG(active_op_array)->last-1].result.u.EA.type |= EXT_TYPE_UNUSED;
4337: }
4338: /* }}} */
4339:
4340: void zend_do_cast(znode *result, const znode *expr, int type TSRMLS_DC) /* {{{ */
4341: {
4342: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4343:
4344: opline->opcode = ZEND_CAST;
4345: opline->result.op_type = IS_TMP_VAR;
4346: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4347: opline->op1 = *expr;
4348: SET_UNUSED(opline->op2);
4349: opline->extended_value = type;
4350: *result = opline->result;
4351: }
4352: /* }}} */
4353:
4354: void zend_do_include_or_eval(int type, znode *result, const znode *op1 TSRMLS_DC) /* {{{ */
4355: {
4356: zend_do_extended_fcall_begin(TSRMLS_C);
4357: {
4358: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4359:
4360: opline->opcode = ZEND_INCLUDE_OR_EVAL;
4361: opline->result.op_type = IS_VAR;
4362: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4363: opline->op1 = *op1;
4364: SET_UNUSED(opline->op2);
4365: Z_LVAL(opline->op2.u.constant) = type;
4366: *result = opline->result;
4367: }
4368: zend_do_extended_fcall_end(TSRMLS_C);
4369: }
4370: /* }}} */
4371:
4372: void zend_do_indirect_references(znode *result, const znode *num_references, znode *variable TSRMLS_DC) /* {{{ */
4373: {
4374: int i;
4375:
4376: zend_do_end_variable_parse(variable, BP_VAR_R, 0 TSRMLS_CC);
4377: for (i=1; i<num_references->u.constant.value.lval; i++) {
4378: fetch_simple_variable_ex(result, variable, 0, ZEND_FETCH_R TSRMLS_CC);
4379: *variable = *result;
4380: }
4381: zend_do_begin_variable_parse(TSRMLS_C);
4382: fetch_simple_variable(result, variable, 1 TSRMLS_CC);
4383: /* there is a chance someone is accessing $this */
4384: if (CG(active_op_array)->scope && CG(active_op_array)->this_var == -1) {
4385: CG(active_op_array)->this_var = lookup_cv(CG(active_op_array), estrndup("this", sizeof("this")-1), sizeof("this")-1);
4386: }
4387: }
4388: /* }}} */
4389:
4390: void zend_do_unset(const znode *variable TSRMLS_DC) /* {{{ */
4391: {
4392: zend_op *last_op;
4393:
4394: zend_check_writable_variable(variable);
4395:
4396: if (variable->op_type == IS_CV) {
4397: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4398: opline->opcode = ZEND_UNSET_VAR;
4399: opline->op1 = *variable;
4400: SET_UNUSED(opline->op2);
4401: opline->op2.u.EA.type = ZEND_FETCH_LOCAL;
4402: SET_UNUSED(opline->result);
4403: opline->extended_value = ZEND_QUICK_SET;
4404: } else {
4405: last_op = &CG(active_op_array)->opcodes[get_next_op_number(CG(active_op_array))-1];
4406:
4407: switch (last_op->opcode) {
4408: case ZEND_FETCH_UNSET:
4409: last_op->opcode = ZEND_UNSET_VAR;
4410: break;
4411: case ZEND_FETCH_DIM_UNSET:
4412: last_op->opcode = ZEND_UNSET_DIM;
4413: break;
4414: case ZEND_FETCH_OBJ_UNSET:
4415: last_op->opcode = ZEND_UNSET_OBJ;
4416: break;
4417:
4418: }
4419: }
4420: }
4421: /* }}} */
4422:
4423: void zend_do_isset_or_isempty(int type, znode *result, znode *variable TSRMLS_DC) /* {{{ */
4424: {
4425: zend_op *last_op;
4426:
4427: zend_do_end_variable_parse(variable, BP_VAR_IS, 0 TSRMLS_CC);
4428:
4429: zend_check_writable_variable(variable);
4430:
4431: if (variable->op_type == IS_CV) {
4432: last_op = get_next_op(CG(active_op_array) TSRMLS_CC);
4433: last_op->opcode = ZEND_ISSET_ISEMPTY_VAR;
4434: last_op->op1 = *variable;
4435: SET_UNUSED(last_op->op2);
4436: last_op->op2.u.EA.type = ZEND_FETCH_LOCAL;
4437: last_op->result.u.var = get_temporary_variable(CG(active_op_array));
4438: last_op->extended_value = ZEND_QUICK_SET;
4439: } else {
4440: last_op = &CG(active_op_array)->opcodes[get_next_op_number(CG(active_op_array))-1];
4441:
4442: switch (last_op->opcode) {
4443: case ZEND_FETCH_IS:
4444: last_op->opcode = ZEND_ISSET_ISEMPTY_VAR;
4445: break;
4446: case ZEND_FETCH_DIM_IS:
4447: last_op->opcode = ZEND_ISSET_ISEMPTY_DIM_OBJ;
4448: break;
4449: case ZEND_FETCH_OBJ_IS:
4450: last_op->opcode = ZEND_ISSET_ISEMPTY_PROP_OBJ;
4451: break;
4452: }
4453: last_op->extended_value = 0;
4454: }
4455: last_op->result.op_type = IS_TMP_VAR;
4456: last_op->extended_value |= type;
4457:
4458: *result = last_op->result;
4459: }
4460: /* }}} */
4461:
4462: void zend_do_instanceof(znode *result, const znode *expr, const znode *class_znode, int type TSRMLS_DC) /* {{{ */
4463: {
4464: int last_op_number = get_next_op_number(CG(active_op_array));
4465: zend_op *opline;
4466:
4467: if (last_op_number > 0) {
4468: opline = &CG(active_op_array)->opcodes[last_op_number-1];
4469: if (opline->opcode == ZEND_FETCH_CLASS) {
4470: opline->extended_value |= ZEND_FETCH_CLASS_NO_AUTOLOAD;
4471: }
4472: }
4473:
4474: if (expr->op_type == IS_CONST) {
4475: zend_error(E_COMPILE_ERROR, "instanceof expects an object instance, constant given");
4476: }
4477:
4478: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4479: opline->opcode = ZEND_INSTANCEOF;
4480: opline->result.op_type = IS_TMP_VAR;
4481: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4482: opline->op1 = *expr;
4483:
4484: opline->op2 = *class_znode;
4485:
4486: *result = opline->result;
4487: }
4488: /* }}} */
4489:
4490: void zend_do_foreach_begin(znode *foreach_token, znode *open_brackets_token, znode *array, znode *as_token, int variable TSRMLS_DC) /* {{{ */
4491: {
4492: zend_op *opline;
4493: zend_bool is_variable;
4494: zend_bool push_container = 0;
4495: zend_op dummy_opline;
4496:
4497: if (variable) {
4498: if (zend_is_function_or_method_call(array)) {
4499: is_variable = 0;
4500: } else {
4501: is_variable = 1;
4502: }
4503: /* save the location of FETCH_W instruction(s) */
4504: open_brackets_token->u.opline_num = get_next_op_number(CG(active_op_array));
4505: zend_do_end_variable_parse(array, BP_VAR_W, 0 TSRMLS_CC);
4506: if (CG(active_op_array)->last > 0 &&
4507: CG(active_op_array)->opcodes[CG(active_op_array)->last-1].opcode == ZEND_FETCH_OBJ_W) {
4508: /* Only lock the container if we are fetching from a real container and not $this */
4509: if (CG(active_op_array)->opcodes[CG(active_op_array)->last-1].op1.op_type == IS_VAR) {
4510: CG(active_op_array)->opcodes[CG(active_op_array)->last-1].extended_value |= ZEND_FETCH_ADD_LOCK;
4511: push_container = 1;
4512: }
4513: }
4514: } else {
4515: is_variable = 0;
4516: open_brackets_token->u.opline_num = get_next_op_number(CG(active_op_array));
4517: }
4518:
4519: /* save the location of FE_RESET */
4520: foreach_token->u.opline_num = get_next_op_number(CG(active_op_array));
4521:
4522: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4523:
4524: /* Preform array reset */
4525: opline->opcode = ZEND_FE_RESET;
4526: opline->result.op_type = IS_VAR;
4527: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4528: opline->op1 = *array;
4529: SET_UNUSED(opline->op2);
4530: opline->extended_value = is_variable ? ZEND_FE_RESET_VARIABLE : 0;
4531:
4532: dummy_opline.result = opline->result;
4533: if (push_container) {
4534: dummy_opline.op1 = CG(active_op_array)->opcodes[CG(active_op_array)->last-2].op1;
4535: } else {
4536: znode tmp;
4537:
4538: tmp.op_type = IS_UNUSED;
4539: dummy_opline.op1 = tmp;
4540: }
4541: zend_stack_push(&CG(foreach_copy_stack), (void *) &dummy_opline, sizeof(zend_op));
4542:
4543: /* save the location of FE_FETCH */
4544: as_token->u.opline_num = get_next_op_number(CG(active_op_array));
4545:
4546: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4547: opline->opcode = ZEND_FE_FETCH;
4548: opline->result.op_type = IS_VAR;
4549: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4550: opline->op1 = dummy_opline.result;
4551: opline->extended_value = 0;
4552: SET_UNUSED(opline->op2);
4553:
4554: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4555: opline->opcode = ZEND_OP_DATA;
4556: SET_UNUSED(opline->op1);
4557: SET_UNUSED(opline->op2);
4558: SET_UNUSED(opline->result);
4559: }
4560: /* }}} */
4561:
4562: void zend_do_foreach_cont(znode *foreach_token, const znode *open_brackets_token, const znode *as_token, znode *value, znode *key TSRMLS_DC) /* {{{ */
4563: {
4564: zend_op *opline;
4565: znode dummy, value_node;
4566: zend_bool assign_by_ref=0;
4567:
4568: opline = &CG(active_op_array)->opcodes[as_token->u.opline_num];
4569: if (key->op_type != IS_UNUSED) {
4570: znode *tmp;
4571:
4572: /* switch between the key and value... */
4573: tmp = key;
4574: key = value;
4575: value = tmp;
4576:
4577: /* Mark extended_value in case both key and value are being used */
4578: opline->extended_value |= ZEND_FE_FETCH_WITH_KEY;
4579: }
4580:
4581: if ((key->op_type != IS_UNUSED) && (key->u.EA.type & ZEND_PARSED_REFERENCE_VARIABLE)) {
4582: zend_error(E_COMPILE_ERROR, "Key element cannot be a reference");
4583: }
4584:
4585: if (value->u.EA.type & ZEND_PARSED_REFERENCE_VARIABLE) {
4586: assign_by_ref = 1;
4587: if (!(opline-1)->extended_value) {
4588: zend_error(E_COMPILE_ERROR, "Cannot create references to elements of a temporary array expression");
4589: }
4590: /* Mark extended_value for assign-by-reference */
4591: opline->extended_value |= ZEND_FE_FETCH_BYREF;
4592: CG(active_op_array)->opcodes[foreach_token->u.opline_num].extended_value |= ZEND_FE_RESET_REFERENCE;
4593: } else {
4594: zend_op *foreach_copy;
4595: zend_op *fetch = &CG(active_op_array)->opcodes[foreach_token->u.opline_num];
4596: zend_op *end = &CG(active_op_array)->opcodes[open_brackets_token->u.opline_num];
4597:
4598: /* Change "write context" into "read context" */
4599: fetch->extended_value = 0; /* reset ZEND_FE_RESET_VARIABLE */
4600: while (fetch != end) {
4601: --fetch;
4602: if (fetch->opcode == ZEND_FETCH_DIM_W && fetch->op2.op_type == IS_UNUSED) {
4603: zend_error(E_COMPILE_ERROR, "Cannot use [] for reading");
4604: }
4605: fetch->opcode -= 3; /* FETCH_W -> FETCH_R */
4606: }
4607: /* prevent double SWITCH_FREE */
4608: zend_stack_top(&CG(foreach_copy_stack), (void **) &foreach_copy);
4609: foreach_copy->op1.op_type = IS_UNUSED;
4610: }
4611:
4612: value_node = opline->result;
4613:
4614: if (assign_by_ref) {
4615: zend_do_end_variable_parse(value, BP_VAR_W, 0 TSRMLS_CC);
4616: /* Mark FE_FETCH as IS_VAR as it holds the data directly as a value */
4617: zend_do_assign_ref(NULL, value, &value_node TSRMLS_CC);
4618: } else {
4619: zend_do_assign(&dummy, value, &value_node TSRMLS_CC);
4620: zend_do_free(&dummy TSRMLS_CC);
4621: }
4622:
4623: if (key->op_type != IS_UNUSED) {
4624: znode key_node;
4625:
4626: opline = &CG(active_op_array)->opcodes[as_token->u.opline_num+1];
4627: opline->result.op_type = IS_TMP_VAR;
4628: opline->result.u.EA.type = 0;
4629: opline->result.u.opline_num = get_temporary_variable(CG(active_op_array));
4630: key_node = opline->result;
4631:
4632: zend_do_assign(&dummy, key, &key_node TSRMLS_CC);
4633: zend_do_free(&dummy TSRMLS_CC);
4634: }
4635:
4636: do_begin_loop(TSRMLS_C);
4637: INC_BPC(CG(active_op_array));
4638: }
4639: /* }}} */
4640:
4641: void zend_do_foreach_end(const znode *foreach_token, const znode *as_token TSRMLS_DC) /* {{{ */
4642: {
4643: zend_op *container_ptr;
4644: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4645:
4646: opline->opcode = ZEND_JMP;
4647: opline->op1.u.opline_num = as_token->u.opline_num;
4648: SET_UNUSED(opline->op1);
4649: SET_UNUSED(opline->op2);
4650:
4651: CG(active_op_array)->opcodes[foreach_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array)); /* FE_RESET */
4652: CG(active_op_array)->opcodes[as_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array)); /* FE_FETCH */
4653:
4654: do_end_loop(as_token->u.opline_num, 1 TSRMLS_CC);
4655:
4656: zend_stack_top(&CG(foreach_copy_stack), (void **) &container_ptr);
4657: generate_free_foreach_copy(container_ptr TSRMLS_CC);
4658: zend_stack_del_top(&CG(foreach_copy_stack));
4659:
4660: DEC_BPC(CG(active_op_array));
4661: }
4662: /* }}} */
4663:
4664: void zend_do_declare_begin(TSRMLS_D) /* {{{ */
4665: {
4666: zend_stack_push(&CG(declare_stack), &CG(declarables), sizeof(zend_declarables));
4667: }
4668: /* }}} */
4669:
4670: void zend_do_declare_stmt(znode *var, znode *val TSRMLS_DC) /* {{{ */
4671: {
4672: if (!zend_binary_strcasecmp(var->u.constant.value.str.val, var->u.constant.value.str.len, "ticks", sizeof("ticks")-1)) {
4673: convert_to_long(&val->u.constant);
4674: CG(declarables).ticks = val->u.constant;
4675: #ifdef ZEND_MULTIBYTE
4676: } else if (!zend_binary_strcasecmp(var->u.constant.value.str.val, var->u.constant.value.str.len, "encoding", sizeof("encoding")-1)) {
4677: zend_encoding *new_encoding, *old_encoding;
4678: zend_encoding_filter old_input_filter;
4679:
4680: if ((Z_TYPE(val->u.constant) & IS_CONSTANT_TYPE_MASK) == IS_CONSTANT) {
4681: zend_error(E_COMPILE_ERROR, "Cannot use constants as encoding");
4682: }
4683:
4684: /*
4685: * Check that the pragma comes before any opcodes. If the compilation
4686: * got as far as this, the previous portion of the script must have been
4687: * parseable according to the .ini script_encoding setting. We still
4688: * want to tell them to put declare() at the top.
4689: */
4690: {
4691: int num = CG(active_op_array)->last;
4692: /* ignore ZEND_EXT_STMT and ZEND_TICKS */
4693: while (num > 0 &&
4694: (CG(active_op_array)->opcodes[num-1].opcode == ZEND_EXT_STMT ||
4695: CG(active_op_array)->opcodes[num-1].opcode == ZEND_TICKS)) {
4696: --num;
4697: }
4698:
4699: if (num > 0) {
4700: zend_error(E_COMPILE_ERROR, "Encoding declaration pragma must be the very first statement in the script");
4701: }
4702: }
4703: CG(encoding_declared) = 1;
4704:
4705: convert_to_string(&val->u.constant);
4706: new_encoding = zend_multibyte_fetch_encoding(val->u.constant.value.str.val);
4707: if (!new_encoding) {
4708: zend_error(E_COMPILE_WARNING, "Unsupported encoding [%s]", val->u.constant.value.str.val);
4709: } else {
4710: old_input_filter = LANG_SCNG(input_filter);
4711: old_encoding = LANG_SCNG(script_encoding);
4712: zend_multibyte_set_filter(new_encoding TSRMLS_CC);
4713:
4714: /* need to re-scan if input filter changed */
4715: if (old_input_filter != LANG_SCNG(input_filter) ||
4716: ((old_input_filter == zend_multibyte_script_encoding_filter) &&
4717: (new_encoding != old_encoding))) {
4718: zend_multibyte_yyinput_again(old_input_filter, old_encoding TSRMLS_CC);
4719: }
4720: }
4721: efree(val->u.constant.value.str.val);
4722: #else /* !ZEND_MULTIBYTE */
4723: } else if (!zend_binary_strcasecmp(var->u.constant.value.str.val, var->u.constant.value.str.len, "encoding", sizeof("encoding")-1)) {
4724: /* Do not generate any kind of warning for encoding declares */
4725: /* zend_error(E_COMPILE_WARNING, "Declare encoding [%s] not supported", val->u.constant.value.str.val); */
4726: zval_dtor(&val->u.constant);
4727: #endif /* ZEND_MULTIBYTE */
4728: } else {
4729: zend_error(E_COMPILE_WARNING, "Unsupported declare '%s'", var->u.constant.value.str.val);
4730: zval_dtor(&val->u.constant);
4731: }
4732: zval_dtor(&var->u.constant);
4733: }
4734: /* }}} */
4735:
4736: void zend_do_declare_end(const znode *declare_token TSRMLS_DC) /* {{{ */
4737: {
4738: zend_declarables *declarables;
4739:
4740: zend_stack_top(&CG(declare_stack), (void **) &declarables);
4741: /* We should restore if there was more than (current - start) - (ticks?1:0) opcodes */
4742: if ((get_next_op_number(CG(active_op_array)) - declare_token->u.opline_num) - ((Z_LVAL(CG(declarables).ticks))?1:0)) {
4743: CG(declarables) = *declarables;
4744: }
4745: }
4746: /* }}} */
4747:
4748: void zend_do_exit(znode *result, const znode *message TSRMLS_DC) /* {{{ */
4749: {
4750: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4751:
4752: opline->opcode = ZEND_EXIT;
4753: opline->op1 = *message;
4754: SET_UNUSED(opline->op2);
4755:
4756: result->op_type = IS_CONST;
4757: Z_TYPE(result->u.constant) = IS_BOOL;
4758: Z_LVAL(result->u.constant) = 1;
4759: }
4760: /* }}} */
4761:
4762: void zend_do_begin_silence(znode *strudel_token TSRMLS_DC) /* {{{ */
4763: {
4764: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4765:
4766: opline->opcode = ZEND_BEGIN_SILENCE;
4767: opline->result.op_type = IS_TMP_VAR;
4768: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4769: SET_UNUSED(opline->op1);
4770: SET_UNUSED(opline->op2);
4771: *strudel_token = opline->result;
4772: }
4773: /* }}} */
4774:
4775: void zend_do_end_silence(const znode *strudel_token TSRMLS_DC) /* {{{ */
4776: {
4777: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4778:
4779: opline->opcode = ZEND_END_SILENCE;
4780: opline->op1 = *strudel_token;
4781: SET_UNUSED(opline->op2);
4782: }
4783: /* }}} */
4784:
4785: void zend_do_jmp_set(const znode *value, znode *jmp_token, znode *colon_token TSRMLS_DC) /* {{{ */
4786: {
4787: int op_number = get_next_op_number(CG(active_op_array));
4788: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4789:
4790: opline->opcode = ZEND_JMP_SET;
4791: opline->result.op_type = IS_TMP_VAR;
4792: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4793: opline->op1 = *value;
4794: SET_UNUSED(opline->op2);
4795:
4796: *colon_token = opline->result;
4797:
4798: jmp_token->u.opline_num = op_number;
4799:
4800: INC_BPC(CG(active_op_array));
4801: }
4802: /* }}} */
4803:
4804: void zend_do_jmp_set_else(znode *result, const znode *false_value, const znode *jmp_token, const znode *colon_token TSRMLS_DC) /* {{{ */
4805: {
4806: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4807:
4808: opline->opcode = ZEND_QM_ASSIGN;
4809: opline->extended_value = 0;
4810: opline->result = *colon_token;
4811: opline->op1 = *false_value;
4812: SET_UNUSED(opline->op2);
4813:
4814: *result = opline->result;
4815:
4816: CG(active_op_array)->opcodes[jmp_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array));
4817:
4818: DEC_BPC(CG(active_op_array));
4819: }
4820: /* }}} */
4821:
4822: void zend_do_begin_qm_op(const znode *cond, znode *qm_token TSRMLS_DC) /* {{{ */
4823: {
4824: int jmpz_op_number = get_next_op_number(CG(active_op_array));
4825: zend_op *opline;
4826:
4827: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4828:
4829: opline->opcode = ZEND_JMPZ;
4830: opline->op1 = *cond;
4831: SET_UNUSED(opline->op2);
4832: opline->op2.u.opline_num = jmpz_op_number;
4833: *qm_token = opline->op2;
4834:
4835: INC_BPC(CG(active_op_array));
4836: }
4837: /* }}} */
4838:
4839: void zend_do_qm_true(const znode *true_value, znode *qm_token, znode *colon_token TSRMLS_DC) /* {{{ */
4840: {
4841: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4842:
4843: CG(active_op_array)->opcodes[qm_token->u.opline_num].op2.u.opline_num = get_next_op_number(CG(active_op_array))+1; /* jmp over the ZEND_JMP */
4844:
4845: opline->opcode = ZEND_QM_ASSIGN;
4846: opline->result.op_type = IS_TMP_VAR;
4847: opline->result.u.var = get_temporary_variable(CG(active_op_array));
4848: opline->op1 = *true_value;
4849: SET_UNUSED(opline->op2);
4850:
4851: *qm_token = opline->result;
4852: colon_token->u.opline_num = get_next_op_number(CG(active_op_array));
4853:
4854: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4855: opline->opcode = ZEND_JMP;
4856: SET_UNUSED(opline->op1);
4857: SET_UNUSED(opline->op2);
4858: }
4859: /* }}} */
4860:
4861: void zend_do_qm_false(znode *result, const znode *false_value, const znode *qm_token, const znode *colon_token TSRMLS_DC) /* {{{ */
4862: {
4863: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4864:
4865: opline->opcode = ZEND_QM_ASSIGN;
4866: opline->result = *qm_token;
4867: opline->op1 = *false_value;
4868: SET_UNUSED(opline->op2);
4869:
4870: CG(active_op_array)->opcodes[colon_token->u.opline_num].op1.u.opline_num = get_next_op_number(CG(active_op_array));
4871:
4872: *result = opline->result;
4873:
4874: DEC_BPC(CG(active_op_array));
4875: }
4876: /* }}} */
4877:
4878: void zend_do_extended_info(TSRMLS_D) /* {{{ */
4879: {
4880: zend_op *opline;
4881:
4882: if (!(CG(compiler_options) & ZEND_COMPILE_EXTENDED_INFO)) {
4883: return;
4884: }
4885:
4886: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4887:
4888: opline->opcode = ZEND_EXT_STMT;
4889: SET_UNUSED(opline->op1);
4890: SET_UNUSED(opline->op2);
4891: }
4892: /* }}} */
4893:
4894: void zend_do_extended_fcall_begin(TSRMLS_D) /* {{{ */
4895: {
4896: zend_op *opline;
4897:
4898: if (!(CG(compiler_options) & ZEND_COMPILE_EXTENDED_INFO)) {
4899: return;
4900: }
4901:
4902: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4903:
4904: opline->opcode = ZEND_EXT_FCALL_BEGIN;
4905: SET_UNUSED(opline->op1);
4906: SET_UNUSED(opline->op2);
4907: }
4908: /* }}} */
4909:
4910: void zend_do_extended_fcall_end(TSRMLS_D) /* {{{ */
4911: {
4912: zend_op *opline;
4913:
4914: if (!(CG(compiler_options) & ZEND_COMPILE_EXTENDED_INFO)) {
4915: return;
4916: }
4917:
4918: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4919:
4920: opline->opcode = ZEND_EXT_FCALL_END;
4921: SET_UNUSED(opline->op1);
4922: SET_UNUSED(opline->op2);
4923: }
4924: /* }}} */
4925:
4926: void zend_do_ticks(TSRMLS_D) /* {{{ */
4927: {
4928: zend_op *opline = get_next_op(CG(active_op_array) TSRMLS_CC);
4929:
4930: opline->opcode = ZEND_TICKS;
4931: opline->op1.u.constant = CG(declarables).ticks;
4932: opline->op1.op_type = IS_CONST;
4933: SET_UNUSED(opline->op2);
4934: }
4935: /* }}} */
4936:
4937: void zend_auto_global_dtor(zend_auto_global *auto_global) /* {{{ */
4938: {
4939: free(auto_global->name);
4940: }
4941: /* }}} */
4942:
4943: zend_bool zend_is_auto_global(const char *name, uint name_len TSRMLS_DC) /* {{{ */
4944: {
4945: zend_auto_global *auto_global;
4946:
4947: if (zend_hash_find(CG(auto_globals), name, name_len+1, (void **) &auto_global)==SUCCESS) {
4948: if (auto_global->armed) {
4949: auto_global->armed = auto_global->auto_global_callback(auto_global->name, auto_global->name_len TSRMLS_CC);
4950: }
4951: return 1;
4952: }
4953: return 0;
4954: }
4955: /* }}} */
4956:
4957: int zend_register_auto_global(const char *name, uint name_len, zend_auto_global_callback auto_global_callback TSRMLS_DC) /* {{{ */
4958: {
4959: zend_auto_global auto_global;
4960:
4961: auto_global.name = zend_strndup(name, name_len);
4962: auto_global.name_len = name_len;
4963: auto_global.auto_global_callback = auto_global_callback;
4964:
4965: return zend_hash_add(CG(auto_globals), name, name_len+1, &auto_global, sizeof(zend_auto_global), NULL);
4966: }
4967: /* }}} */
4968:
4969: int zendlex(znode *zendlval TSRMLS_DC) /* {{{ */
4970: {
4971: int retval;
4972:
4973: if (CG(increment_lineno)) {
4974: CG(zend_lineno)++;
4975: CG(increment_lineno) = 0;
4976: }
4977:
4978: again:
4979: Z_TYPE(zendlval->u.constant) = IS_LONG;
4980: retval = lex_scan(&zendlval->u.constant TSRMLS_CC);
4981: switch (retval) {
4982: case T_COMMENT:
4983: case T_DOC_COMMENT:
4984: case T_OPEN_TAG:
4985: case T_WHITESPACE:
4986: goto again;
4987:
4988: case T_CLOSE_TAG:
4989: if (LANG_SCNG(yy_text)[LANG_SCNG(yy_leng)-1] != '>') {
4990: CG(increment_lineno) = 1;
4991: }
4992: if (CG(has_bracketed_namespaces) && !CG(in_namespace)) {
4993: goto again;
4994: }
4995: retval = ';'; /* implicit ; */
4996: break;
4997: case T_OPEN_TAG_WITH_ECHO:
4998: retval = T_ECHO;
4999: break;
5000: case T_END_HEREDOC:
5001: efree(Z_STRVAL(zendlval->u.constant));
5002: break;
5003: }
5004:
5005: INIT_PZVAL(&zendlval->u.constant);
5006: zendlval->op_type = IS_CONST;
5007: return retval;
5008: }
5009: /* }}} */
5010:
5011: ZEND_API void zend_initialize_class_data(zend_class_entry *ce, zend_bool nullify_handlers TSRMLS_DC) /* {{{ */
5012: {
5013: zend_bool persistent_hashes = (ce->type == ZEND_INTERNAL_CLASS) ? 1 : 0;
5014: dtor_func_t zval_ptr_dtor_func = ((persistent_hashes) ? ZVAL_INTERNAL_PTR_DTOR : ZVAL_PTR_DTOR);
5015:
5016: ce->refcount = 1;
5017: ce->constants_updated = 0;
5018: ce->ce_flags = 0;
5019:
5020: ce->doc_comment = NULL;
5021: ce->doc_comment_len = 0;
5022:
5023: zend_hash_init_ex(&ce->default_properties, 0, NULL, zval_ptr_dtor_func, persistent_hashes, 0);
5024: 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);
5025: zend_hash_init_ex(&ce->default_static_members, 0, NULL, zval_ptr_dtor_func, persistent_hashes, 0);
5026: zend_hash_init_ex(&ce->constants_table, 0, NULL, zval_ptr_dtor_func, persistent_hashes, 0);
5027: zend_hash_init_ex(&ce->function_table, 0, NULL, ZEND_FUNCTION_DTOR, persistent_hashes, 0);
5028:
5029: if (ce->type == ZEND_INTERNAL_CLASS) {
5030: #ifdef ZTS
5031: int n = zend_hash_num_elements(CG(class_table));
5032:
5033: if (CG(static_members) && n >= CG(last_static_member)) {
5034: /* Support for run-time declaration: dl() */
5035: CG(last_static_member) = n+1;
5036: CG(static_members) = realloc(CG(static_members), (n+1)*sizeof(HashTable*));
5037: CG(static_members)[n] = NULL;
5038: }
5039: ce->static_members = (HashTable*)(zend_intptr_t)n;
5040: #else
5041: ce->static_members = NULL;
5042: #endif
5043: } else {
5044: ce->static_members = &ce->default_static_members;
5045: }
5046:
5047: if (nullify_handlers) {
5048: ce->constructor = NULL;
5049: ce->destructor = NULL;
5050: ce->clone = NULL;
5051: ce->__get = NULL;
5052: ce->__set = NULL;
5053: ce->__unset = NULL;
5054: ce->__isset = NULL;
5055: ce->__call = NULL;
5056: ce->__callstatic = NULL;
5057: ce->__tostring = NULL;
5058: ce->create_object = NULL;
5059: ce->get_iterator = NULL;
5060: ce->iterator_funcs.funcs = NULL;
5061: ce->interface_gets_implemented = NULL;
5062: ce->get_static_method = NULL;
5063: ce->parent = NULL;
5064: ce->num_interfaces = 0;
5065: ce->interfaces = NULL;
5066: ce->module = NULL;
5067: ce->serialize = NULL;
5068: ce->unserialize = NULL;
5069: ce->serialize_func = NULL;
5070: ce->unserialize_func = NULL;
5071: ce->builtin_functions = NULL;
5072: }
5073: }
5074: /* }}} */
5075:
5076: int zend_get_class_fetch_type(const char *class_name, uint class_name_len) /* {{{ */
5077: {
5078: if ((class_name_len == sizeof("self")-1) &&
5079: !memcmp(class_name, "self", sizeof("self")-1)) {
5080: return ZEND_FETCH_CLASS_SELF;
5081: } else if ((class_name_len == sizeof("parent")-1) &&
5082: !memcmp(class_name, "parent", sizeof("parent")-1)) {
5083: return ZEND_FETCH_CLASS_PARENT;
5084: } else if ((class_name_len == sizeof("static")-1) &&
5085: !memcmp(class_name, "static", sizeof("static")-1)) {
5086: return ZEND_FETCH_CLASS_STATIC;
5087: } else {
5088: return ZEND_FETCH_CLASS_DEFAULT;
5089: }
5090: }
5091: /* }}} */
5092:
5093: ZEND_API char* zend_get_compiled_variable_name(const zend_op_array *op_array, zend_uint var, int* name_len) /* {{{ */
5094: {
5095: if (name_len) {
5096: *name_len = op_array->vars[var].name_len;
5097: }
5098: return op_array->vars[var].name;
5099: }
5100: /* }}} */
5101:
5102: void zend_do_build_namespace_name(znode *result, znode *prefix, znode *name TSRMLS_DC) /* {{{ */
5103: {
5104: if (prefix) {
5105: *result = *prefix;
5106: if (Z_TYPE(result->u.constant) == IS_STRING &&
5107: Z_STRLEN(result->u.constant) == 0) {
5108: /* namespace\ */
5109: if (CG(current_namespace)) {
5110: znode tmp;
5111:
5112: zval_dtor(&result->u.constant);
5113: tmp.op_type = IS_CONST;
5114: tmp.u.constant = *CG(current_namespace);
5115: zval_copy_ctor(&tmp.u.constant);
5116: zend_do_build_namespace_name(result, NULL, &tmp TSRMLS_CC);
5117: }
5118: }
5119: } else {
5120: result->op_type = IS_CONST;
5121: Z_TYPE(result->u.constant) = IS_STRING;
5122: Z_STRVAL(result->u.constant) = NULL;
5123: Z_STRLEN(result->u.constant) = 0;
5124: }
5125: /* prefix = result */
5126: zend_do_build_full_name(NULL, result, name, 0 TSRMLS_CC);
5127: }
5128: /* }}} */
5129:
5130: void zend_do_begin_namespace(const znode *name, zend_bool with_bracket TSRMLS_DC) /* {{{ */
5131: {
5132: char *lcname;
5133:
5134: /* handle mixed syntax declaration or nested namespaces */
5135: if (!CG(has_bracketed_namespaces)) {
5136: if (CG(current_namespace)) {
5137: /* previous namespace declarations were unbracketed */
5138: if (with_bracket) {
5139: zend_error(E_COMPILE_ERROR, "Cannot mix bracketed namespace declarations with unbracketed namespace declarations");
5140: }
5141: }
5142: } else {
5143: /* previous namespace declarations were bracketed */
5144: if (!with_bracket) {
5145: zend_error(E_COMPILE_ERROR, "Cannot mix bracketed namespace declarations with unbracketed namespace declarations");
5146: } else if (CG(current_namespace) || CG(in_namespace)) {
5147: zend_error(E_COMPILE_ERROR, "Namespace declarations cannot be nested");
5148: }
5149: }
5150:
5151: if (((!with_bracket && !CG(current_namespace)) || (with_bracket && !CG(has_bracketed_namespaces))) && CG(active_op_array)->last > 0) {
5152: /* ignore ZEND_EXT_STMT and ZEND_TICKS */
5153: int num = CG(active_op_array)->last;
5154: while (num > 0 &&
5155: (CG(active_op_array)->opcodes[num-1].opcode == ZEND_EXT_STMT ||
5156: CG(active_op_array)->opcodes[num-1].opcode == ZEND_TICKS)) {
5157: --num;
5158: }
5159: if (num > 0) {
5160: zend_error(E_COMPILE_ERROR, "Namespace declaration statement has to be the very first statement in the script");
5161: }
5162: }
5163:
5164: CG(in_namespace) = 1;
5165: if (with_bracket) {
5166: CG(has_bracketed_namespaces) = 1;
5167: }
5168:
5169: if (name) {
5170: lcname = zend_str_tolower_dup(Z_STRVAL(name->u.constant), Z_STRLEN(name->u.constant));
5171: if (((Z_STRLEN(name->u.constant) == sizeof("self")-1) &&
5172: !memcmp(lcname, "self", sizeof("self")-1)) ||
5173: ((Z_STRLEN(name->u.constant) == sizeof("parent")-1) &&
5174: !memcmp(lcname, "parent", sizeof("parent")-1))) {
5175: zend_error(E_COMPILE_ERROR, "Cannot use '%s' as namespace name", Z_STRVAL(name->u.constant));
5176: }
5177: efree(lcname);
5178:
5179: if (CG(current_namespace)) {
5180: zval_dtor(CG(current_namespace));
5181: } else {
5182: ALLOC_ZVAL(CG(current_namespace));
5183: }
5184: *CG(current_namespace) = name->u.constant;
5185: } else {
5186: if (CG(current_namespace)) {
5187: zval_dtor(CG(current_namespace));
5188: FREE_ZVAL(CG(current_namespace));
5189: CG(current_namespace) = NULL;
5190: }
5191: }
5192:
5193: if (CG(current_import)) {
5194: zend_hash_destroy(CG(current_import));
5195: efree(CG(current_import));
5196: CG(current_import) = NULL;
5197: }
5198:
5199: if (CG(doc_comment)) {
5200: efree(CG(doc_comment));
5201: CG(doc_comment) = NULL;
5202: CG(doc_comment_len) = 0;
5203: }
5204: }
5205: /* }}} */
5206:
5207: void zend_do_use(znode *ns_name, znode *new_name, int is_global TSRMLS_DC) /* {{{ */
5208: {
5209: char *lcname;
5210: zval *name, *ns, tmp;
5211: zend_bool warn = 0;
5212: zend_class_entry **pce;
5213:
5214: if (!CG(current_import)) {
5215: CG(current_import) = emalloc(sizeof(HashTable));
5216: zend_hash_init(CG(current_import), 0, NULL, ZVAL_PTR_DTOR, 0);
5217: }
5218:
5219: ALLOC_ZVAL(ns);
5220: *ns = ns_name->u.constant;
5221: if (new_name) {
5222: name = &new_name->u.constant;
5223: } else {
5224: char *p;
5225:
5226: /* The form "use A\B" is eqivalent to "use A\B as B".
5227: So we extract the last part of compound name to use as a new_name */
5228: name = &tmp;
5229: p = zend_memrchr(Z_STRVAL_P(ns), '\\', Z_STRLEN_P(ns));
5230: if (p) {
5231: ZVAL_STRING(name, p+1, 1);
5232: } else {
5233: *name = *ns;
5234: zval_copy_ctor(name);
5235: warn = !is_global && !CG(current_namespace);
5236: }
5237: }
5238:
5239: lcname = zend_str_tolower_dup(Z_STRVAL_P(name), Z_STRLEN_P(name));
5240:
5241: if (((Z_STRLEN_P(name) == sizeof("self")-1) &&
5242: !memcmp(lcname, "self", sizeof("self")-1)) ||
5243: ((Z_STRLEN_P(name) == sizeof("parent")-1) &&
5244: !memcmp(lcname, "parent", sizeof("parent")-1))) {
5245: 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));
5246: }
5247:
5248: if (CG(current_namespace)) {
5249: /* Prefix import name with current namespace name to avoid conflicts with classes */
5250: char *c_ns_name = emalloc(Z_STRLEN_P(CG(current_namespace)) + 1 + Z_STRLEN_P(name) + 1);
5251:
5252: zend_str_tolower_copy(c_ns_name, Z_STRVAL_P(CG(current_namespace)), Z_STRLEN_P(CG(current_namespace)));
5253: c_ns_name[Z_STRLEN_P(CG(current_namespace))] = '\\';
5254: memcpy(c_ns_name+Z_STRLEN_P(CG(current_namespace))+1, lcname, Z_STRLEN_P(name)+1);
5255: if (zend_hash_exists(CG(class_table), c_ns_name, Z_STRLEN_P(CG(current_namespace)) + 1 + Z_STRLEN_P(name)+1)) {
5256: char *tmp2 = zend_str_tolower_dup(Z_STRVAL_P(ns), Z_STRLEN_P(ns));
5257:
5258: if (Z_STRLEN_P(ns) != Z_STRLEN_P(CG(current_namespace)) + 1 + Z_STRLEN_P(name) ||
5259: memcmp(tmp2, c_ns_name, Z_STRLEN_P(ns))) {
5260: 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));
5261: }
5262: efree(tmp2);
5263: }
5264: efree(c_ns_name);
5265: } else if (zend_hash_find(CG(class_table), lcname, Z_STRLEN_P(name)+1, (void**)&pce) == SUCCESS &&
5266: (*pce)->type == ZEND_USER_CLASS &&
5267: (*pce)->filename == CG(compiled_filename)) {
5268: char *c_tmp = zend_str_tolower_dup(Z_STRVAL_P(ns), Z_STRLEN_P(ns));
5269:
5270: if (Z_STRLEN_P(ns) != Z_STRLEN_P(name) ||
5271: memcmp(c_tmp, lcname, Z_STRLEN_P(ns))) {
5272: 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));
5273: }
5274: efree(c_tmp);
5275: }
5276:
5277: if (zend_hash_add(CG(current_import), lcname, Z_STRLEN_P(name)+1, &ns, sizeof(zval*), NULL) != SUCCESS) {
5278: 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));
5279: }
5280: if (warn) {
5281: zend_error(E_WARNING, "The use statement with non-compound name '%s' has no effect", Z_STRVAL_P(name));
5282: }
5283: efree(lcname);
5284: zval_dtor(name);
5285: }
5286: /* }}} */
5287:
5288: void zend_do_declare_constant(znode *name, znode *value TSRMLS_DC) /* {{{ */
5289: {
5290: zend_op *opline;
5291:
5292: if(Z_TYPE(value->u.constant) == IS_CONSTANT_ARRAY) {
5293: zend_error(E_COMPILE_ERROR, "Arrays are not allowed as constants");
5294: }
5295:
5296: if (zend_get_ct_const(&name->u.constant, 0 TSRMLS_CC)) {
5297: zend_error(E_COMPILE_ERROR, "Cannot redeclare constant '%s'", Z_STRVAL(name->u.constant));
5298: }
5299:
5300: if (CG(current_namespace)) {
5301: /* Prefix constant name with name of current namespace, lowercased */
5302: znode tmp;
5303:
5304: tmp.op_type = IS_CONST;
5305: tmp.u.constant = *CG(current_namespace);
5306: Z_STRVAL(tmp.u.constant) = zend_str_tolower_dup(Z_STRVAL(tmp.u.constant), Z_STRLEN(tmp.u.constant));
5307: zend_do_build_namespace_name(&tmp, &tmp, name TSRMLS_CC);
5308: *name = tmp;
5309: }
5310:
5311: opline = get_next_op(CG(active_op_array) TSRMLS_CC);
5312: opline->opcode = ZEND_DECLARE_CONST;
5313: SET_UNUSED(opline->result);
5314: opline->op1 = *name;
5315: opline->op2 = *value;
5316: }
5317: /* }}} */
5318:
5319: void zend_verify_namespace(TSRMLS_D) /* {{{ */
5320: {
5321: if (CG(has_bracketed_namespaces) && !CG(in_namespace)) {
5322: zend_error(E_COMPILE_ERROR, "No code may exist outside of namespace {}");
5323: }
5324: }
5325: /* }}} */
5326:
5327: void zend_do_end_namespace(TSRMLS_D) /* {{{ */
5328: {
5329: CG(in_namespace) = 0;
5330: if (CG(current_namespace)) {
5331: zval_dtor(CG(current_namespace));
5332: FREE_ZVAL(CG(current_namespace));
5333: CG(current_namespace) = NULL;
5334: }
5335: if (CG(current_import)) {
5336: zend_hash_destroy(CG(current_import));
5337: efree(CG(current_import));
5338: CG(current_import) = NULL;
5339: }
5340:
5341: if (CG(doc_comment)) {
5342: efree(CG(doc_comment));
5343: CG(doc_comment) = NULL;
5344: CG(doc_comment_len) = 0;
5345: }
5346: }
5347: /* }}} */
5348:
5349: void zend_do_end_compilation(TSRMLS_D) /* {{{ */
5350: {
5351: CG(has_bracketed_namespaces) = 0;
5352: zend_do_end_namespace(TSRMLS_C);
5353: }
5354: /* }}} */
5355:
5356: /* {{{ zend_dirname
5357: Returns directory name component of path */
5358: ZEND_API size_t zend_dirname(char *path, size_t len)
5359: {
5360: register char *end = path + len - 1;
5361: unsigned int len_adjust = 0;
5362:
5363: #ifdef PHP_WIN32
5364: /* Note that on Win32 CWD is per drive (heritage from CP/M).
5365: * This means dirname("c:foo") maps to "c:." or "c:" - which means CWD on C: drive.
5366: */
5367: if ((2 <= len) && isalpha((int)((unsigned char *)path)[0]) && (':' == path[1])) {
5368: /* Skip over the drive spec (if any) so as not to change */
5369: path += 2;
5370: len_adjust += 2;
5371: if (2 == len) {
5372: /* Return "c:" on Win32 for dirname("c:").
5373: * It would be more consistent to return "c:."
5374: * but that would require making the string *longer*.
5375: */
5376: return len;
5377: }
5378: }
5379: #elif defined(NETWARE)
5380: /*
5381: * Find the first occurence of : from the left
5382: * move the path pointer to the position just after :
5383: * increment the len_adjust to the length of path till colon character(inclusive)
5384: * If there is no character beyond : simple return len
5385: */
5386: char *colonpos = NULL;
5387: colonpos = strchr(path, ':');
5388: if (colonpos != NULL) {
5389: len_adjust = ((colonpos - path) + 1);
5390: path += len_adjust;
5391: if (len_adjust == len) {
5392: return len;
5393: }
5394: }
5395: #endif
5396:
5397: if (len == 0) {
5398: /* Illegal use of this function */
5399: return 0;
5400: }
5401:
5402: /* Strip trailing slashes */
5403: while (end >= path && IS_SLASH_P(end)) {
5404: end--;
5405: }
5406: if (end < path) {
5407: /* The path only contained slashes */
5408: path[0] = DEFAULT_SLASH;
5409: path[1] = '\0';
5410: return 1 + len_adjust;
5411: }
5412:
5413: /* Strip filename */
5414: while (end >= path && !IS_SLASH_P(end)) {
5415: end--;
5416: }
5417: if (end < path) {
5418: /* No slash found, therefore return '.' */
5419: #ifdef NETWARE
5420: if (len_adjust == 0) {
5421: path[0] = '.';
5422: path[1] = '\0';
5423: return 1; /* only one character */
5424: } else {
5425: path[0] = '\0';
5426: return len_adjust;
5427: }
5428: #else
5429: path[0] = '.';
5430: path[1] = '\0';
5431: return 1 + len_adjust;
5432: #endif
5433: }
5434:
5435: /* Strip slashes which came before the file name */
5436: while (end >= path && IS_SLASH_P(end)) {
5437: end--;
5438: }
5439: if (end < path) {
5440: path[0] = DEFAULT_SLASH;
5441: path[1] = '\0';
5442: return 1 + len_adjust;
5443: }
5444: *(end+1) = '\0';
5445:
5446: return (size_t)(end + 1 - path) + len_adjust;
5447: }
5448: /* }}} */
5449:
5450: /*
5451: * Local variables:
5452: * tab-width: 4
5453: * c-basic-offset: 4
5454: * indent-tabs-mode: t
5455: * End:
5456: */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>