4 #include "Zend/zend_API.h"
5 typedef struct zend_fcall
{
7 zend_fcall_info_cache fcc
;
12 #include "types/impl_val.h"
13 #include "types/decl_type.h"
14 #include "types/decl_var.h"
15 #include "types/decl_struct_layout.h"
16 #include "types/decl_arg.h"
17 #include "types/decl_typedefs.h"
18 #include "types/decl_vars.h"
19 #include "types/decl_args.h"
20 #include "types/decl_abi.h"
21 #include "types/decl_callinfo.h"
22 #include "types/decl.h"
23 #include "types/decls.h"
24 #include "types/decl_struct.h"
25 #include "types/decl_structs.h"
26 #include "types/decl_union.h"
27 #include "types/decl_unions.h"
28 #include "types/impl_type.h"
29 #include "types/impl_var.h"
30 #include "types/impl_def_val.h"
31 #include "types/const_type.h"
32 #include "types/constant.h"
33 #include "types/constants.h"
34 #include "types/impl_arg.h"
35 #include "types/impl_args.h"
36 #include "types/impl_func.h"
37 #include "types/num_exp.h"
38 #include "types/decl_enum_item.h"
39 #include "types/decl_enum_items.h"
40 #include "types/decl_enum.h"
41 #include "types/decl_enums.h"
42 #include "types/let_calloc.h"
43 #include "types/let_callback.h"
44 #include "types/let_func.h"
45 #include "types/let_val.h"
46 #include "types/let_vals.h"
47 #include "types/let_stmt.h"
48 #include "types/set_func.h"
49 #include "types/set_value.h"
50 #include "types/set_values.h"
51 #include "types/set_stmt.h"
52 #include "types/return_stmt.h"
53 #include "types/free_call.h"
54 #include "types/free_calls.h"
55 #include "types/free_stmt.h"
56 #include "types/impl_stmt.h"
57 #include "types/impl_stmts.h"
58 #include "types/impl.h"
59 #include "types/impls.h"
60 #include "types/decl_file.h"
61 #include "types/decl_libs.h"
64 static inline int weak_decl_type(decl_type
*type
) {
77 static inline decl_type
*real_decl_type(decl_type
*type
) {
78 while (weak_decl_type(type
)) {
79 type
= type
->real
.def
->type
;
84 static inline impl_val
*deref_impl_val(impl_val
*ret_val
, decl_var
*var
) {
87 ZEND_ASSERT(var
->arg
->var
!= var
);
89 fprintf(stderr
, "deref: %s pl=%u:%u as=%u:%u %p\n",
90 var
->name
, var
->pointer_level
, var
->arg
->var
->pointer_level
,
91 var
->array_size
, var
->arg
->var
->array_size
, ret_val
);
93 for (i
= 0; i
< var
->pointer_level
; ++i
) {
95 fprintf(stderr
, "-- %p %p %p\n", ret_val
, *(void**)ret_val
, ret_val
->ptr
);
97 ret_val
= *(void **) ret_val
;
102 static inline impl_val
*enref_impl_val(void *ptr
, decl_var
*var
) {
103 impl_val
*val
, *val_ptr
;
106 ZEND_ASSERT(var
->arg
->var
== var
);
108 fprintf(stderr
, "enref: %s pl=%u:%u as=%u:%u\n",
109 var
->name
, var
->pointer_level
, var
->arg
->var
->pointer_level
,
110 var
->array_size
, var
->arg
->var
->array_size
);
112 if (!var
->pointer_level
){//&& real_decl_type(var->arg->type)->type != PSI_T_STRUCT) {
116 val
= val_ptr
= calloc(var
->pointer_level
+ 1, sizeof(void *));
117 for (i
= !var
->arg
->var
->array_size
; i
< var
->pointer_level
; ++i
) {
119 fprintf(stderr
, "++\n");
121 val_ptr
->ptr
= (void **) val_ptr
+ 1;
122 val_ptr
= val_ptr
->ptr
;
128 static inline impl_val
*struct_member_ref(decl_arg
*set_arg
, impl_val
*struct_ptr
, impl_val
**to_free
) {
129 void *ptr
= (char *) struct_ptr
+ set_arg
->layout
->pos
;
131 fprintf(stderr
, "struct member %s: %p\n", set_arg
->var
->name
, ptr
);
138 #define PSI_WARNING 32
139 typedef void (*psi_error_cb
)(void *context
, struct psi_token
*token
, int type
, const char *msg
, ...);