8 #include "ext/standard/info.h"
9 #include "zend_exceptions.h"
10 #include "zend_constants.h"
11 #include "zend_operators.h"
20 # define PSI_ENGINE "jit"
25 # define PSI_ENGINE "ffi"
28 ZEND_DECLARE_MODULE_GLOBALS(psi
);
31 STD_PHP_INI_ENTRY("psi.engine", PSI_ENGINE
, PHP_INI_SYSTEM
, OnUpdateString
, engine
, zend_psi_globals
, psi_globals
)
32 STD_PHP_INI_ENTRY("psi.directory", "psi.d", PHP_INI_SYSTEM
, OnUpdateString
, directory
, zend_psi_globals
, psi_globals
)
35 static zend_object_handlers psi_object_handlers
;
36 static zend_class_entry
*psi_class_entry
;
38 void psi_error(int type
, const char *msg
, ...)
44 vslprintf(buf
, 0x1000, msg
, argv
);
50 size_t psi_t_alignment(token_t t
)
52 #define PSI_ALIGNOF(T) case PSI_T_## T: return ALIGNOF_## T ##_T;
65 return ALIGNOF_DOUBLE
;
67 return ALIGNOF_VOID_P
;
68 EMPTY_SWITCH_DEFAULT_CASE();
73 size_t psi_t_size(token_t t
)
75 #define PSI_SIZEOF(T) case PSI_T_## T : return SIZEOF_## T ##_T;
91 EMPTY_SWITCH_DEFAULT_CASE();
96 size_t psi_t_align(token_t t
, size_t s
)
98 size_t a
= psi_t_alignment(t
);
99 return ((s
- 1) | (a
- 1)) + 1;
102 int psi_internal_type(impl_type
*type
)
104 switch (type
->type
) {
121 zend_internal_arg_info
*psi_internal_arginfo(impl
*impl
)
124 zend_internal_arg_info
*aip
;
125 zend_internal_function_info
*fi
;
127 aip
= calloc(impl
->func
->args
->count
+ 1, sizeof(*aip
));
129 fi
= (zend_internal_function_info
*) &aip
[0];
130 fi
->required_num_args
= psi_num_min_args(impl
);
131 fi
->return_reference
= impl
->func
->return_reference
;
132 fi
->type_hint
= psi_internal_type(impl
->func
->return_type
);
134 for (i
= 0; i
< impl
->func
->args
->count
; ++i
) {
135 impl_arg
*iarg
= impl
->func
->args
->args
[i
];
136 zend_internal_arg_info
*ai
= &aip
[i
+1];
138 ai
->name
= iarg
->var
->name
;
139 ai
->type_hint
= psi_internal_type(iarg
->type
);
140 if (iarg
->var
->reference
) {
141 ai
->pass_by_reference
= 1;
143 if (iarg
->var
->reference
|| (iarg
->def
&& iarg
->def
->type
== PSI_T_NULL
)) {
151 size_t psi_num_min_args(impl
*impl
)
153 size_t i
, n
= impl
->func
->args
->count
;
155 for (i
= 0; i
< impl
->func
->args
->count
; ++i
) {
156 if (impl
->func
->args
->args
[i
]->def
) {
163 void psi_to_void(zval
*return_value
, set_value
*set
, impl_val
*ret_val
)
168 void psi_to_bool(zval
*return_value
, set_value
*set
, impl_val
*ret_val
)
170 psi_to_int(return_value
, set
, ret_val
);
171 convert_to_boolean(return_value
);
174 void psi_to_int(zval
*return_value
, set_value
*set
, impl_val
*ret_val
)
176 decl_var
*var
= set
->vars
->vars
[0];
177 token_t t
= real_decl_type(var
->arg
->type
)->type
;
178 impl_val
*v
= deref_impl_val(ret_val
, var
);
182 RETVAL_DOUBLE((double) v
->fval
);
183 convert_to_long(return_value
);
186 RETVAL_DOUBLE(v
->dval
);
187 convert_to_long(return_value
);
205 #if UINT32_MAX >= ZEND_LONG_MAX
206 if (v
->u32
> ZEND_LONG_MAX
) {
209 RETVAL_STRING(zend_print_ulong_to_buf(&d
[10], v
->u32
));
213 #if UINT32_MAX >= ZEND_LONG_MAX
221 if (v
->u64
> ZEND_LONG_MAX
) {
224 RETVAL_STRING(zend_print_ulong_to_buf(&d
[22], v
->u64
));
229 EMPTY_SWITCH_DEFAULT_CASE();
233 void psi_to_double(zval
*return_value
, set_value
*set
, impl_val
*ret_val
)
235 decl_var
*var
= set
->vars
->vars
[0];
236 token_t t
= real_decl_type(var
->arg
->type
)->type
;
237 impl_val
*v
= deref_impl_val(ret_val
, var
);
241 RETVAL_DOUBLE((double) v
->fval
);
244 RETVAL_DOUBLE(v
->dval
);
247 RETVAL_DOUBLE((double) v
->i8
);
250 RETVAL_DOUBLE((double) v
->u8
);
253 RETVAL_DOUBLE((double) v
->i16
);
256 RETVAL_DOUBLE((double) v
->u16
);
259 RETVAL_DOUBLE((double) v
->i32
);
262 RETVAL_DOUBLE((double) v
->u32
);
265 RETVAL_DOUBLE((double) v
->i64
);
268 RETVAL_DOUBLE((double) v
->u64
);
270 EMPTY_SWITCH_DEFAULT_CASE();
274 void psi_to_string(zval
*return_value
, set_value
*set
, impl_val
*ret_val
)
276 decl_var
*var
= set
->vars
->vars
[0];
277 token_t t
= real_decl_type(var
->arg
->type
)->type
;
283 if (!var
->arg
->var
->pointer_level
) {
284 RETVAL_STRINGL(&ret_val
->cval
, 1);
286 ret_val
= deref_impl_val(ret_val
, var
);
287 if (ret_val
&& ret_val
->ptr
) {
289 RETVAL_STRINGL(ret_val
->ptr
, psi_long_num_exp(set
->num
, NULL
));
291 RETVAL_STRING(ret_val
->ptr
);
294 RETVAL_EMPTY_STRING();
299 RETVAL_DOUBLE((double) deref_impl_val(ret_val
, var
)->fval
);
302 RETVAL_DOUBLE(deref_impl_val(ret_val
, var
)->dval
);
305 psi_to_int(return_value
, set
, ret_val
);
308 convert_to_string(return_value
);
312 static impl_val
*iterate(impl_val
*val
, size_t size
, unsigned i
, impl_val
*tmp
)
314 memset(tmp
, 0, sizeof(*tmp
));
315 memcpy(tmp
, ((void*) val
->ptr
) + size
* i
, size
);
319 void psi_from_zval(impl_val
*mem
, decl_arg
*spec
, zval
*zv
, void **tmp
)
321 decl_type
*type
= real_decl_type(spec
->type
);
323 switch (type
->type
) {
325 mem
->fval
= (float) zval_get_double(zv
);
328 mem
->dval
= zval_get_double(zv
);
332 if (spec
->var
->pointer_level
) {
333 zend_string
*zs
= zval_get_string(zv
);
334 *tmp
= mem
->ptr
= estrndup(zs
->val
, zs
->len
);
335 zend_string_release(zs
);
340 mem
->zend
.lval
= zval_get_long(zv
);
345 void *psi_array_to_struct(decl_struct
*s
, HashTable
*arr
)
348 char *mem
= ecalloc(1, s
->size
+ s
->args
->count
* sizeof(void *));
350 if (arr
) for (i
= 0; i
< s
->args
->count
; ++i
) {
351 decl_arg
*darg
= s
->args
->args
[i
];
352 zval
*entry
= zend_hash_str_find_ind(arr
, darg
->var
->name
, strlen(darg
->var
->name
));
358 memset(&tmp
, 0, sizeof(tmp
));
359 psi_from_zval(&val
, darg
, entry
, &tmp
);
360 memcpy(mem
+ darg
->layout
->pos
, &val
, darg
->layout
->len
);
362 ((void **)(mem
+ s
->size
))[j
++] = tmp
;
369 void psi_to_array(zval
*return_value
, set_value
*set
, impl_val
*r_val
)
372 decl_var
*var
= set
->vars
->vars
[0];
373 token_t t
= real_decl_type(var
->arg
->type
)->type
;
374 impl_val tmp
, *ret_val
= deref_impl_val(r_val
, var
);
376 array_init(return_value
);
378 if (t
== PSI_T_STRUCT
) {
379 // decl_struct *s = real_decl_type(var->arg->type)->strct;
382 /* explicit member casts */
383 for (i
= 0; i
< set
->count
; ++i
) {
384 set_value
*sub_set
= set
->inner
[i
];
385 decl_var
*sub_var
= sub_set
->vars
->vars
[0];
387 sub_set
->outer
.val
= r_val
;
390 impl_val
*tmp
= NULL
, *val
;
393 val
= deref_impl_val(struct_member_ref(sub_var
->arg
, ret_val
, &tmp
), sub_var
);
394 sub_set
->func
->handler(&ztmp
, sub_set
, val
);
395 add_assoc_zval(return_value
, sub_var
->name
, &ztmp
);
406 if (var
->arg
->var
->array_size
) {
407 /* to_array(foo[NUMBER]) */
408 for (i
= 0; i
< var
->arg
->var
->array_size
; ++i
) {
409 size_t size
= psi_t_size(var
->arg
->var
->pointer_level
> 1 ? PSI_T_POINTER
: t
);
410 impl_val
*ptr
= iterate(ret_val
, size
, i
, &tmp
);
415 ZVAL_DOUBLE(&ele
, (double) ptr
->fval
);
418 ZVAL_DOUBLE(&ele
, ptr
->dval
);
421 ZVAL_LONG(&ele
, ptr
->lval
);
425 add_next_index_zval(return_value
, &ele
);
428 } else if (set
->vars
->count
> 1) {
429 /* to_array(arr_var, cnt_var[, cnt_var...], to_int(*arr_var))
430 * check for length in second var
435 if (set->outer.set) {
437 for (i = 1; i < set->vars->count; ++i) {
438 impl_val *tmp = NULL, *cnt_val;
439 decl_var *cnt_var = set->vars->vars[i];
441 cnt_val = struct_member_ref(cnt_var->arg, set->outer.val, &tmp);
442 count += deref_impl_val(cnt_val, cnt_var)->lval;
452 for (i = 0; i < count; ++i) {
453 size_t size = psi_t_size(var->arg->var->pointer_level ? PSI_T_POINTER : t);
454 impl_val *ptr = iterate(ret_val, size, i, &tmp);
456 set->inner[0]->func->handler(&ele, set->inner[0], ptr);
457 add_next_index_zval(return_value, &ele);
460 } else if (set
->num
) {
461 /* to_array(arr_var, num_expr, to_int(*arr_var))
464 zend_long i
, n
= psi_long_num_exp(set
->num
, set
->outer
.val
);
466 for (i
= 0; i
< n
; ++i
) {
467 size_t size
= psi_t_size(var
->arg
->var
->pointer_level
? PSI_T_POINTER
: t
);
468 impl_val
*ptr
= iterate(ret_val
, size
, i
, &tmp
);
470 set
->inner
[0]->func
->handler(&ele
, set
->inner
[0], ptr
);
471 add_next_index_zval(return_value
, &ele
);
478 void psi_to_object(zval
*return_value
, set_value
*set
, impl_val
*r_val
)
480 decl_var
*var
= set
->vars
->vars
[0];
481 impl_val
*ret_val
= deref_impl_val(r_val
, var
);
485 object_init_ex(return_value
, psi_class_entry
);
486 obj
= PSI_OBJ(return_value
, NULL
);
487 obj
->data
= ret_val
->ptr
;
493 static inline ZEND_RESULT_CODE
psi_parse_args(zend_execute_data
*execute_data
, impl
*impl
)
496 zval
*zarg
= ZEND_CALL_ARG(execute_data
, 0);
498 zend_error_handling zeh
;
500 zend_replace_error_handling(EH_THROW
, zend_exception_get_default(), &zeh
);
502 if (!impl
->func
->args
->count
) {
505 rv
= zend_parse_parameters_none();
506 zend_restore_error_handling(&zeh
);
510 /* set up defaults */
511 for (i
= 0; i
< impl
->func
->args
->count
; ++i
) {
512 iarg
= impl
->func
->args
->args
[i
];
514 if (i
< EX_NUM_ARGS()) {
516 ZVAL_DEREF(iarg
->_zv
);
517 if (iarg
->var
->reference
) {
518 zval_dtor(iarg
->_zv
);
519 ZVAL_NULL(iarg
->_zv
);
524 switch (iarg
->type
->type
) {
526 iarg
->val
.zend
.bval
= iarg
->def
->type
== PSI_T_TRUE
? 1 : 0;
529 iarg
->val
.zend
.lval
= zend_atol(iarg
->def
->text
, strlen(iarg
->def
->text
));
533 iarg
->val
.dval
= zend_strtod(iarg
->def
->text
, NULL
);
537 iarg
->val
.zend
.str
= zend_string_init(&iarg
->def
->text
[1], strlen(iarg
->def
->text
) - 2, 0);
543 ZEND_PARSE_PARAMETERS_START(psi_num_min_args(impl
), impl
->func
->args
->count
)
545 iarg
= impl
->func
->args
->args
[_i
];
549 if (PSI_T_BOOL
== iarg
->type
->type
) {
551 iarg
->val
.zend
.bval
= iarg
->def
->type
== PSI_T_TRUE
? 1 : 0;
553 Z_PARAM_BOOL(iarg
->val
.zend
.bval
);
554 } else if (PSI_T_INT
== iarg
->type
->type
) {
556 iarg
->val
.zend
.lval
= zend_atol(iarg
->def
->text
, strlen(iarg
->def
->text
));
558 Z_PARAM_LONG(iarg
->val
.zend
.lval
);
559 } else if (PSI_T_FLOAT
== iarg
->type
->type
|| PSI_T_DOUBLE
== iarg
->type
->type
) {
561 iarg
->val
.dval
= zend_strtod(iarg
->def
->text
, NULL
);
563 Z_PARAM_DOUBLE(iarg
->val
.dval
);
564 } else if (PSI_T_STRING
== iarg
->type
->type
) {
565 zend_string
*str
= iarg
->val
.zend
.str
;
566 Z_PARAM_STR_EX(iarg
->val
.zend
.str
, 1, iarg
->var
->reference
);
567 if (str
&& str
!= iarg
->val
.zend
.str
) {
568 zend_string_release(str
);
570 } else if (PSI_T_ARRAY
== iarg
->type
->type
) {
572 } else if (PSI_T_OBJECT
== iarg
->type
->type
) {
575 error_code
= ZPP_ERROR_FAILURE
;
578 if (_i
< _num_args
) {
581 ZEND_PARSE_PARAMETERS_END_EX(
582 zend_restore_error_handling(&zeh
);
586 zend_restore_error_handling(&zeh
);
590 static inline void *psi_do_calloc(let_calloc
*alloc
)
592 zend_long n
= psi_long_num_exp(alloc
->nmemb
, NULL
), s
= psi_long_num_exp(alloc
->size
, NULL
);
593 void *mem
= safe_emalloc(n
, s
, sizeof(void *));
594 memset(mem
, 0, n
* s
+ sizeof(void *));
598 static inline void *psi_do_let(let_stmt
*let
)
600 decl_arg
*darg
= let
->var
->arg
;
601 impl_arg
*iarg
= darg
->let
->arg
;
602 impl_val
*arg_val
= darg
->ptr
;
605 /* let foo = calloc(1, long);
609 if (darg
->let
->val
->func
&& darg
->let
->val
->func
->type
== PSI_T_CALLOC
) {
610 arg_val
->ptr
= psi_do_calloc(darg
->let
->val
->func
->alloc
);
611 darg
->mem
= arg_val
->ptr
;
612 } else if (darg
->var
->array_size
) {
613 arg_val
->ptr
= ecalloc(darg
->var
->array_size
, sizeof(*arg_val
));
614 darg
->mem
= arg_val
->ptr
;
616 memset(arg_val
, 0, sizeof(*arg_val
));
620 switch (darg
->let
->val
->func
->type
) {
622 if (iarg
->type
->type
== PSI_T_BOOL
) {
623 arg_val
->cval
= iarg
->val
.zend
.bval
;
625 arg_val
->cval
= zend_is_true(iarg
->_zv
);
629 if (iarg
->type
->type
== PSI_T_INT
) {
630 arg_val
->lval
= iarg
->val
.zend
.lval
;
632 arg_val
->lval
= zval_get_long(iarg
->_zv
);
637 if (iarg
->type
->type
== PSI_T_STRING
) {
638 arg_val
->ptr
= estrdup(iarg
->val
.zend
.str
->val
);
639 darg
->mem
= arg_val
->ptr
;
640 zend_string_release(iarg
->val
.zend
.str
);
642 zend_string
*zs
= zval_get_string(iarg
->_zv
);
643 arg_val
->ptr
= estrdup(zs
->val
);
644 darg
->mem
= arg_val
->ptr
;
645 zend_string_release(zs
);
647 if (PSI_T_PATHVAL
== darg
->let
->val
->func
->type
) {
648 if (SUCCESS
!= php_check_open_basedir(arg_val
->ptr
)) {
655 if (iarg
->type
->type
== PSI_T_STRING
) {
656 arg_val
->lval
= iarg
->val
.zend
.str
->len
;
657 zend_string_release(iarg
->val
.zend
.str
);
659 zend_string
*zs
= zval_get_string(iarg
->_zv
);
660 arg_val
->lval
= zs
->len
;
661 zend_string_release(zs
);
665 if (iarg
->type
->type
== PSI_T_ARRAY
) {
666 decl_type
*type
= real_decl_type(darg
->type
);
668 switch (type
->type
) {
670 arg_val
->ptr
= psi_array_to_struct(type
->strct
, HASH_OF(iarg
->_zv
));
671 darg
->mem
= arg_val
->ptr
;
677 if (iarg
->type
->type
== PSI_T_OBJECT
) {
680 if (!instanceof_function(Z_OBJCE_P(iarg
->_zv
), psi_class_entry
)) {
684 obj
= PSI_OBJ(iarg
->_zv
, NULL
);
685 arg_val
->ptr
= obj
->data
;
688 EMPTY_SWITCH_DEFAULT_CASE();
692 if (darg
->let
->val
&& darg
->let
->val
->is_reference
) {
693 return darg
->let
->ptr
= &darg
->ptr
;
695 return darg
->let
->ptr
= darg
->ptr
;
699 static inline void psi_do_set(zval
*return_value
, set_value
*set
)
701 set
->func
->handler(return_value
, set
, set
->vars
->vars
[0]->arg
->ptr
);
704 static inline void psi_do_return(zval
*return_value
, return_stmt
*ret
)
706 ret
->set
->func
->handler(return_value
, ret
->set
, ret
->set
->vars
->vars
[0]->arg
->ptr
);
709 static inline void psi_do_return2(zval
*return_value
, return_stmt
*ret
, impl_val
*ret_val
)
711 ret
->set
->func
->handler(return_value
, ret
->set
, ret_val
);
714 static inline void psi_do_free(free_stmt
*fre
)
719 for (i
= 0; i
< fre
->calls
->count
; ++i
) {
720 free_call
*f
= fre
->calls
->list
[i
];
722 for (j
= 0; j
< f
->vars
->count
; ++j
) {
723 decl_var
*dvar
= f
->vars
->vars
[j
];
724 decl_arg
*darg
= dvar
->arg
;
726 f
->decl
->call
.args
[j
] = &darg
->val
;
729 /* FIXME: check in validate_* that free functions return scalar */
730 PSI_ContextCall(&PSI_G(context
), &dummy
, f
->decl
);
734 static inline void psi_do_clean(impl
*impl
)
738 for (i
= 0; i
< impl
->func
->args
->count
; ++i
) {
739 impl_arg
*iarg
= impl
->func
->args
->args
[i
];
741 switch (iarg
->type
->type
) {
743 if (iarg
->val
.zend
.str
) {
744 zend_string_release(iarg
->val
.zend
.str
);
750 if (impl
->decl
->args
) for (i
= 0; i
< impl
->decl
->args
->count
; ++i
) {
751 decl_arg
*darg
= impl
->decl
->args
->args
[i
];
754 decl_type
*type
= real_decl_type(darg
->type
);
756 if (type
->type
== PSI_T_STRUCT
) {
757 void **ptr
= (void **) ((char *) darg
->mem
+ type
->strct
->size
);
769 static inline int psi_calc_num_exp_value(num_exp
*exp
, impl_val
*ref
, impl_val
*res
) {
770 impl_val
*tmp
= NULL
;
774 switch (is_numeric_string(exp
->u
.numb
, strlen(exp
->u
.numb
), (zend_long
*) res
, (double *) res
, 0)) {
783 switch (exp
->u
.cnst
->type
->type
) {
785 res
->i64
= zend_get_constant_str(exp
->u
.cnst
->name
, strlen(exp
->u
.cnst
->name
))->value
.lval
;
788 res
->dval
= zend_get_constant_str(exp
->u
.cnst
->name
, strlen(exp
->u
.cnst
->name
))->value
.dval
;
797 ref
= exp
->u
.dvar
->arg
->ptr
;
799 ref
= struct_member_ref(exp
->u
.dvar
->arg
, ref
, &tmp
);
801 switch (real_decl_type(exp
->u
.dvar
->arg
->type
)->type
) {
810 memcpy(res
, deref_impl_val(ref
, exp
->u
.dvar
), sizeof(*res
));
814 return real_decl_type(exp
->u
.dvar
->arg
->type
)->type
;
818 memcpy(res
, deref_impl_val(ref
, exp
->u
.dvar
), sizeof(*res
));
822 return real_decl_type(exp
->u
.dvar
->arg
->type
)->type
;
824 EMPTY_SWITCH_DEFAULT_CASE();
828 EMPTY_SWITCH_DEFAULT_CASE();
833 int psi_calc_num_exp(num_exp
*exp
, impl_val
*ref
, impl_val
*res
) {
835 int num_type
= psi_calc_num_exp_value(exp
, ref
, &num
);
839 int tmp_type
= psi_calc_num_exp(exp
->operand
, ref
, &tmp
);
841 return exp
->calculator(num_type
, &num
, tmp_type
, &tmp
, res
);
844 memcpy(res
, &num
, sizeof(*res
));
851 #define PSI_CALC_OP(var) do { \
852 const char *fmt = "calc %" PRI##var ", %" PRI##var ": %" PRI##var "\n"; \
853 res->var = PSI_CALC(v1->var, v2->var); \
854 if (!res->var) fprintf(stderr, fmt, v1->var, v2->var, res->var); \
856 #define PSI_CALC_OP2(vres, var1, var2) do { \
857 const char *fmt = "calc %" PRI##var1 ", %" PRI##var2 ": %" PRI##vres "\n"; \
858 res->vres = PSI_CALC(v1->var1, v2->var2); \
859 if (!res->vres) fprintf(stderr, fmt, v1->var1, v2->var2, res->vres); \
861 #define PSI_CALC_FN(op) int psi_calc_##op(int t1, impl_val *v1, int t2, impl_val *v2, impl_val *res) \
865 case PSI_T_FLOAT: PSI_CALC_OP(fval); break; \
866 case PSI_T_DOUBLE: PSI_CALC_OP(dval); break; \
867 case PSI_T_INT8: PSI_CALC_OP(i8); break; \
868 case PSI_T_UINT8: PSI_CALC_OP(u8); break; \
869 case PSI_T_INT16: PSI_CALC_OP(i16); break; \
870 case PSI_T_UINT16: PSI_CALC_OP(u16); break; \
871 case PSI_T_INT32: PSI_CALC_OP(i32); break; \
872 case PSI_T_UINT32: PSI_CALC_OP(u32); break; \
873 case PSI_T_INT64: PSI_CALC_OP(i64); break; \
874 case PSI_T_UINT64: PSI_CALC_OP(u64); break; \
875 EMPTY_SWITCH_DEFAULT_CASE(); \
878 } else if (t1 == PSI_T_DOUBLE) { \
880 case PSI_T_FLOAT: PSI_CALC_OP2(dval, dval, fval); break; \
881 case PSI_T_INT8: PSI_CALC_OP2(dval, dval, i8); break; \
882 case PSI_T_UINT8: PSI_CALC_OP2(dval, dval, u8); break; \
883 case PSI_T_INT16: PSI_CALC_OP2(dval, dval, i16); break; \
884 case PSI_T_UINT16: PSI_CALC_OP2(dval, dval, u16); break; \
885 case PSI_T_INT32: PSI_CALC_OP2(dval, dval, i32); break; \
886 case PSI_T_UINT32: PSI_CALC_OP2(dval, dval, u32); break; \
887 case PSI_T_INT64: PSI_CALC_OP2(dval, dval, i64); break; \
888 case PSI_T_UINT64: PSI_CALC_OP2(dval, dval, u64); break; \
889 EMPTY_SWITCH_DEFAULT_CASE(); \
892 } else if (t2 == PSI_T_DOUBLE) { \
894 case PSI_T_FLOAT: PSI_CALC_OP2(dval, fval, dval); break; \
895 case PSI_T_INT8: PSI_CALC_OP2(dval, i8, dval); break; \
896 case PSI_T_UINT8: PSI_CALC_OP2(dval, u8, dval); break; \
897 case PSI_T_INT16: PSI_CALC_OP2(dval, i16, dval); break; \
898 case PSI_T_UINT16: PSI_CALC_OP2(dval, u16, dval); break; \
899 case PSI_T_INT32: PSI_CALC_OP2(dval, i32, dval); break; \
900 case PSI_T_UINT32: PSI_CALC_OP2(dval, u32, dval); break; \
901 case PSI_T_INT64: PSI_CALC_OP2(dval, i64, dval); break; \
902 case PSI_T_UINT64: PSI_CALC_OP2(dval, u64, dval); break; \
903 EMPTY_SWITCH_DEFAULT_CASE(); \
906 } else if (t1 == PSI_T_FLOAT) { \
908 case PSI_T_DOUBLE: PSI_CALC_OP2(dval, fval, dval); return t2; \
909 case PSI_T_INT8: PSI_CALC_OP2(fval, fval, i8); break; \
910 case PSI_T_UINT8: PSI_CALC_OP2(fval, fval, u8); break; \
911 case PSI_T_INT16: PSI_CALC_OP2(fval, fval, i16); break; \
912 case PSI_T_UINT16: PSI_CALC_OP2(fval, fval, u16); break; \
913 case PSI_T_INT32: PSI_CALC_OP2(fval, fval, i32); break; \
914 case PSI_T_UINT32: PSI_CALC_OP2(fval, fval, u32); break; \
915 case PSI_T_INT64: PSI_CALC_OP2(fval, fval, i64); break; \
916 case PSI_T_UINT64: PSI_CALC_OP2(fval, fval, u64); break; \
917 EMPTY_SWITCH_DEFAULT_CASE(); \
920 } else if (t2 == PSI_T_FLOAT) { \
922 case PSI_T_DOUBLE: PSI_CALC_OP2(dval, dval, fval); return t1; \
923 case PSI_T_INT8: PSI_CALC_OP2(fval, i8, fval); break; \
924 case PSI_T_UINT8: PSI_CALC_OP2(fval, u8, fval); break; \
925 case PSI_T_INT16: PSI_CALC_OP2(fval, i16, fval); break; \
926 case PSI_T_UINT16: PSI_CALC_OP2(fval, u16, fval); break; \
927 case PSI_T_INT32: PSI_CALC_OP2(fval, i32, fval); break; \
928 case PSI_T_UINT32: PSI_CALC_OP2(fval, u32, fval); break; \
929 case PSI_T_INT64: PSI_CALC_OP2(fval, i64, fval); break; \
930 case PSI_T_UINT64: PSI_CALC_OP2(fval, u64, fval); break; \
931 EMPTY_SWITCH_DEFAULT_CASE(); \
935 int64_t sval1 = v1->i64, sval2 = v2->i64; \
936 uint64_t uval1 = v1->u64, uval2 = v2->u64; \
938 case PSI_T_INT8: sval1 >>= 8; \
939 case PSI_T_INT16: sval1 >>= 8; \
940 case PSI_T_INT32: sval1 >>= 8; \
943 case PSI_T_INT8: sval2 >>= 8; \
944 case PSI_T_INT16: sval2 >>= 8; \
945 case PSI_T_INT32: sval2 >>= 8; \
947 res->i64 = PSI_CALC(sval1 , sval2); \
948 return PSI_T_INT64; \
949 case PSI_T_UINT8: uval2 >>= 8; \
950 case PSI_T_UINT16: uval2 >>= 8; \
951 case PSI_T_UINT32: uval2 >>= 8; \
953 res->i64 = PSI_CALC(sval1, uval2); \
954 return PSI_T_INT64; \
957 case PSI_T_UINT8: uval1 >>= 8; \
958 case PSI_T_UINT16: uval1 >>= 8; \
959 case PSI_T_UINT32: uval1 >>= 8; \
962 case PSI_T_INT8: sval2 >>= 8; \
963 case PSI_T_INT16: sval2 >>= 8; \
964 case PSI_T_INT32: sval2 >>= 8; \
966 res->i64 = PSI_CALC(uval1, sval2); \
967 return PSI_T_INT64; \
968 case PSI_T_UINT8: uval2 >>= 8; \
969 case PSI_T_UINT16: uval2 >>= 8; \
970 case PSI_T_UINT32: uval2 >>= 8; \
972 res->u64 = PSI_CALC(uval1, uval2); \
973 return PSI_T_UINT64; \
983 #define PSI_CALC(var1, var2) (var1) + (var2)
986 #define PSI_CALC(var1, var2) (var1) * (var2)
989 #define PSI_CALC(var1, var2) (var1) - (var2)
992 #define PSI_CALC(var1, var2) (var1) / (var2)
995 void psi_call(zend_execute_data
*execute_data
, zval
*return_value
, impl
*impl
)
998 return_stmt
*ret
= impl
->stmts
->ret
.list
[0];
999 decl_var
*var
= ret
->set
->vars
->vars
[0];
1001 memset(var
->arg
->ptr
, 0, sizeof(impl_val
));
1003 if (SUCCESS
!= psi_parse_args(execute_data
, impl
)) {
1007 for (i
= 0; i
< impl
->stmts
->let
.count
; ++i
) {
1008 let_stmt
*let
= impl
->stmts
->let
.list
[i
];
1010 if (!psi_do_let(let
)) {
1011 psi_do_return(return_value
, ret
);
1017 if (impl
->decl
->args
) for (i
= 0; i
< impl
->decl
->args
->count
; ++i
) {
1018 impl
->decl
->call
.args
[i
] = impl
->decl
->args
->args
[i
]->let
->ptr
;
1021 PSI_ContextCall(&PSI_G(context
), var
->arg
->ptr
, impl
->decl
);
1022 psi_do_return(return_value
, ret
);
1024 for (i
= 0; i
< impl
->stmts
->set
.count
; ++i
) {
1025 set_stmt
*set
= impl
->stmts
->set
.list
[i
];
1027 if (set
->arg
->_zv
) {
1028 psi_do_set(set
->arg
->_zv
, set
->val
);
1032 for (i
= 0; i
< impl
->stmts
->fre
.count
; ++i
) {
1033 free_stmt
*fre
= impl
->stmts
->fre
.list
[i
];
1040 static void psi_object_free(zend_object
*o
)
1042 psi_object
*obj
= PSI_OBJ(NULL
, o
);
1048 zend_object_std_dtor(o
);
1051 static zend_object
*psi_object_init(zend_class_entry
*ce
)
1053 psi_object
*o
= ecalloc(1, sizeof(*o
) + zend_object_properties_size(ce
));
1055 zend_object_std_init(&o
->std
, ce
);
1056 object_properties_init(&o
->std
, ce
);
1057 o
->std
.handlers
= &psi_object_handlers
;
1061 PHP_MINIT_FUNCTION(psi
)
1063 PSI_ContextOps
*ops
= NULL
;
1064 zend_class_entry ce
= {0};
1066 REGISTER_INI_ENTRIES();
1068 INIT_NS_CLASS_ENTRY(ce
, "psi", "object", NULL
);
1069 psi_class_entry
= zend_register_internal_class_ex(&ce
, NULL
);
1070 psi_class_entry
->create_object
= psi_object_init
;
1072 memcpy(&psi_object_handlers
, zend_get_std_object_handlers(), sizeof(zend_object_handlers
));
1073 psi_object_handlers
.offset
= XtOffsetOf(psi_object
, std
);
1074 psi_object_handlers
.free_obj
= psi_object_free
;
1075 psi_object_handlers
.clone_obj
= NULL
;
1078 if (!strcasecmp(PSI_G(engine
), "jit")) {
1087 php_error(E_WARNING
, "No PSI engine found");
1091 PSI_ContextInit(&PSI_G(context
), ops
, psi_error
);
1092 PSI_ContextBuild(&PSI_G(context
), PSI_G(directory
));
1094 if (psi_check_env("PSI_DUMP")) {
1095 PSI_ContextDump(&PSI_G(context
), STDOUT_FILENO
);
1101 PHP_MSHUTDOWN_FUNCTION(psi
)
1103 PSI_ContextDtor(&PSI_G(context
));
1105 UNREGISTER_INI_ENTRIES();
1110 #if defined(COMPILE_DL_PSI) && defined(ZTS)
1111 PHP_RINIT_FUNCTION(psi
)
1113 ZEND_TSRMLS_CACHE_UPDATE();
1118 PHP_MINFO_FUNCTION(psi
)
1120 php_info_print_table_start();
1121 php_info_print_table_header(2, "psi support", "enabled");
1122 php_info_print_table_end();
1124 DISPLAY_INI_ENTRIES();
1126 const zend_function_entry psi_functions
[] = {
1130 zend_module_entry psi_module_entry
= {
1131 STANDARD_MODULE_HEADER
,
1136 #if defined(COMPILE_DL_PSI) && defined(ZTS)
1137 PHP_RINIT(psi
), /* Replace with NULL if there's nothing to do at request start */
1144 STANDARD_MODULE_PROPERTIES
1147 #ifdef COMPILE_DL_PSI
1149 ZEND_TSRMLS_CACHE_DEFINE();
1151 ZEND_GET_MODULE(psi
)
1159 * vim600: noet sw=4 ts=4 fdm=marker
1160 * vim<600: noet sw=4 ts=4