Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

small improvements to tools/gdb-macros 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@16157 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2015-06-04 20:09:31 +00:00
parent d953f6e079
commit dc555cf572
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tools/gdb-macros
View File

@ -156,7 +156,7 @@ define camlint
end
define camlblock
printf "%#lx: ", $arg0
printf "%#lx: ", $arg0 - $camlwordsize
camlheap $arg0
printf " "
camlheader $arg0
@ -185,6 +185,7 @@ define camlblock
end
if $tag == 249
printf "... infix header, displaying enclosing block:\n"
set $mybaseaddr = $arg0 - $camlwordsize * $mysize
camlblock $mybaseaddr
# reset $tag, which was clobbered by the recursive call (yuck)
@ -214,7 +215,9 @@ define camlblock
if $count < $mysize
printf "... truncated ...\n"
end
end
end
printf "next block head: %#lx value: %#lx\n", \
$arg0 + $camlwordsize * $mysize, $arg0 + $camlwordsize * ($mysize+1)
end
# displays an OCaml value
@ -251,8 +254,8 @@ define camlchunks
while $chunk != 0
set $chunk_size = * (unsigned long *) ($chunk - 2 * $camlwordsize)
set $chunk_alloc = * (unsigned long *) ($chunk - 3 * $camlwordsize)
printf "chunk: addr = %#x .. %#x", $chunk, $chunk + $chunk_size
printf " (size = %#x; alloc = %#x)\n", $chunk_size, $chunk_alloc
printf "chunk: addr = %#lx .. %#lx", $chunk, $chunk + $chunk_size
printf " (size = %#lx; alloc = %#lx)\n", $chunk_size, $chunk_alloc
set $chunk = * (unsigned long *) ($chunk - $camlwordsize)
end
end