[Openmcl-cvs-notifications] r10715 - /trunk/source/lisp-kernel/win64/.gdbinit

[gb at clozure.com]

Author: gb
Date: Fri Sep 12 02:02:59 2008
New Revision: 10715

Log:
Copy from old win64 brach version.

Added:
    trunk/source/lisp-kernel/win64/.gdbinit

Added: trunk/source/lisp-kernel/win64/.gdbinit
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/win64/.gdbinit (added)
+++ trunk/source/lisp-kernel/win64/.gdbinit Fri Sep 12 02:02:59 2008
@@ -1,0 +1,85 @@
+directory lisp-kernel
+
+define x86_lisp_string
+x/s $arg0-5
+end
+
+define gtra
+br *$r10
+cont
+end
+
+define x86pname
+set $temp=3D*((long *)((long)($arg0-6)))
+x86_lisp_string $temp
+end
+
+
+define pname
+ x86pname $arg0
+end
+
+define l
+ call print_lisp_object($arg0)
+end
+
+define lw
+ l $r13
+end
+
+define clobber_breakpoint
+  set *(short *)($pc-2)=3D0x9090
+end
+
+define arg_z
+ l $rsi
+end
+
+define arg_y
+ l $rdi
+end
+
+define arg_x
+ l $r8
+end
+
+define bx
+ l $rbx
+end
+
+define showlist
+  set $l=3D$arg0
+  while $l !=3D 0x200b
+   set $car =3D *((LispObj *)($l+5))
+   set $l =3D  *((LispObj *)($l-3))
+   l $car
+  end
+end
+
+define lbt
+ call plbt_sp($rbp)
+end
+
+define ada
+ p/x *(all_areas->succ)
+end
+
+define lregs
+ call debug_lisp_registers($arg0,0,0)
+end
+
+break Bug
+
+display/i $pc
+
+handle SIGKILL pass nostop noprint
+handle SIGILL pass nostop noprint
+handle SIGSEGV pass nostop noprint
+handle SIGBUS pass nostop noprint
+handle SIGFPE pass nostop noprint
+handle SIG40 pass nostop noprint
+handle SIG41 pass nostop noprint
+handle SIG42 pass nostop noprint
+handle SIGPWR pass nostop noprint
+handle SIGQUIT pass nostop noprint
+