xref: /PHP-8.3/.gdbinit (revision f18710e3)
1define set_ts
2	set $tsrm_ls = $arg0
3end
4
5document set_ts
6	set the ts resource, it is impossible for gdb to
7	call ts_resource_ex while no process is running,
8	but we could get the resource from the argument
9	of frame info.
10end
11
12define ____executor_globals
13	if basic_functions_module.zts
14		set $tsrm_ls = _tsrm_ls_cache
15		set $eg = ((zend_executor_globals*) (*((void ***) $tsrm_ls))[executor_globals_id-1])
16		set $cg = ((zend_compiler_globals*) (*((void ***) $tsrm_ls))[compiler_globals_id-1])
17		set $eg_ptr = $eg
18	else
19		set $eg = executor_globals
20		set $cg = compiler_globals
21		set $eg_ptr = (zend_executor_globals*) &executor_globals
22	end
23end
24
25document ____executor_globals
26	portable way of accessing executor_globals, set $eg
27	this also sets compiler_globals to $cg
28	ZTS detection is automatically based on ext/standard module struct
29end
30
31define print_cvs
32	if $argc == 0
33		____executor_globals
34		set $cv_ex_ptr = $eg.current_execute_data
35	else
36		set $cv_ex_ptr = (zend_execute_data *)$arg0
37	end
38	set $cv_count = $cv_ex_ptr.func.op_array.last_var
39	set $cv = $cv_ex_ptr.func.op_array.vars
40	set $cv_idx = 0
41	set $callFrameSize = (sizeof(zend_execute_data) + sizeof(zval) - 1) / sizeof(zval)
42
43	printf "Compiled variables count: %d\n\n", $cv_count
44	while $cv_idx < $cv_count
45		printf "[%d] '%s'\n", $cv_idx, $cv[$cv_idx].val
46		set $zvalue = ((zval *) $cv_ex_ptr) + $callFrameSize + $cv_idx
47		printzv $zvalue
48		set $cv_idx = $cv_idx + 1
49	end
50end
51
52document print_cvs
53	Prints the compiled variables and their values.
54	If a zend_execute_data pointer is set this will print the compiled
55	variables of that scope. If no parameter is used it will use
56	current_execute_data for scope.
57
58	usage: print_cvs [zend_execute_data *]
59end
60
61define dump_bt
62	set $ex = $arg0
63	while $ex
64		printf "[%p] ", $ex
65		set $func = $ex->func
66		if $func
67			if $ex->This->value.obj
68				if $func->common.scope
69					printf "%s->", (char*)$func->common.scope->name->val
70				else
71					printf "%s->", (char*)$ex->This->value.obj->ce.name->val
72				end
73			else
74				if $func->common.scope
75					printf "%s::", (char*)$func->common.scope->name->val
76				end
77			end
78
79			if $func->common.function_name
80				printf "%s(", (char*)$func->common.function_name->val
81			else
82				printf "(main"
83			end
84
85			set $callFrameSize = (sizeof(zend_execute_data) + sizeof(zval) - 1) / sizeof(zval)
86
87			set $count = $ex->This.u2.num_args
88			set $arg = 0
89			while $arg < $count
90				if $arg > 0
91					printf ", "
92				end
93
94				set $zvalue = (zval *) $ex + $callFrameSize + $arg
95				set $type = $zvalue->u1.v.type
96				if $type == 1
97					printf "NULL"
98				end
99				if $type == 2
100					printf "false"
101				end
102				if $type == 3
103					printf "true"
104				end
105				if $type == 4
106					printf "%ld", $zvalue->value.lval
107				end
108				if $type == 5
109					printf "%f", $zvalue->value.dval
110				end
111				if $type == 6
112					____print_str (char*)$zvalue->value.str->val $zvalue->value.str->len
113				end
114				if $type == 7
115					printf "array(%d)[%p]", $zvalue->value.arr->nNumOfElements, $zvalue
116				end
117				if $type == 8
118					printf "object[%p]", $zvalue
119				end
120				if $type == 9
121					printf "resource(#%d)", $zvalue->value.lval
122				end
123				if $type == 10
124					printf "reference"
125				end
126				if $type > 10
127					printf "unknown type %d", $type
128				end
129				set $arg = $arg + 1
130			end
131
132			printf ") "
133		else
134			printf "??? "
135		end
136		if $func != 0
137			if $func->type == 2
138				printf "%s:%d ", (char*)$func->op_array.filename->val, $ex->opline->lineno
139			else
140				printf "[internal function]"
141			end
142		end
143		set $ex = $ex->prev_execute_data
144		printf "\n"
145	end
146end
147
148document dump_bt
149	dumps the current execution stack. usage: dump_bt executor_globals.current_execute_data
150end
151
152define printzv
153	set $ind = 1
154	____printzv $arg0 0
155end
156
157document printzv
158	prints zval contents
159end
160
161define ____printzv_contents
162	set $zvalue = $arg0
163	set $type = $zvalue->u1.v.type
164
165	# 15 == IS_INDIRECT
166	if $type > 5 && $type < 12
167		printf "(refcount=%d) ", $zvalue->value.counted->gc.refcount
168	end
169
170	if $type == 0
171		printf "UNDEF"
172	end
173	if $type == 1
174		printf "NULL"
175	end
176	if $type == 2
177		printf "bool: false"
178	end
179	if $type == 3
180		printf "bool: true"
181	end
182	if $type == 4
183		printf "long: %ld", $zvalue->value.lval
184	end
185	if $type == 5
186		printf "double: %f", $zvalue->value.dval
187	end
188	if $type == 6
189		printf "string: %s", (char*)$zvalue->value.str->val
190	end
191	if $type == 7
192		printf "array: "
193		if ! $arg1
194			set $ind = $ind + 1
195			____print_ht $zvalue->value.arr 1
196			set $ind = $ind - 1
197			set $i = $ind
198			while $i > 0
199				printf "  "
200				set $i = $i - 1
201			end
202		end
203		set $type = 0
204	end
205	if $type == 8
206		printf "object"
207		____executor_globals
208		set $handle = $zvalue->value.obj.handle
209		set $handlers = $zvalue->value.obj.handlers
210		set $zobj = $zvalue->value.obj
211		set $cname = (char*)$zobj->ce->name->val
212		printf "(%s) #%d", $cname, $handle
213		if ! $arg1
214			if $handlers->get_properties == &zend_std_get_properties
215				if $zobj->properties
216					printf "\nProperties "
217					set $ht = $zobj->properties
218					set $ind = $ind + 1
219					____print_ht $ht 1
220					set $ind = $ind - 1
221					set $i = $ind
222					while $i > 0
223						printf "  "
224						set $i = $i - 1
225					end
226				else
227					printf " {\n"
228					set $ht = &$zobj->ce->properties_info
229					set $k = 0
230					set $num = $ht->nNumUsed
231					while $k < $num
232						set $p = (Bucket*)($ht->arData + $k)
233						set $name = $p->key
234						set $prop = (zend_property_info*)$p->val.value.ptr
235						set $val = (zval*)((char*)$zobj + $prop->offset)
236						printf "%s => ", (char*)$name->val
237						printzv $val
238						set $k = $k + 1
239					end
240				end
241			end
242		end
243		set $type = 0
244	end
245	if $type == 9
246		printf "resource: #%d", $zvalue->value.res->handle
247	end
248	if $type == 10
249		printf "reference: "
250		____printzv &$zvalue->value.ref->val $arg1
251	end
252	if $type == 11
253		printf "CONSTANT_AST"
254	end
255	if $type == 12
256		printf "indirect: "
257		____printzv $zvalue->value.zv $arg1
258	end
259	if $type == 13
260		printf "pointer: %p", $zvalue->value.ptr
261	end
262	if $type == 15
263		printf "_ERROR"
264	end
265	if $type == 16
266		printf "_BOOL"
267	end
268	if $type == 17
269		printf "_NUMBER"
270	end
271	if $type > 17
272		printf "unknown type %d", $type
273	end
274	printf "\n"
275end
276
277define ____printzv
278	____executor_globals
279	set $zvalue = $arg0
280
281	printf "[%p] ", $zvalue
282
283	set $zcontents = (zval*) $zvalue
284	if $arg1
285		____printzv_contents $zcontents $arg1
286	else
287		____printzv_contents $zcontents 0
288	end
289end
290
291define print_global_vars
292	____executor_globals
293	set $symtable = ((HashTable *)&($eg_ptr->symbol_table))
294	print_ht $symtable
295end
296
297document print_global_vars
298	Prints the global variables
299end
300
301define print_const_table
302	set $ind = 1
303	printf "[%p] {\n", $arg0
304	____print_ht $arg0 4
305	printf "}\n"
306end
307
308document print_const_table
309	Dumps elements of Constants HashTable
310	Example: print_const_table executor_globals.zend_constants
311end
312
313define ____print_ht
314	set $ht = (HashTable*)$arg0
315	set $n = $ind
316	while $n > 0
317		printf "  "
318		set $n = $n - 1
319	end
320
321	set $packed = $ht->u.v.flags & 4
322	if $packed
323		printf "Packed"
324	else
325		printf "Hash"
326	end
327	printf "(%d)[%p]: {\n", $ht->nNumOfElements, $ht
328
329	set $num = $ht->nNumUsed
330	set $i = 0
331	set $ind = $ind + 1
332	while $i < $num
333		if $packed
334			set $val = (zval*)($ht->arPacked + $i)
335			set $key = (zend_string*)0
336			set $h = $i
337		else
338			set $bucket = (Bucket*)($ht->arData + $i)
339			set $val = &$bucket->val
340			set $key = $bucket->key
341			set $h = $bucket->h
342		end
343		set $n = $ind
344		if $val->u1.v.type > 0
345			while $n > 0
346				printf "  "
347				set $n = $n - 1
348			end
349			printf "[%d] ", $i
350			if $key
351				____print_str (char*)$key->val $key->len
352				printf " => "
353			else
354				printf "%d => ", $h
355			end
356			if $arg1 == 0
357				printf "%p\n", $val
358			end
359			if $arg1 == 1
360				set $zval = $val
361				____printzv $zval 1
362			end
363			if $arg1 == 2
364				printf "%s\n", (char*)$val->value.ptr
365			end
366			if $arg1 == 3
367				set $func = (zend_function*)$val->value.ptr
368				printf "\"%s\"\n", (char*)$func->common.function_name->val
369			end
370			if $arg1 == 4
371				set $const = (zend_constant *)$val->value.ptr
372				____printzv $const 1
373			end
374		end
375		set $i = $i + 1
376	end
377	set $ind = $ind - 1
378	printf "}\n"
379end
380
381define print_ht
382	set $ind = 0
383	____print_ht $arg0 1
384end
385
386document print_ht
387	dumps elements of HashTable made of zval
388end
389
390define print_htptr
391	set $ind = 0
392	____print_ht $arg0 0
393end
394
395document print_htptr
396	dumps elements of HashTable made of pointers
397end
398
399define print_htstr
400	set $ind = 0
401	____print_ht $arg0 2
402end
403
404document print_htstr
405	dumps elements of HashTable made of strings
406end
407
408define print_ft
409	set $ind = 0
410	____print_ht $arg0 3
411end
412
413document print_ft
414	dumps a function table (HashTable)
415end
416
417define ____print_inh_class
418	set $ce = $arg0
419	if $ce->ce_flags & 0x10 || $ce->ce_flags & 0x20
420		printf "abstract "
421	else
422		if $ce->ce_flags & 0x40
423			printf "final "
424		end
425	end
426	printf "class %s", (char*)$ce->name->val
427	if $ce->parent != 0
428		printf " extends %s", (char*)$ce->parent->name->val
429	end
430	if $ce->num_interfaces != 0
431		printf " implements"
432		set $tmp = 0
433		while $tmp < $ce->num_interfaces
434			printf " %s", (char*)$ce->interfaces[$tmp]->name->val
435			set $tmp = $tmp + 1
436			if $tmp < $ce->num_interfaces
437				printf ","
438			end
439		end
440	end
441	set $ce = $ce->parent
442end
443
444define ____print_inh_iface
445	set $ce = $arg0
446	printf "interface %s", (char*)$ce->name->val
447	if $ce->num_interfaces != 0
448		set $ce = $ce->interfaces[0]
449		printf " extends %s", (char*)$ce->name->val
450	else
451		set $ce = 0
452	end
453end
454
455define print_inh
456	set $ce = $arg0
457	set $depth = 0
458	while $ce != 0
459		set $tmp = $depth
460		while $tmp != 0
461			printf " "
462			set $tmp = $tmp - 1
463		end
464		set $depth = $depth + 1
465		if $ce->ce_flags & 0x80
466			____print_inh_iface $ce
467		else
468			____print_inh_class $ce
469		end
470		printf " {\n"
471	end
472	while $depth != 0
473		set $tmp = $depth
474		while $tmp != 1
475			printf " "
476			set $tmp = $tmp - 1
477		end
478		printf "}\n"
479		set $depth = $depth - 1
480	end
481end
482
483define print_pi
484	set $pi = (zend_property_info *)$arg0
485	set $initial_offset = ((uint32_t)(uintptr_t)(&((zend_object*)0)->properties_table[(0)]))
486	set $ptr_to_val = (zval*)((char*)$pi->ce->default_properties_table + $pi->offset - $initial_offset)
487	printf "[%p] {\n", $pi
488	printf "    offset = %p\n", $pi->offset
489	printf "    ce = [%p] %s\n", $pi->ce, (char*)$pi->ce->name->val
490	printf "    flags = 0x%x (", $pi->flags
491	if $pi->flags & 0x100
492		printf "ZEND_ACC_PUBLIC"
493	else
494		if $pi->flags & 0x200
495			printf "ZEND_ACC_PROTECTED"
496		else
497			if $pi->flags & 0x400
498				printf "ZEND_ACC_PRIVATE"
499			else
500				if $pi->flags & 0x800
501					printf "ZEND_ACC_EARLY_BINDING"
502				else
503					if $pi->flags & 0x20000
504						printf "ZEND_ACC_SHADOW"
505					end
506				end
507			end
508		end
509	end
510	printf ")\n"
511	printf "    name  = "
512	print_zstr $pi->name
513	printf "    default value: "
514	printzv $ptr_to_val
515	printf "}\n"
516end
517
518document print_pi
519	Takes a pointer to an object's property and prints the property information
520	usage: print_pi <ptr>
521end
522
523define ____print_str
524	set $tmp = 0
525	set $str = $arg0
526	if $argc > 2
527		set $maxlen = $arg2
528	else
529		set $maxlen = 256
530	end
531
532	printf "\""
533	while $tmp < $arg1 && $tmp < $maxlen
534		if $str[$tmp] > 31 && $str[$tmp] < 127
535			printf "%c", $str[$tmp]
536		else
537			printf "\\%o", $str[$tmp]
538		end
539		set $tmp = $tmp + 1
540	end
541	if $tmp != $arg1
542		printf "..."
543	end
544	printf "\""
545end
546
547define printzn
548	____executor_globals
549	set $ind = 0
550	set $znode = $arg0
551	if $znode->op_type == 1
552		set $optype = "IS_CONST"
553	end
554	if $znode->op_type == 2
555		set $optype = "IS_TMP_VAR"
556	end
557	if $znode->op_type == 4
558		set $optype = "IS_VAR"
559	end
560	if $znode->op_type == 8
561		set $optype = "IS_UNUSED"
562	end
563
564	printf "[%p] %s", $znode, $optype
565
566	if $znode->op_type == 1
567		printf ": "
568		____printzv &$znode->u.constant 0
569	end
570	if $znode->op_type == 2
571		printf ": "
572		set $tvar = (union _temp_variable *)((char *)$eg.current_execute_data->Ts + $znode->u.var)
573		____printzv ((union _temp_variable *)$tvar)->tmp_var 0
574	end
575	if $znode->op_type == 4
576		printf ": "
577		set $tvar = (union _temp_variable *)((char *)$eg.current_execute_data->Ts + $znode->u.var)
578		____printzv *$tvar->var.ptr_ptr 0
579	end
580	if $znode->op_type == 8
581		printf "\n"
582	end
583end
584
585document printzn
586	print type and content of znode.
587	usage: printzn &opline->op1
588end
589
590define printzops
591	printf "op1 => "
592	printzn &execute_data->opline.op1
593	printf "op2 => "
594	printzn &execute_data->opline.op2
595	printf "result => "
596	printzn &execute_data->opline.result
597end
598
599document printzops
600	dump operands of the current opline
601end
602
603define print_zstr
604	set $zstr = (zend_string *)$arg0
605	if $argc == 2
606		set $maxlen = $arg1
607	else
608		set $maxlen = $zstr->len
609	end
610	printf "string(%d) ", $zstr->len
611	____print_str (char*)$zstr->val $zstr->len $maxlen
612	printf "\n"
613end
614
615document print_zstr
616	print the length and contents of a zend string
617	usage: print_zstr <ptr> [max length]
618end
619
620define zbacktrace
621	____executor_globals
622	dump_bt $eg.current_execute_data
623end
624
625document zbacktrace
626	prints backtrace.
627	This command is almost a short cut for
628	> (gdb) ____executor_globals
629	> (gdb) dump_bt $eg.current_execute_data
630end
631
632define lookup_root
633	set $found = 0
634	if gc_globals->roots
635		set $current = gc_globals->roots->next
636		printf "looking ref %p in roots\n", $arg0
637		while $current != &gc_globals->roots
638			if $current->ref == $arg0
639				set $found = $current
640				break
641			end
642			set $current = $current->next
643		end
644		if $found != 0
645			printf "found root %p\n", $found
646		else
647			printf "not found\n"
648		end
649	end
650end
651
652document lookup_root
653	lookup a refcounted in root
654	usage: lookup_root [ptr].
655end
656