http://www.mediawiki.org/wiki/Special:Code/MediaWiki/56257
Revision: 56257
Author: midom
Date: 2009-09-13 12:53:30 +0000 (Sun, 13 Sep 2009)
Log Message:
-----------
make way for new hardy-based package
Removed Paths:
-------------
trunk/debs/php5/.gdbinit
trunk/debs/php5/debian/
Deleted: trunk/debs/php5/.gdbinit
===================================================================
--- trunk/debs/php5/.gdbinit 2009-09-13 12:51:07 UTC (rev 56256)
+++ trunk/debs/php5/.gdbinit 2009-09-13 12:53:30 UTC (rev 56257)
@@ -1,508 +0,0 @@
-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])
- else
- set $eg = executor_globals
- end
-end
-
-document ____executor_globals
- portable way of accessing executor_globals
- 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 printzv
- set $ind = 1
- ____printzv $arg0 0
-end
-
-document printzv
- prints content of zval
-end
-
-define ____printzv_contents
- set $zvalue = $arg0
- set $type = $zvalue->type
-
- printf "(refcount=%d) ", $zvalue->refcount
- if $type == 0
- printf "NULL"
- end
- if $type == 1
- printf "long: %ld", $zvalue->value.lval
- end
- if $type == 2
- printf "double: %lf", $zvalue->value.dval
- end
- if $type == 3
- printf "bool: "
- if $zvalue->value.lval
- printf "true"
- else
- printf "false"
- end
- end
- if $type == 4
- printf "array(%d): ", $zvalue->value.ht->nNumOfElements
- if ! $arg1
- printf "{\n"
- set $ind = $ind + 1
- ____print_ht $zvalue->value.ht
- 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
- printf "object"
- ____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
- 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
- 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 "string(%d): ", $zvalue->value.str.len
- ____print_str $zvalue->value.str.val $zvalue->value.str.len
- end
- if $type == 7
- printf "resource: #%d", $zvalue->value.lval
- end
- if $type == 8
- printf "constant"
- end
- if $type == 9
- printf "const_array"
- end
- if $type > 9
- printf "unknown type %d", $type
- 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
- ____print_str $p->arKey $p->nKeyLength
- printf " => "
- 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 $p = $ht->pListHead
-
- while $p != 0
- set $zval = *(zval **)$p->pData
-
- set $i = $ind
- while $i > 0
- printf " "
- set $i = $i - 1
- end
-
- if $p->nKeyLength > 0
- ____print_str $p->arKey $p->nKeyLength
- printf " => "
- else
- printf "%d => ", $p->h
- end
-
- ____printzv $zval 1
- set $p = $p->pListNext
- end
-end
-
-define print_ht
- set $ind = 1
- printf "[0x%08x] {\n", $arg0
- ____print_ht $arg0
- printf "}\n"
-end
-
-document print_ht
- dumps elements of HashTable made of zval
-end
-
-define ____print_ft
- set $ht = $arg0
- set $p = $ht->pListHead
-
- 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
- ____print_str $p->arKey $p->nKeyLength
- printf " => "
- else
- printf "%d => ", $p->h
- end
-
- printf "\"%s\"\n", $func->common.function_name
- set $p = $p->pListNext
- end
-end
-
-define print_ft
- set $ind = 1
- printf "[0x%08x] {\n", $arg0
- ____print_ft $arg0
- printf "}\n"
-end
-
-document print_ft
- dumps a function table (HashTable)
-end
-
-define ____print_inh_class
- set $ce = $arg0
- if $ce->ce_flags & 0x10 || $ce->ce_flags & 0x20
- printf "abstract "
- else
- if $ce->ce_flags & 0x40
- printf "final "
- end
- end
- printf "class %s", $ce->name
- if $ce->parent != 0
- printf " extends %s", $ce->parent->name
- end
- if $ce->num_interfaces != 0
- printf " implements"
- set $tmp = 0
- while $tmp < $ce->num_interfaces
- printf " %s", $ce->interfaces[$tmp]->name
- set $tmp = $tmp + 1
- if $tmp < $ce->num_interfaces
- printf ","
- end
- end
- end
- set $ce = $ce->parent
-end
-
-define ____print_inh_iface
- set $ce = $arg0
- printf "interface %s", $ce->name
- if $ce->num_interfaces != 0
- set $ce = $ce->interfaces[0]
- printf " extends %s", $ce->name
- else
- set $ce = 0
- end
-end
-
-define print_inh
- set $ce = $arg0
- set $depth = 0
- while $ce != 0
- set $tmp = $depth
- while $tmp != 0
- printf " "
- set $tmp = $tmp - 1
- end
- set $depth = $depth + 1
- if $ce->ce_flags & 0x80
- ____print_inh_iface $ce
- else
- ____print_inh_class $ce
- end
- printf " {\n"
- end
- while $depth != 0
- set $tmp = $depth
- while $tmp != 1
- printf " "
- set $tmp = $tmp - 1
- end
- printf "}\n"
- set $depth = $depth - 1
- end
-end
-
-define print_pi
- set $pi = $arg0
- printf "[0x%08x] {\n", $pi
- printf " h = %lu\n", $pi->h
- printf " flags = %d (", $pi->flags
- if $pi->flags & 0x100
- printf "ZEND_ACC_PUBLIC"
- else
- if $pi->flags & 0x200
- printf "ZEND_ACC_PROTECTED"
- else
- if $pi->flags & 0x400
- printf "ZEND_ACC_PRIVATE"
- else
- if $pi->flags & 0x800
- printf "ZEND_ACC_CHANGED"
- end
- end
- end
- end
- printf ")\n"
- printf " name = "
- ____print_str $pi->name $pi->name_length
- printf "\n}\n"
-end
-
-define ____print_str
- set $tmp = 0
- set $str = $arg0
- printf "\""
- while $tmp < $arg1
- if $str[$tmp] > 32 && $str[$tmp] < 127
- printf "%c", $str[$tmp]
- else
- printf "\\%o", $str[$tmp]
- end
- set $tmp = $tmp + 1
- end
- printf "\""
-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
_______________________________________________
MediaWiki-CVS mailing list
[email protected]
https://lists.wikimedia.org/mailman/listinfo/mediawiki-cvs
