archive/php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2025-08-20 09:24:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Support for ZTS

Browse source
This commit is contained in:
Marcus Boerger 2003-04-06 20:19:52 +00:00
parent 33fb9a6cdb
commit cfbf35a5f2
1 changed files with 36 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

53
.gdbinit
View file

@ -1,6 +1,21 @@
set $zts = 0
define ____executor_globals
if $zts
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
type "set $zts = 1" if you use --enable-maintainer-zts on your configure line
end
define dump_bt define dump_bt
set $t = $arg0 set $t = $arg0
while $t while $t
printf "[0x%08x] ", $t printf "[0x%08x] ", $t
if $t->function_state.function->common.function_name if $t->function_state.function->common.function_name
printf "%s() ", $t->function_state.function->common.function_name printf "%s() ", $t->function_state.function->common.function_name
@ -12,7 +27,7 @@ define dump_bt
end end
set $t = $t->prev_execute_data set $t = $t->prev_execute_data
printf "\n" printf "\n"
end end
end end
document dump_bt document dump_bt
@ -29,6 +44,7 @@ document printzv
end end
define ____printzv define ____printzv
____executor_globals
set $zvalue = $arg0 set $zvalue = $arg0
if $zvalue->type == 0 if $zvalue->type == 0
@ -64,7 +80,7 @@ define ____printzv
printf "[0x%08x] ", $zvalue printf "[0x%08x] ", $zvalue
if $zvalue == executor_globals.uninitialized_zval_ptr if $zvalue == $eg.uninitialized_zval_ptr
printf "*uninitialized* " printf "*uninitialized* "
end end
printf "(refcount=%d) %s: ", $zvalue->refcount, $typename printf "(refcount=%d) %s: ", $zvalue->refcount, $typename
@ -94,17 +110,19 @@ define ____printzv
if $zvalue->type == 5 if $zvalue->type == 5
if ! $arg1 if ! $arg1
printf "(prop examination disabled due to a gdb bug)" printf "(prop examination disabled due to a gdb bug)"
# set $ht = $zvalue->value.obj.handlers->get_properties($zvalue) if $zvalue->value.obj.handlers->get_properties
# printf "{\n" # set $ht = $zvalue->value.obj.handlers->get_properties($zvalue)
# set $ind = $ind + 1 # printf "{\n"
# ____print_ht $ht # set $ind = $ind + 1
# set $ind = $ind - 1 # ____print_ht $ht
# set $i = $ind # set $ind = $ind - 1
# while $i > 0 # set $i = $ind
# printf " " # while $i > 0
# set $i = $i - 1 # printf " "
# end # set $i = $i - 1
# printf "}" # end
# printf "}"
end
end end
end end
if $zvalue->type == 6 if $zvalue->type == 6
@ -156,6 +174,7 @@ document print_ht
end end
define printzn define printzn
____executor_globals
set $ind = 0 set $ind = 0
set $znode = $arg0 set $znode = $arg0
if $znode->op_type == 1 if $znode->op_type == 1
@ -179,12 +198,12 @@ define printzn
end end
if $znode->op_type == 2 if $znode->op_type == 2
printf ": " printf ": "
set $tvar = (union _temp_variable *)((char *)executor_globals.current_execute_data->Ts + $znode->u.var) set $tvar = (union _temp_variable *)((char *)$eg.current_execute_data->Ts + $znode->u.var)
____printzv ((union _temp_variable *)$tvar)->tmp_var ____printzv ((union _temp_variable *)$tvar)->tmp_var
end end
if $znode->op_type == 4 if $znode->op_type == 4
printf ": " printf ": "
set $tvar = (union _temp_variable *)((char *)executor_globals.current_execute_data->Ts + $znode->u.var) set $tvar = (union _temp_variable *)((char *)$eg.current_execute_data->Ts + $znode->u.var)
____printzv *$tvar->var.ptr_ptr ____printzv *$tvar->var.ptr_ptr
end end
if $znode->op_type == 8 if $znode->op_type == 8