source: trunk/optimizer.c @ 485

Last change on this file since 485 was 485, checked in by moo, 6 years ago

5.3 support

  • Property svn:eol-style set to native
File size: 12.8 KB
Line 
1#if 0
2#   define DEBUG
3#endif
4
5#include "utils.h"
6#include "optimizer.h"
7/* the "vector" stack */
8#include "stack.h"
9#include "xcache_globals.h"
10
11#ifdef DEBUG
12#   include "processor.h"
13#   include "const_string.h"
14#   include "ext/standard/php_var.h"
15#endif
16
17#ifdef IS_CV
18#   define XCACHE_IS_CV IS_CV
19#else
20#   define XCACHE_IS_CV 16
21#endif
22
23typedef int bbid_t;
24enum {
25    BBID_INVALID = -1,
26};
27/* {{{ basic block */
28typedef struct _bb_t {
29    bbid_t     id;
30    zend_bool  used;
31
32    zend_bool  alloc;
33    zend_op   *opcodes;
34    int        count;
35    int        size;
36
37    bbid_t     fall;
38    bbid_t     catch;
39
40    int        opnum; /* opnum after joining basic block */
41} bb_t;
42/* }}} */
43
44/* basic blocks */
45typedef xc_stack_t bbs_t;
46
47/* op array helper functions */
48static int op_array_convert_switch(zend_op_array *op_array) /* {{{ */
49{
50    int i;
51
52    if (op_array->brk_cont_array == NULL) {
53        return SUCCESS;
54    }
55
56    for (i = 0; i < op_array->last; i ++) {
57        zend_op *opline = &op_array->opcodes[i];
58        zend_brk_cont_element *jmp_to;
59        int array_offset, nest_levels, original_nest_levels;
60
61        if (opline->opcode != ZEND_BRK && opline->opcode != ZEND_CONT) {
62            continue;
63        }
64        if (opline->op2.op_type != IS_CONST
65         || opline->op2.u.constant.type != IS_LONG) {
66            return FAILURE;
67        }
68
69        nest_levels = opline->op2.u.constant.value.lval;
70        original_nest_levels = nest_levels;
71
72        array_offset = opline->op1.u.opline_num;
73        do {
74            if (array_offset == -1) {
75                /* this is a runtime error in ZE
76                zend_error(E_ERROR, "Cannot break/continue %d level%s", original_nest_levels, (original_nest_levels == 1) ? "" : "s");
77                */
78                return FAILURE;
79            }
80            jmp_to = &op_array->brk_cont_array[array_offset];
81            if (nest_levels > 1) {
82                zend_op *brk_opline = &op_array->opcodes[jmp_to->brk];
83
84                switch (brk_opline->opcode) {
85                case ZEND_SWITCH_FREE:
86                    break;
87                case ZEND_FREE:
88                    break;
89                }
90            }
91            array_offset = jmp_to->parent;
92        } while (--nest_levels > 0);
93
94        /* rewrite to jmp */
95        if (opline->opcode == ZEND_BRK) {
96            opline->op1.u.opline_num = jmp_to->brk;
97        }
98        else {
99            opline->op1.u.opline_num = jmp_to->cont;
100        }
101        opline->op2.op_type = IS_UNUSED;
102        opline->opcode = ZEND_JMP;
103    }
104
105    if (op_array->brk_cont_array != NULL) {
106        efree(op_array->brk_cont_array);
107        op_array->brk_cont_array = NULL;
108    }
109    op_array->last_brk_cont = 0;
110    return SUCCESS;
111}
112/* }}} */
113/* {{{ op_flowinfo helper func */
114enum {
115    XC_OPNUM_INVALID = -1,
116};
117typedef struct {
118    int       jmpout_op1;
119    int       jmpout_op2;
120    int       jmpout_ext;
121    zend_bool fall;
122} op_flowinfo_t;
123static void op_flowinfo_init(op_flowinfo_t *fi)
124{
125    fi->jmpout_op1 = fi->jmpout_op2 = fi->jmpout_ext = XC_OPNUM_INVALID;
126    fi->fall = 0;
127}
128/* }}} */
129static int op_get_flowinfo(op_flowinfo_t *fi, zend_op *opline) /* {{{ */
130{
131    op_flowinfo_init(fi);
132
133    /* break=will fall */
134    switch (opline->opcode) {
135    case ZEND_HANDLE_EXCEPTION:
136    case ZEND_RETURN:
137    case ZEND_EXIT:
138        return SUCCESS; /* no fall */
139
140    case ZEND_JMP:
141        fi->jmpout_op1 = opline->op1.u.opline_num;
142        return SUCCESS; /* no fall */
143
144    case ZEND_JMPZNZ:
145        fi->jmpout_op2 = opline->op2.u.opline_num;
146        fi->jmpout_ext = (int) opline->extended_value;
147        return SUCCESS; /* no fall */
148
149    case ZEND_JMPZ:
150    case ZEND_JMPNZ:
151    case ZEND_JMPZ_EX:
152    case ZEND_JMPNZ_EX:
153#ifdef ZEND_JMP_SET
154    case ZEND_JMP_SET:
155#endif
156#ifdef ZEND_JMP_NO_CTOR
157    case ZEND_JMP_NO_CTOR:
158#endif
159#ifdef ZEND_NEW
160    case ZEND_NEW:
161#endif
162#ifdef ZEND_FE_RESET
163    case ZEND_FE_RESET:
164#endif     
165    case ZEND_FE_FETCH:
166        fi->jmpout_op2 = opline->op2.u.opline_num;
167        break;
168
169#ifdef ZEND_CATCH
170    case ZEND_CATCH:
171        fi->jmpout_ext = (int) opline->extended_value;
172        break;
173#endif
174
175    default:
176        return FAILURE;
177    }
178
179    fi->fall = 1;
180    return SUCCESS;
181}
182/* }}} */
183#ifdef DEBUG
184static void op_snprint(char *buf, int size, znode *op) /* {{{ */
185{
186    switch (op->op_type) {
187    case IS_CONST:
188        {
189            zval result;
190            zval *zv = &op->u.constant;
191            TSRMLS_FETCH();
192
193            php_start_ob_buffer(NULL, 0, 1 TSRMLS_CC);
194            php_var_export(&zv, 1 TSRMLS_CC);
195
196            php_ob_get_buffer(&result TSRMLS_CC); 
197            php_end_ob_buffer(0, 0 TSRMLS_CC);
198            snprintf(buf, size, Z_STRVAL(result));
199            zval_dtor(&result);
200        }
201        break;
202
203    case IS_TMP_VAR:
204        snprintf(buf, size, "t@%d", op->u.var);
205        break;
206
207    case XCACHE_IS_CV:
208    case IS_VAR:
209        snprintf(buf, size, "v@%d", op->u.var);
210        break;
211
212    case IS_UNUSED:
213        if (op->u.opline_num) {
214            snprintf(buf, size, "u#%d", op->u.opline_num);
215        }
216        else {
217            snprintf(buf, size, "-");
218        }
219        break;
220
221    default:
222        snprintf(buf, size, "%d %d", op->op_type, op->u.var);
223    }
224}
225/* }}} */
226static void op_print(int line, zend_op *first, zend_op *end) /* {{{ */
227{
228    zend_op *opline;
229    for (opline = first; opline < end; opline ++) {
230        char buf_r[20];
231        char buf_1[20];
232        char buf_2[20];
233        op_snprint(buf_r, sizeof(buf_r), &opline->result);
234        op_snprint(buf_1, sizeof(buf_1), &opline->op1);
235        op_snprint(buf_2, sizeof(buf_2), &opline->op2);
236        fprintf(stderr,
237                "%3d %3d"
238                " %-25s%-5s%-20s%-20s%5lu\r\n"
239                , opline->lineno, opline - first + line
240                , xc_get_opcode(opline->opcode), buf_r, buf_1, buf_2, opline->extended_value);
241    }
242}
243/* }}} */
244#endif
245
246/*
247 * basic block functions
248 */
249
250static bb_t *bb_new_ex(zend_op *opcodes, int count) /* {{{ */
251{
252    bb_t *bb = (bb_t *) ecalloc(sizeof(bb_t), 1);
253
254    bb->fall       = BBID_INVALID;
255    bb->catch      = BBID_INVALID;
256
257    if (opcodes) {
258        bb->alloc   = 0;
259        bb->size    = bb->count = count;
260        bb->opcodes = opcodes;
261    }
262    else {
263        bb->alloc   = 1;
264        bb->size    = bb->count = 8;
265        bb->opcodes = ecalloc(sizeof(zend_op), bb->size);
266    }
267
268    return bb;
269}
270/* }}} */
271#define bb_new() bb_new_ex(NULL, 0)
272static void bb_destroy(bb_t *bb) /* {{{ */
273{
274    if (bb->alloc) {
275        efree(bb->opcodes);
276    }
277    efree(bb);
278}
279/* }}} */
280#ifdef DEBUG
281static void bb_print(bb_t *bb, zend_op *opcodes) /* {{{ */
282{
283    int line = bb->opcodes - opcodes;
284    op_flowinfo_t fi;
285    zend_op *last = bb->opcodes + bb->count - 1;
286
287    op_get_flowinfo(&fi, last);
288
289    fprintf(stderr,
290            "\r\n==== #%-3d cnt:%-3d lno:%-3d"
291            " %c%c"
292            " op1:%-3d op2:%-3d ext:%-3d fal:%-3d cat:%-3d %s ====\r\n"
293            , bb->id, bb->count, bb->alloc ? -1 : line
294            , bb->used ? 'U' : ' ', bb->alloc ? 'A' : ' '
295            , fi.jmpout_op1, fi.jmpout_op2, fi.jmpout_ext, bb->fall, bb->catch, xc_get_opcode(last->opcode)
296            );
297    op_print(line, bb->opcodes, last + 1);
298}
299/* }}} */
300#endif
301
302static bb_t *bbs_get(bbs_t *bbs, int n) /* {{{ */
303{
304    return (bb_t *) xc_stack_get(bbs, n);
305}
306/* }}} */
307static int bbs_count(bbs_t *bbs) /* {{{ */
308{
309    return xc_stack_count(bbs);
310}
311/* }}} */
312static void bbs_destroy(bbs_t *bbs) /* {{{ */
313{
314    bb_t *bb;
315    while (bbs_count(bbs)) {
316        bb = (bb_t *) xc_stack_pop(bbs);
317        bb_destroy(bb);
318    }
319    xc_stack_destroy(bbs);
320}
321/* }}} */
322#ifdef DEBUG
323static void bbs_print(bbs_t *bbs, zend_op *opcodes) /* {{{ */
324{
325    int i;
326    for (i = 0; i < xc_stack_count(bbs); i ++) {
327        bb_print(bbs_get(bbs, i), opcodes);
328    }
329}
330/* }}} */
331#endif
332#define bbs_init(bbs) xc_stack_init_ex(bbs, 16)
333static bb_t *bbs_add_bb(bbs_t *bbs, bb_t *bb) /* {{{ */
334{
335    bb->id = (bbid_t) xc_stack_count(bbs);
336    xc_stack_push(bbs, (void *) bb);
337    return bb;
338}
339/* }}} */
340static bb_t *bbs_new_bb_ex(bbs_t *bbs, zend_op *opcodes, int count) /* {{{ */
341{
342    return bbs_add_bb(bbs, bb_new_ex(opcodes, count));
343}
344/* }}} */
345static int bbs_build_from(bbs_t *bbs, zend_op_array *op_array, int count) /* {{{ */
346{
347    int i, start;
348    bb_t *pbb;
349    bbid_t id;
350    op_flowinfo_t fi;
351    zend_op *opline;
352    ALLOCA_FLAG(use_heap_bbids)
353    ALLOCA_FLAG(use_heap_catchbbids)
354    ALLOCA_FLAG(use_heap_markbbhead)
355    bbid_t *bbids          = my_do_alloca(count * sizeof(bbid_t),    use_heap_bbids);
356    bbid_t *catchbbids     = my_do_alloca(count * sizeof(bbid_t),    use_heap_catchbbids);
357    zend_bool *markbbhead  = my_do_alloca(count * sizeof(zend_bool), use_heap_markbbhead);
358
359    /* {{{ mark jmpin/jumpout */
360    memset(markbbhead,  0, count * sizeof(zend_bool));
361
362    markbbhead[0] = 1;
363    for (i = 0; i < count; i ++) {
364        if (op_get_flowinfo(&fi, &op_array->opcodes[i]) == SUCCESS) {
365            if (fi.jmpout_op1 != XC_OPNUM_INVALID) {
366                markbbhead[fi.jmpout_op1] = 1;
367            }
368            if (fi.jmpout_op2 != XC_OPNUM_INVALID) {
369                markbbhead[fi.jmpout_op2] = 1;
370            }
371            if (fi.jmpout_ext != XC_OPNUM_INVALID) {
372                markbbhead[fi.jmpout_ext] = 1;
373            }
374            if (i + 1 < count) {
375                markbbhead[i + 1] = 1;
376            }
377        }
378    }
379    /* mark try start */
380    for (i = 0; i < op_array->last_try_catch; i ++) {
381        markbbhead[op_array->try_catch_array[i].try_op] = 1;
382    }
383    /* }}} */
384    /* {{{ fill op lines with newly allocated id */
385    for (i = 0; i < count; i ++) {
386        bbids[i] = BBID_INVALID;
387    }
388
389    id = -1;
390    for (i = 0; i < count; i ++) {
391        if (markbbhead[i]) {
392            id ++;
393        }
394        bbids[i] = id;
395        TRACE("bbids[%d] = %d", i, id);
396    }
397    /* }}} */
398    /* {{{ fill op lines with catch id */
399    for (i = 0; i < count; i ++) {
400        catchbbids[i] = BBID_INVALID;
401    }
402
403    for (i = 0; i < op_array->last_try_catch; i ++) {
404        int j;
405        zend_try_catch_element *e = &op_array->try_catch_array[i];
406        for (j = e->try_op; j < e->catch_op; j ++) {
407            catchbbids[j] = bbids[e->catch_op];
408        }
409    }
410#ifdef DEBUG
411    for (i = 0; i < count; i ++) {
412        TRACE("catchbbids[%d] = %d", i, catchbbids[i]);
413    }
414#endif
415    /* }}} */
416    /* {{{ create basic blocks */
417    start = 0;
418    id = 0;
419    /* loop over to deal with the last block */
420    for (i = 1; i <= count; i ++) {
421        if (i < count && id == bbids[i]) {
422            continue;
423        }
424
425        opline = op_array->opcodes + start;
426        pbb = bbs_new_bb_ex(bbs, opline, i - start);
427        pbb->catch = catchbbids[start];
428
429        /* last */
430        opline = pbb->opcodes + pbb->count - 1;
431        if (op_get_flowinfo(&fi, opline) == SUCCESS) {
432            if (fi.jmpout_op1 != XC_OPNUM_INVALID) {
433                opline->op1.u.opline_num = bbids[fi.jmpout_op1];
434                assert(opline->op1.u.opline_num != BBID_INVALID);
435            }
436            if (fi.jmpout_op2 != XC_OPNUM_INVALID) {
437                opline->op2.u.opline_num = bbids[fi.jmpout_op2];
438                assert(opline->op2.u.opline_num != BBID_INVALID);
439            }
440            if (fi.jmpout_ext != XC_OPNUM_INVALID) {
441                opline->extended_value = bbids[fi.jmpout_ext];
442                assert(opline->extended_value != BBID_INVALID);
443            }
444            if (fi.fall && i + 1 < count) {
445                pbb->fall = bbids[i + 1];
446                TRACE("fall %d", pbb->fall);
447                assert(pbb->fall != BBID_INVALID);
448            }
449        }
450        if (i >= count) {
451            break;
452        }
453        start = i;
454        id = bbids[i];
455    }
456    /* }}} */
457
458    my_free_alloca(markbbhead, use_heap_markbbhead);
459    my_free_alloca(catchbbids, use_heap_catchbbids);
460    my_free_alloca(bbids,      use_heap_bbids);
461    return SUCCESS;
462}
463/* }}} */
464static void bbs_restore_opnum(bbs_t *bbs, zend_op_array *op_array) /* {{{ */
465{
466    int i;
467    bbid_t lasttrybbid;
468    bbid_t lastcatchbbid;
469
470    for (i = 0; i < bbs_count(bbs); i ++) {
471        op_flowinfo_t fi;
472        bb_t *bb = bbs_get(bbs, i);
473        zend_op *last = bb->opcodes + bb->count - 1;
474
475        if (op_get_flowinfo(&fi, last) == SUCCESS) {
476            if (fi.jmpout_op1 != XC_OPNUM_INVALID) {
477                last->op1.u.opline_num = bbs_get(bbs, fi.jmpout_op1)->opnum;
478                assert(last->op1.u.opline_num != BBID_INVALID);
479            }
480            if (fi.jmpout_op2 != XC_OPNUM_INVALID) {
481                last->op2.u.opline_num = bbs_get(bbs, fi.jmpout_op2)->opnum;
482                assert(last->op2.u.opline_num != BBID_INVALID);
483            }
484            if (fi.jmpout_ext != XC_OPNUM_INVALID) {
485                last->extended_value = bbs_get(bbs, fi.jmpout_ext)->opnum;
486                assert(last->extended_value != BBID_INVALID);
487            }
488        }
489    }
490
491    lasttrybbid   = BBID_INVALID;
492    lastcatchbbid = BBID_INVALID;
493    op_array->last_try_catch = 0;
494    for (i = 0; i < bbs_count(bbs); i ++) {
495        bb_t *bb = bbs_get(bbs, i);
496
497        if (lastcatchbbid != bb->catch) {
498            if (lasttrybbid != BBID_INVALID && lastcatchbbid != BBID_INVALID) {
499                int try_catch_offset = op_array->last_try_catch ++;
500
501                op_array->try_catch_array = erealloc(op_array->try_catch_array, sizeof(zend_try_catch_element) * op_array->last_try_catch);
502                op_array->try_catch_array[try_catch_offset].try_op = bbs_get(bbs, lasttrybbid)->opnum;
503                op_array->try_catch_array[try_catch_offset].catch_op = bbs_get(bbs, lastcatchbbid)->opnum;
504            }
505            lasttrybbid   = i;
506            lastcatchbbid = bb->catch;
507        }
508    }
509    /* it is impossible to have last bb catched */
510}
511/* }}} */
512
513/*
514 * optimize
515 */
516static int xc_optimize_op_array(zend_op_array *op_array TSRMLS_DC) /* {{{ */
517{
518    bbs_t bbs;
519
520    if (op_array->type != ZEND_USER_FUNCTION) {
521        return 0;
522    }
523
524#ifdef DEBUG
525#   if 0
526    TRACE("optimize file: %s", op_array->filename);
527    xc_dprint_zend_op_array(op_array, 0 TSRMLS_CC);
528#   endif
529    op_print(0, op_array->opcodes, op_array->opcodes + op_array->last);
530#endif
531
532    if (op_array_convert_switch(op_array) == SUCCESS) {
533        bbs_init(&bbs);
534        if (bbs_build_from(&bbs, op_array, op_array->last) == SUCCESS) {
535            int i;
536#ifdef DEBUG
537            bbs_print(&bbs, op_array->opcodes);
538#endif
539            /* TODO: calc opnum after basic block move */
540            for (i = 0; i < bbs_count(&bbs); i ++) {
541                bb_t *bb = bbs_get(&bbs, i);
542                bb->opnum = bb->opcodes - op_array->opcodes;
543            }
544            bbs_restore_opnum(&bbs, op_array);
545        }
546        bbs_destroy(&bbs);
547    }
548
549#ifdef DEBUG
550#   if 0
551    TRACE("%s", "after compiles");
552    xc_dprint_zend_op_array(op_array, 0 TSRMLS_CC);
553#   endif
554    op_print(0, op_array->opcodes, op_array->opcodes + op_array->last);
555#endif
556    return 0;
557}
558/* }}} */
559void xc_optimizer_op_array_handler(zend_op_array *op_array) /* {{{ */
560{
561    TSRMLS_FETCH();
562    if (XG(optimizer)) {
563        xc_optimize_op_array(op_array TSRMLS_CC);
564    }
565}
566/* }}} */
Note: See TracBrowser for help on using the repository browser.