define ____executor_globals if basic_functions_module.zts set $tsrm_ls = ts_resource_ex(0, 0) set $eg = ((zend_executor_globals) (*((void ***) $tsrm_ls))[executor_globals_id-1]) set $cg = ((zend_compiler_globals) (*((void ***) $tsrm_ls))[compiler_globals_id-1]) else set $eg = executor_globals set $cg = compiler_globals end end document ____executor_globals portable way of accessing executor_globals, set $eg this also sets compiler_globals to $cg ZTS detection is automatically based on ext/standard module struct end define dump_bt set $t = $arg0 while $t printf "[0x%08x] ", $t if $t->function_state.function->common.function_name printf "%s() ", $t->function_state.function->common.function_name else printf "??? " end if $t->op_array != 0 printf "%s:%d ", $t->op_array->filename, $t->opline->lineno end set $t = $t->prev_execute_data printf "\n" end end document dump_bt dumps the current execution stack. usage: dump_bt executor_globals.current_execute_data end define printztype ____printz_type $arg0 printf "\n" end document printztype prints the type name of a zval type end define ____printz_type set $type = $arg0 if $type == 0 printf "NULL" end if $type == 1 printf "long" end if $type == 2 printf "double" end if $type == 3 printf "bool" end if $type == 4 printf "array" end if $type == 5 printf "object" end if $type == 6 printf "string" end if $type == 7 printf "resource" end if $type == 8 printf "constant" end if $type == 9 printf "const_array" end if $type == 10 printf "unicode string" end if $type > 10 printf "unknown type %d", $type end end define printzv set $ind = 1 ____printzv $arg0 0 end document printzv prints zval contents end define printu set $str = (UChar*)$arg0 if $arg1 > 0 set $max = $arg1 else set $max = 1024 end set $pos = 0 while $pos < $max && *(char*)(($str+$pos)) if $str[$pos] < 256 printf "%c", $str[$pos] else printf "\\u%04X", $str[$pos] end set $pos = $pos + 1 end if $pos < $max && *((char*)($str+$pos)) printf "[...]" end end document printu prints a unicode string, optionally with given length usage: printu str [len] The function stops at the first zero byte (not char) or when len is reached. If len is less than or equal to one then a maximum of 1024 characters are printed. end define printt if $arg0 printu $arg1 $arg2 else set $len = strlen($arg1) if $arg2 > 0 && $len > $arg2 set $copy = strdup($arg1) printf "%p: %s\n", $copy, $copy set ((char*)$copy)[$arg2] = 0 printf "%s[...]", $copy call free($copy) else printf "%s", $arg1 end end end document printt prints a binary or unicode string, optionally with given length usage: printt unicode str [len] If unicode is 1 the function calls printu, else it uses printf. end define ____printzv_contents set $zvalue = $arg0 set $type = $zvalue->type printf "(refcount=%d", $zvalue->refcount__gc if $zvalue->is_ref__gc printf ",is_ref" end printf ") " if $type == 0 printf "NULL" end ____printz_type $type if $type == 1 printf ": %ld", $zvalue->value.lval end if $type == 2 printf ": %lf", $zvalue->value.dval end if $type == 3 if $zvalue->value.lval printf ": true" else printf ": false" end end if $type == 4 printf "(%d): ", $zvalue->value.ht->nNumOfElements if ! $arg1 printf "{\n" set $ind = $ind + 1 ____print_ht $zvalue->value.ht 0 1 set $ind = $ind - 1 set $i = $ind while $i > 0 printf " " set $i = $i - 1 end printf "}" end set $type = 0 end if $type == 5 ____executor_globals set $handle = $zvalue->value.obj.handle set $handlers = $zvalue->value.obj.handlers if basic_functions_module.zts set $zobj = zend_objects_get_address($zvalue, $tsrm_ls) else set $zobj = zend_objects_get_address($zvalue) end if $handlers->get_class_entry == &zend_std_object_get_class set $cname = $zobj->ce.name.s else set $cname = "Unknown" end printf "(%s) #%d", $cname, $handle if ! $arg1 if $handlers->get_properties == &zend_std_get_properties set $ht = $zobj->properties if $ht printf "(%d): ", $ht->nNumOfElements printf "{\n" set $ind = $ind + 1 ____print_ht $ht 1 1 set $ind = $ind - 1 set $i = $ind while $i > 0 printf " " set $i = $i - 1 end printf "}" else echo "no properties found" end end end set $type = 0 end if $type == 6 printf "(%d): \"%s\"", $zvalue->value.str.len, $zvalue->value.str.val end if $type == 7 printf ": #%d", $zvalue->value.lval end if $type == 8 end if $type == 9 end if $type == 10 printf "(%d): [%p]: \"", $zvalue->value.str.len, $zvalue->value.str.val printu $zvalue->value.ustr.val $zvalue->value.str.len end if $type > 10 end printf "\n" end define ____printzv ____executor_globals set $zvalue = $arg0 printf "[0x%08x] ", $zvalue if $zvalue == $eg.uninitialized_zval_ptr printf "*uninitialized* " end set $zcontents = (zval*) $zvalue if $arg1 ____printzv_contents $zcontents $arg1 else ____printzv_contents $zcontents 0 end end define ____print_const_table set $ht = $arg0 set $p = $ht->pListHead while $p != 0 set $const = (zend_constant *) $p->pData set $i = $ind while $i > 0 printf " " set $i = $i - 1 end if $p->nKeyLength > 0 printf "\"%s\" => ", $p->key.arKey.s else printf "%d => ", $p->h end ____printzv_contents &$const->value 0 set $p = $p->pListNext end end define print_const_table set $ind = 1 printf "[0x%08x] {\n", $arg0 ____print_const_table $arg0 printf "}\n" end define ____print_ht set $ht = $arg0 set $obj = $arg1 set $p = $ht->pListHead set $unicode = $ht->unicode while $p != 0 set $i = $ind while $i > 0 printf " " set $i = $i - 1 end if $p->nKeyLength > 0 if $obj && $p->key.arKey.s[0] == 0 if $p->key.arKey.s[1] == '*' printf "\"protected %s\" => ", $p->key.arKey.s+3 else set $n = 1 while $n < $p->nKeyLength && $p->key.arKey.s[$n] != 0 set $n = $n + 1 end printf "\"private %s::%s\" => ", $p->key.arKey.s+1, $p->key.arKey.s+$n+1 end else printf "\"" printt $unicode $p->key.arKey.u $p->nKeyLength printf "\" => " end else printf "%d => ", $p->h end if $arg1 == 0 printf "%p\n", (void*)$p->pData end if $arg1 == 1 set $zval = *(zval **)$p->pData ____printzv $zval 1 end if $arg1 == 2 printf "%s\n", (char*)$p->pData end set $p = $p->pListNext end end define print_ht set $ind = 1 printf "[0x%08x] (%d) {\n", $arg0, $arg0->nNumOfElements ____print_ht $arg0 0 1 printf "}\n" end document print_ht dumps elements of HashTable made of zval end define print_htptr set $ind = 1 printf "[0x%08x] (%d) {\n", $arg0, $arg0->nNumOfElements ____print_ht $arg0 0 0 printf "}\n" end document print_htptr dumps elements of HashTable made of pointers end define print_htstr set $ind = 1 printf "[0x%08x] (%d) {\n", $arg0, $arg0->nNumOfElements ____print_ht $arg0 0 2 printf "}\n" end document print_htstr dumps elements of HashTable made of strings end define ____print_ft set $ht = $arg0 set $p = $ht->pListHead set $unicode = $ht->unicode while $p != 0 set $func = (zend_function*)$p->pData set $i = $ind while $i > 0 printf " " set $i = $i - 1 end if $p->nKeyLength > 0 printf "\"" printt $unicode $p->key.arKey.u $p->nKeyLength printf "\" => " else printf "%d => ", $p->h end printf "[%p]: ", $func if $func->common.fn_flags & 0x01 printf "static " end if $func->common.fn_flags & 0x02 printf "abstract " end if $func->common.fn_flags & 0x04 printf "final " end set $visibility = zend_visibility_string($func->common.fn_flags) printf "%s", $visibility if *$visibility printf " " end if $func->common.return_reference printf "& " end printt $unicode $func->common.function_name.s 0 printf "()\n" set $p = $p->pListNext end end define print_ft set $ind = 1 printf "[0x%08x] (%d) {\n", $arg0, $arg0->nNumOfElements ____print_ft $arg0 printf "}\n" end document print_ft dumps a function table (HashTable) end define printzn ____executor_globals set $ind = 0 set $znode = $arg0 if $znode->op_type == 1 set $optype = "IS_CONST" end if $znode->op_type == 2 set $optype = "IS_TMP_VAR" end if $znode->op_type == 4 set $optype = "IS_VAR" end if $znode->op_type == 8 set $optype = "IS_UNUSED" end printf "[0x%08x] %s", $znode, $optype if $znode->op_type == 1 printf ": " ____printzv &$znode->u.constant 0 end if $znode->op_type == 2 printf ": " set $tvar = (union _temp_variable *)((char *)$eg.current_execute_data->Ts + $znode->u.var) ____printzv ((union _temp_variable *)$tvar)->tmp_var 0 end if $znode->op_type == 4 printf ": " set $tvar = (union _temp_variable *)((char *)$eg.current_execute_data->Ts + $znode->u.var) ____printzv *$tvar->var.ptr_ptr 0 end if $znode->op_type == 8 printf "\n" end end document printzn print type and content of znode. usage: printzn &opline->op1 end define printzops printf "op1 => " printzn &execute_data->opline.op1 printf "op2 => " printzn &execute_data->opline.op2 printf "result => " printzn &execute_data->opline.result end document printzops dump operands of the current opline end define zbacktrace ____executor_globals dump_bt $eg.current_execute_data end document zbacktrace prints backtrace. This command is almost a short cut for > (gdb) ____executor_globals > (gdb) dump_bt $eg.current_execute_data end define zmemcheck set $p = alloc_globals.head set $stat = "?" set $total_size = 0 if $arg0 != 0 set $not_found = 1 else set $not_found = 0 end printf " block size status file:line\n" printf "-------------------------------------------------------------------------------\n" while $p set $aptr = $p + sizeof(struct _zend_mem_header) + sizeof(align_test) if $arg0 == 0 || (void *)$aptr == (void *)$arg0 if $p->magic == 0x7312f8dc set $stat = "OK" end if $p->magic == 0x99954317 set $stat = "FREED" end if $p->magic == 0xfb8277dc set $stat = "CACHED" end set $filename = strrchr($p->filename, '/') if !$filename set $filename = $p->filename else set $filename = $filename + 1 end printf " 0x%08x ", $aptr if $p->size == sizeof(struct _zval_struct) && ((struct _zval_struct *)$aptr)->type >= 0 && ((struct _zval_struct *)$aptr)->type < 10 printf "ZVAL?(%-2d) ", $p->size else printf "%-9d ", $p->size end set $total_size = $total_size + $p->size printf "%-06s %s:%d", $stat, $filename, $p->lineno if $p->orig_filename set $orig_filename = strrchr($p->orig_filename, '/') if !$orig_filename set $orig_filename = $p->orig_filename else set $orig_filename = $orig_filename + 1 end printf " <= %s:%d\n", $orig_filename, $p->orig_lineno else printf "\n" end if $arg0 != 0 set $p = 0 set $not_found = 0 else set $p = $p->pNext end else set $p = $p->pNext end end if $not_found printf "no such block that begins at 0x%08x.\n", $aptr end if $arg0 == 0 printf "-------------------------------------------------------------------------------\n" printf " total: %d bytes\n", $total_size end end document zmemcheck show status of a memory block. usage: zmemcheck [ptr]. if ptr is 0, all blocks will be listed. end