diff options
Diffstat (limited to 'docs/internals/gdb.script')
-rw-r--r-- | docs/internals/gdb.script | 76 |
1 files changed, 0 insertions, 76 deletions
diff --git a/docs/internals/gdb.script b/docs/internals/gdb.script deleted file mode 100644 index a1122343c162..000000000000 --- a/docs/internals/gdb.script +++ /dev/null @@ -1,76 +0,0 @@ -# @(#)gdb.script 8.5 (Berkeley) 5/4/96 - -# display the VI screen map -# usage dmap(sp) -define dmap - set $h = ((VI_PRIVATE *)$arg0->vi_private)->h_smap - set $t = ((VI_PRIVATE *)$arg0->vi_private)->t_smap - while ($h <= $t) - printf "lno: %2d; soff %d coff %d ", \ - (int)$h->lno, (int)$h->soff, (int)$h->coff - if ($h->c_ecsize == 0) - printf "flushed\n" - else - printf "\n\tsboff %d; scoff %d\n", \ - (int)$h->c_sboff, (int)$h->c_scoff - printf "\teboff %d; eclen %d; ecsize %d\n", \ - (int)$h->c_eboff, (int)$h->c_eclen, \ - (int)$h->c_ecsize - end - set $h = $h + 1 - end -end - -# display the tail of the VI screen map -define tmap - set $h = ((VI_PRIVATE *)$arg0->vi_private)->h_smap - set $t = ((VI_PRIVATE *)$arg0->vi_private)->t_smap - while ($t >= $h) - printf "lno: %2d; soff %d coff %d ", \ - (int)$t->lno, (int)$t->soff, (int)$t->coff - if ($t->c_ecsize == 0) - printf "flushed\n" - else - printf "\n\tsboff %d; scoff %d\n", \ - (int)$t->c_sboff, (int)$t->c_scoff - printf "\teboff %d; eclen %d; ecsize %d\n", \ - (int)$t->c_eboff, (int)$t->c_eclen, \ - (int)$t->c_ecsize - end - set $t = $t - 1 - end -end - -# display the private structures -define clp - print *((CL_PRIVATE *)sp->gp->cl_private) -end -define vip - print *((VI_PRIVATE *)sp->vi_private) -end -define exp - print *((EX_PRIVATE *)sp->ex_private) -end - -# display the marks -define markp - set $h = sp->ep->marks.next - set $t = &sp->ep->marks - while ($h != 0 && $h != $t) - printf "key %c lno: %d cno: %d flags: %x\n", \ - ((MARK *)$h)->name, ((MARK *)$h)->lno, \ - ((MARK *)$h)->cno, ((MARK *)$h)->flags - set $h = ((MARK *)$h)->next - end -end - -# display the tags -define tagp - set $h = sp->taghdr.next - set $t = &sp->taghdr - while ($h != 0 && $h != $t) - printf "tag: %s lno %d cno %d\n", ((TAG *)$h)->frp->fname, \ - ((TAG *)$h)->lno, ((TAG *)$h)->cno - set $h= ((TAG *)$h)->next - end -end |