[Openmcl-cvs-notifications] r11382 - /trunk/source/lisp-kernel/darwinppc/.gdbinit

[gb at clozure.com]

Author: gb
Date: Mon Nov 17 06:31:30 2008
New Revision: 11382

Log:
Get rid of some macros that never worked; use 'pl', rather than 'l'
(which is predefined in some versions of GDB.)


Modified:
    trunk/source/lisp-kernel/darwinppc/.gdbinit

Modified: trunk/source/lisp-kernel/darwinppc/.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/darwinppc/.gdbinit (original)
+++ trunk/source/lisp-kernel/darwinppc/.gdbinit Mon Nov 17 06:31:30 2008
@@ -1,127 +1,27 @@
-define header32
-x/x $arg0-6
-end
-
-define header64
-x/x $arg0-12
-end
-
-define lisp_string32
+define pl
 call print_lisp_object($arg0)
 end
 =

-define lisp_string64
-call print_lisp_object($arg0)
+define arg_x
+pl $r21
 end
 =

-define pname32
-lisp_string (*($arg0-2))
+define arg_y
+pl $r22
 end
 =

-# GDB's expression parser seems to have difficulty
-# with this unless the temporary is used.
-define pname64
-set $temp=3D*((long *)((long)($arg0-4)))
-lisp_string64 $temp
+define arg_z
+pl $r23
 end
 =

-define ada =

- p *all_areas->succ
+define lw
+pl $r16
 end
 =

-define _TCR
- p/x *(TCR *) $arg0
+define fname
+pl $r17
 end
 =

-define tcr32
- _TCR $r13
-end
-
-define tcr64
- _TCR $r2
-end
-
-define regs32
- p/x ((ExceptionInformation *)$arg0)->uc_mcontext.ss
-end
-
-define regs64
- p/x ((ExceptionInformation *)$arg0)->uc_mcontext64.ss
-end
-
-define xpGPR32
- p/x ((unsigned long *)&((((ExceptionInformation *)$arg0)->uc_mcontext.ss)=
))[2+$arg1]
-end
-
-define xpGPR64
- p/x ((unsigned long *)&((((ExceptionInformation *)$arg0)->uc_mcontext64.s=
s)))[2+$arg1]
-end
-
-define xpPC32
- p/x ((ExceptionInformation *)$arg0)->uc_mcontext.ss.srr0
-end
-
-define xpPC64
- p/x ((ExceptionInformation *)$arg0)->uc_mcontext64.ss.srr0
-end
-
-set $ppc64=3D0
-
-define lisp_string
- if $ppc64
-  lisp_string64 $arg0
- else
-  lisp_string32 $arg0
- end
-end
-
-define pname
- if $ppc64
-  pname64 $arg0
- else
-  pname32 $arg0
- end
-end
-
-define tcr
- if $ppc64
-  tcr64
- else
-  tcr32
- end
-end
-
-define regs
- if $ppc64
-  regs64 $arg0
- else
-  regs32 $arg0
- end
-end
-
-define xpGPR
- if $ppc64
-  xpGPR64 $arg0 $arg1
- else
-  xpGPR32 $arg0 $arg1
- end
-end
-
-define xpPC
- if $ppc64
-  xpPC64 $arg0
- else
-  xpPC32 $arg0
- end
-end
-
-define header
- if $ppc64
-  header64 $arg0
- else
-  header32 $arg0
- end
-end
 =

 break Bug
 =