Exemple #1
0
function gen_executor_code($f, $spec, $kind, $prolog)
{
    global $list, $opcodes, $helpers, $op_types;
    if ($spec) {
        // Produce specialized executor
        $op1t = $op_types;
        // for each op1.op_type
        foreach ($op1t as $op1) {
            $op2t = $op_types;
            // for each op2.op_type
            foreach ($op2t as $op2) {
                // for each handlers in helpers in original order
                foreach ($list as $lineno => $dsc) {
                    if (isset($dsc["handler"])) {
                        $num = $dsc["handler"];
                        // Check if handler accepts such types of operands (op1 and op2)
                        if (isset($opcodes[$num]["op1"][$op1]) && isset($opcodes[$num]["op2"][$op2])) {
                            // Generate handler code
                            gen_handler($f, 1, $kind, $opcodes[$num]["op"], $op1, $op2, isset($opcodes[$num]["use"]), $opcodes[$num]["code"], $lineno);
                        }
                    } else {
                        if (isset($dsc["helper"])) {
                            $num = $dsc["helper"];
                            // Check if handler accepts such types of operands (op1 and op2)
                            if (isset($helpers[$num]["op1"][$op1]) && isset($helpers[$num]["op2"][$op2])) {
                                // Generate helper code
                                gen_helper($f, 1, $kind, $num, $op1, $op2, $helpers[$num]["param"], $helpers[$num]["code"], $lineno);
                            }
                        } else {
                            var_dump($dsc);
                            die("??? {$kind}:{$num}\n");
                        }
                    }
                }
            }
        }
    } else {
        // Produce unspecialized executor
        // for each handlers in helpers in original order
        foreach ($list as $lineno => $dsc) {
            if (isset($dsc["handler"])) {
                $num = $dsc["handler"];
                // Generate handler code
                gen_handler($f, 0, $kind, $opcodes[$num]["op"], "ANY", "ANY", isset($opcodes[$num]["use"]), $opcodes[$num]["code"], $lineno);
            } else {
                if (isset($dsc["helper"])) {
                    $num = $dsc["helper"];
                    // Generate helper code
                    gen_helper($f, 0, $kind, $num, "ANY", "ANY", $helpers[$num]["param"], $helpers[$num]["code"], $lineno);
                } else {
                    var_dump($dsc);
                    die("??? {$kind}:{$num}\n");
                }
            }
        }
    }
    if (ZEND_VM_LINES) {
        // Reset #line directives
        out_line($f);
    }
    // Generate handler for undefined opcodes
    switch ($kind) {
        case ZEND_VM_KIND_CALL:
            gen_null_handler($f);
            break;
        case ZEND_VM_KIND_SWITCH:
            out($f, "default:\n");
            out($f, "\tzend_error_noreturn(E_ERROR, \"Invalid opcode %d/%d/%d.\", OPLINE->opcode, OPLINE->op1_type, OPLINE->op2_type);\n");
            out($f, "\tZEND_VM_NEXT_OPCODE(); /* Never reached */\n");
            break;
        case ZEND_VM_KIND_GOTO:
            out($f, "ZEND_NULL_HANDLER:\n");
            out($f, "\tzend_error_noreturn(E_ERROR, \"Invalid opcode %d/%d/%d.\", OPLINE->opcode, OPLINE->op1_type, OPLINE->op2_type);\n");
            out($f, "\tZEND_VM_NEXT_OPCODE(); /* Never reached */\n");
            break;
    }
}
Exemple #2
0
function gen_executor_code($f, $spec, $kind, $prolog)
{
    global $list, $opcodes, $helpers, $op_types, $typecode;
    if ($spec) {
        $op1t = $op_types;
        $op2t = $op_types;
        if (ZEND_OP_TYPE_DEFINES) {
            // build the spec defines...
            foreach ($list as $lineno => $dsc) {
                if (isset($dsc["handler"])) {
                    $num = $dsc["handler"];
                    $val = 0;
                    foreach ($opcodes[$num]["op1"] as $t => $bleh) {
                        foreach ($typecode as $tt => $v) {
                            if ($t === "ANY" || $t === $tt) {
                                $val += 1 << $v;
                            }
                        }
                    }
                    out($f, "#define {$opcodes[$num]['op']}_TYPES_OP1 {$val}\n");
                    $val = 0;
                    foreach ($opcodes[$num]["op2"] as $t => $bleh) {
                        foreach ($typecode as $tt => $v) {
                            if ($t === "ANY" || $t === $tt) {
                                $val += 1 << $v;
                            }
                        }
                    }
                    out($f, "#define {$opcodes[$num]['op']}_TYPES_OP2 {$val}\n");
                }
            }
        }
        // Produce specialized executor
        // for each op1.op_type
        foreach ($op1t as $op1) {
            // for each op2.op_type
            foreach ($op2t as $op2) {
                // for each handlers in helpers in original order
                foreach ($list as $lineno => $dsc) {
                    if (isset($dsc["handler"])) {
                        $num = $dsc["handler"];
                        // Check if handler accepts such types of operands (op1 and op2)
                        if (isset($opcodes[$num]["op1"][$op1]) && isset($opcodes[$num]["op2"][$op2])) {
                            // Generate handler code
                            gen_handler($f, 1, $kind, $opcodes[$num]["op"], $op1, $op2, $opcodes[$num]["define"], isset($opcodes[$num]["use"]), $opcodes[$num]["code"], $lineno);
                        }
                    } else {
                        if (isset($dsc["helper"])) {
                            $num = $dsc["helper"];
                            // Check if handler accepts such types of operands (op1 and op2)
                            if (isset($helpers[$num]["op1"][$op1]) && isset($helpers[$num]["op2"][$op2])) {
                                // Generate helper code
                                gen_helper($f, 1, $kind, $num, $op1, $op2, $helpers[$num]["param"], $helpers[$num]["code"], $lineno);
                            }
                        } else {
                            var_dump($dsc);
                            die("??? {$kind}:{$num}\n");
                        }
                    }
                }
            }
        }
    } else {
        // Produce unspecialized executor
        // for each handlers in helpers in original order
        foreach ($list as $lineno => $dsc) {
            if (isset($dsc["handler"])) {
                $num = $dsc["handler"];
                // Generate handler code
                gen_handler($f, 0, $kind, $opcodes[$num]["op"], "ANY", "ANY", $opcodes[$num]["define"], isset($opcodes[$num]["use"]), $opcodes[$num]["code"], $lineno);
            } else {
                if (isset($dsc["helper"])) {
                    $num = $dsc["helper"];
                    // Generate helper code
                    gen_helper($f, 0, $kind, $num, "ANY", "ANY", $helpers[$num]["param"], $helpers[$num]["code"], $lineno);
                } else {
                    var_dump($dsc);
                    die("??? {$kind}:{$num}\n");
                }
            }
        }
    }
    if (ZEND_VM_LINES) {
        // Reset #line directives
        out_line($f);
    }
    // Generate handler for undefined opcodes
    switch ($kind) {
        case ZEND_VM_KIND_CALL:
            gen_null_handler($f);
            break;
        case ZEND_VM_KIND_SWITCH:
            out($f, "default:\n");
            out($f, "\tzend_error_noreturn(E_ERROR, \"Invalid opcode %d/%d/%d.\", EX(opline)->opcode, EX(opline)->op1.op_type, EX(opline)->op2.op_type);\n");
            out($f, "\tZEND_VM_RETURN_FROM_EXECUTE_LOOP();\n");
            break;
        case ZEND_VM_KIND_GOTO2:
            if (ZEND_VM_ALIGNMENT) {
                out($f, "asm(\".align " . ZEND_VM_ALIGNMENT . "\");\n");
            }
            out($f, "ZEND_RETURN_HANDLER:\n\treturn;\n");
        case ZEND_VM_KIND_GOTO:
            if (ZEND_VM_ALIGNMENT) {
                out($f, "asm(\".align " . ZEND_VM_ALIGNMENT . "\");\n");
            }
            out($f, "ZEND_NULL_HANDLER:\n");
            out($f, "\tzend_error_noreturn(E_ERROR, \"Invalid opcode %d/%d/%d.\", EX(opline)->opcode, EX(opline)->op1.op_type, EX(opline)->op2.op_type);\n");
            out($f, "\tZEND_VM_RETURN_FROM_EXECUTE_LOOP();\n");
            break;
    }
}