summaryrefslogtreecommitdiff
path: root/src/.gdbinit
diff options
context:
space:
mode:
authorJim Blandy <jimb@redhat.com>1993-02-23 14:14:19 +0000
committerJim Blandy <jimb@redhat.com>1993-02-23 14:14:19 +0000
commitcad8a4b2de183a57c46e72401fb9552c69df4519 (patch)
treedeb823168dfe039454784a420372d34fe0ba92ab /src/.gdbinit
parent8b7e4232ee9ba80b4cb3fce3ed94c95b73fb9d93 (diff)
downloademacs-cad8a4b2de183a57c46e72401fb9552c69df4519.tar.gz
* .gdbinit (xprocess): New command.
Diffstat (limited to 'src/.gdbinit')
-rw-r--r--src/.gdbinit9
1 files changed, 9 insertions, 0 deletions
diff --git a/src/.gdbinit b/src/.gdbinit
index 61d56af59f6..7045c032e01 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -137,6 +137,15 @@ document xsubr
Print the address of the subr which the Lisp_Object $ points to.
end
+define xprocess
+print (struct Lisp_Process *) (($ & 0x00ffffff) | $data_seg_bits)
+output *$
+echo \n
+end
+document xprocess
+Print the address of the struct Lisp_process which the Lisp_Object $ points to.
+end
+
define xscrollbar
print (struct scrollbar *) (($ & 0x00ffffff) | $data_seg_bits)
output *$