- if (darg->let->val && darg->let->val->is_reference) {
- return &darg->let->ptr;
- } else {
- return darg->let->ptr;
- }
-}
-
-static inline void psi_do_set(zval *return_value, set_value *set)
-{
- ZVAL_DEREF(return_value);
- zval_dtor(return_value);
-
- set->func->handler(return_value, set, set->vars->vars[0]->arg->let->ptr);
-}
-
-static inline void psi_do_return(zval *return_value, return_stmt *ret, impl_val *ret_val)
-{
- ret->set->func->handler(return_value, ret->set, ret_val);
-}
-
-static inline void psi_do_free(free_stmt *fre)
-{
- size_t i, j;
- impl_val dummy;
-
- for (i = 0; i < fre->calls->count; ++i) {
- free_call *f = fre->calls->list[i];
-
- for (j = 0; j < f->vars->count; ++j) {
- decl_var *dvar = f->vars->vars[j];
- decl_arg *darg = dvar->arg;
-
- f->decl->call.args[j] = &darg->let->out;
- }
-
- /* FIXME: check in validate_* that free functions return scalar */
- PSI_ContextCall(&PSI_G(context), &dummy, f->decl);
- }
-}
-
-static inline void psi_do_clean(impl *impl)
-{
- size_t i;
-
- for (i = 0; i < impl->func->args->count; ++i ) {
- impl_arg *iarg = impl->func->args->args[i];
-
- switch (iarg->type->type) {
- case PSI_T_STRING:
- if (iarg->val.zend.str) {
- zend_string_release(iarg->val.zend.str);
- }
- break;
- }
- }
-
- if (impl->decl->args) for (i = 0; i < impl->decl->args->count; ++i) {
- decl_arg *darg = impl->decl->args->args[i];
-
- if (darg->let && darg->let->mem) {
- decl_type *type = real_decl_type(darg->type);
-
- if (type->type == PSI_T_STRUCT) {
- void **ptr = (void **) ((char *) darg->let->mem + type->strct->size);
-
- while (*ptr) {
- efree(*ptr++);
- }
- }
- efree(darg->let->mem);
- darg->let->mem = NULL;
- }
- }
-}
-
-
-#define PSI_CALC_OP(var) res->var = PSI_CALC(v1->var, v2->var)
-#define PSI_CALC_OP2(vres, var1, var2) res->vres = PSI_CALC(v1->var1, v2->var2)
-
-int psi_calc_plus(unsigned char t1, impl_val *v1, unsigned char t2, impl_val *v2, impl_val *res)
-{
-#undef PSI_CALC
-#define PSI_CALC(var1, var2) (var1) + (var2)
- if (t1 == t2) {
- switch (t1) {
- case PSI_T_FLOAT: PSI_CALC_OP(fval); break;
- case PSI_T_DOUBLE: PSI_CALC_OP(dval); break;
- case PSI_T_INT8: PSI_CALC_OP(i8); break;
- case PSI_T_UINT8: PSI_CALC_OP(u8); break;
- case PSI_T_INT16: PSI_CALC_OP(i16); break;
- case PSI_T_UINT16: PSI_CALC_OP(u16); break;
- case PSI_T_INT32: PSI_CALC_OP(i32); break;
- case PSI_T_UINT32: PSI_CALC_OP(u32); break;
- case PSI_T_INT64: PSI_CALC_OP(i64); break;
- case PSI_T_UINT64: PSI_CALC_OP(u64); break;
- EMPTY_SWITCH_DEFAULT_CASE();
- }
- return t1;
- } else if (t1 == PSI_T_DOUBLE) {
- switch (t2) {
- case PSI_T_FLOAT: PSI_CALC_OP2(dval, dval, fval); break;
- case PSI_T_INT8: PSI_CALC_OP2(dval, dval, i8); break;
- case PSI_T_UINT8: PSI_CALC_OP2(dval, dval, u8); break;
- case PSI_T_INT16: PSI_CALC_OP2(dval, dval, i16); break;
- case PSI_T_UINT16: PSI_CALC_OP2(dval, dval, u16); break;
- case PSI_T_INT32: PSI_CALC_OP2(dval, dval, i32); break;
- case PSI_T_UINT32: PSI_CALC_OP2(dval, dval, u32); break;
- case PSI_T_INT64: PSI_CALC_OP2(dval, dval, i64); break;
- case PSI_T_UINT64: PSI_CALC_OP2(dval, dval, u64); break;
- EMPTY_SWITCH_DEFAULT_CASE();
- }
- return t1;
- } else if (t2 == PSI_T_DOUBLE) {
- switch (t1) {
- case PSI_T_FLOAT: PSI_CALC_OP2(dval, fval, dval); break;
- case PSI_T_INT8: PSI_CALC_OP2(dval, i8, dval); break;
- case PSI_T_UINT8: PSI_CALC_OP2(dval, u8, dval); break;
- case PSI_T_INT16: PSI_CALC_OP2(dval, i16, dval); break;
- case PSI_T_UINT16: PSI_CALC_OP2(dval, u16, dval); break;
- case PSI_T_INT32: PSI_CALC_OP2(dval, i32, dval); break;
- case PSI_T_UINT32: PSI_CALC_OP2(dval, u32, dval); break;
- case PSI_T_INT64: PSI_CALC_OP2(dval, i64, dval); break;
- case PSI_T_UINT64: PSI_CALC_OP2(dval, u64, dval); break;
- EMPTY_SWITCH_DEFAULT_CASE();
- }
- return t2;
- } else if (t1 == PSI_T_FLOAT) {
- switch (t2) {
- case PSI_T_DOUBLE: PSI_CALC_OP2(dval, fval, dval); return t2;
- case PSI_T_INT8: PSI_CALC_OP2(fval, fval, i8); break;
- case PSI_T_UINT8: PSI_CALC_OP2(fval, fval, u8); break;
- case PSI_T_INT16: PSI_CALC_OP2(fval, fval, i16); break;
- case PSI_T_UINT16: PSI_CALC_OP2(fval, fval, u16); break;
- case PSI_T_INT32: PSI_CALC_OP2(fval, fval, i32); break;
- case PSI_T_UINT32: PSI_CALC_OP2(fval, fval, u32); break;
- case PSI_T_INT64: PSI_CALC_OP2(fval, fval, i64); break;
- case PSI_T_UINT64: PSI_CALC_OP2(fval, fval, u64); break;
- EMPTY_SWITCH_DEFAULT_CASE();
- }
- return t1;
- } else if (t2 == PSI_T_FLOAT) {
- switch (t1) {
- case PSI_T_DOUBLE: PSI_CALC_OP2(dval, dval, fval); return t1;
- case PSI_T_INT8: PSI_CALC_OP2(fval, i8, fval); break;
- case PSI_T_UINT8: PSI_CALC_OP2(fval, u8, fval); break;
- case PSI_T_INT16: PSI_CALC_OP2(fval, i16, fval); break;
- case PSI_T_UINT16: PSI_CALC_OP2(fval, u16, fval); break;
- case PSI_T_INT32: PSI_CALC_OP2(fval, i32, fval); break;
- case PSI_T_UINT32: PSI_CALC_OP2(fval, u32, fval); break;
- case PSI_T_INT64: PSI_CALC_OP2(fval, i64, fval); break;
- case PSI_T_UINT64: PSI_CALC_OP2(fval, u64, fval); break;
- EMPTY_SWITCH_DEFAULT_CASE();
- }
- return t2;
- } else {
- int64_t sval1 = v1->i64, sval2 = v2->i64;
- uint64_t uval1 = v1->u64, uval2 = v2->u64;
-
- switch (t1) {
- case PSI_T_INT8: sval1 >>= 8;
- case PSI_T_INT16: sval1 >>= 8;
- case PSI_T_INT32: sval1 >>= 8;
- case PSI_T_INT64:
- switch (t2) {
- case PSI_T_INT8: sval2 >>= 8;
- case PSI_T_INT16: sval2 >>= 8;
- case PSI_T_INT32: sval2 >>= 8;
- case PSI_T_INT64:
- res->i64 = PSI_CALC(sval1 , sval2);
- return PSI_T_INT64;
- case PSI_T_UINT8: uval2 >>= 8;
- case PSI_T_UINT16: uval2 >>= 8;
- case PSI_T_UINT32: uval2 >>= 8;
- case PSI_T_UINT64:
- res->i64 = PSI_CALC(sval1, uval2);
- return PSI_T_INT64;
- }
- break;
- case PSI_T_UINT8: uval1 >>= 8;
- case PSI_T_UINT16: uval1 >>= 8;
- case PSI_T_UINT32: uval1 >>= 8;
- case PSI_T_UINT64:
- switch (t2) {
- case PSI_T_INT8: sval2 >>= 8;
- case PSI_T_INT16: sval2 >>= 8;
- case PSI_T_INT32: sval2 >>= 8;
- case PSI_T_INT64:
- res->i64 = PSI_CALC(uval1, sval2);
- return PSI_T_INT64;
- case PSI_T_UINT8: uval2 >>= 8;
- case PSI_T_UINT16: uval2 >>= 8;
- case PSI_T_UINT32: uval2 >>= 8;
- case PSI_T_UINT64:
- res->u64 = PSI_CALC(uval1, uval2);
- return PSI_T_UINT64;
- }
- break;
- }
- }
- ZEND_ASSERT(0);
- return 0;
-}
-
-void psi_call(zend_execute_data *execute_data, zval *return_value, impl *impl)
-{
- impl_val ret_val;
- size_t i;
-
- if (SUCCESS != psi_parse_args(execute_data, impl)) {