Changeset 11382


Ignore:
Timestamp:
Nov 17, 2008, 11:31:30 AM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/darwinppc/.gdbinit

    r5394 r11382  
    1 define header32
    2 x/x $arg0-6
    3 end
    4 
    5 define header64
    6 x/x $arg0-12
    7 end
    8 
    9 define lisp_string32
     1define pl
    102call print_lisp_object($arg0)
    113end
    124
    13 define lisp_string64
    14 call print_lisp_object($arg0)
     5define arg_x
     6pl $r21
    157end
    168
    17 define pname32
    18 lisp_string (*($arg0-2))
     9define arg_y
     10pl $r22
    1911end
    2012
    21 # GDB's expression parser seems to have difficulty
    22 # with this unless the temporary is used.
    23 define pname64
    24 set $temp=*((long *)((long)($arg0-4)))
    25 lisp_string64 $temp
     13define arg_z
     14pl $r23
    2615end
    2716
    28 define ada
    29  p *all_areas->succ
     17define lw
     18pl $r16
    3019end
    3120
    32 define _TCR
    33  p/x *(TCR *) $arg0
     21define fname
     22pl $r17
    3423end
    3524
    36 define tcr32
    37  _TCR $r13
    38 end
    39 
    40 define tcr64
    41  _TCR $r2
    42 end
    43 
    44 define regs32
    45  p/x ((ExceptionInformation *)$arg0)->uc_mcontext.ss
    46 end
    47 
    48 define regs64
    49  p/x ((ExceptionInformation *)$arg0)->uc_mcontext64.ss
    50 end
    51 
    52 define xpGPR32
    53  p/x ((unsigned long *)&((((ExceptionInformation *)$arg0)->uc_mcontext.ss)))[2+$arg1]
    54 end
    55 
    56 define xpGPR64
    57  p/x ((unsigned long *)&((((ExceptionInformation *)$arg0)->uc_mcontext64.ss)))[2+$arg1]
    58 end
    59 
    60 define xpPC32
    61  p/x ((ExceptionInformation *)$arg0)->uc_mcontext.ss.srr0
    62 end
    63 
    64 define xpPC64
    65  p/x ((ExceptionInformation *)$arg0)->uc_mcontext64.ss.srr0
    66 end
    67 
    68 set $ppc64=0
    69 
    70 define lisp_string
    71  if $ppc64
    72   lisp_string64 $arg0
    73  else
    74   lisp_string32 $arg0
    75  end
    76 end
    77 
    78 define pname
    79  if $ppc64
    80   pname64 $arg0
    81  else
    82   pname32 $arg0
    83  end
    84 end
    85 
    86 define tcr
    87  if $ppc64
    88   tcr64
    89  else
    90   tcr32
    91  end
    92 end
    93 
    94 define regs
    95  if $ppc64
    96   regs64 $arg0
    97  else
    98   regs32 $arg0
    99  end
    100 end
    101 
    102 define xpGPR
    103  if $ppc64
    104   xpGPR64 $arg0 $arg1
    105  else
    106   xpGPR32 $arg0 $arg1
    107  end
    108 end
    109 
    110 define xpPC
    111  if $ppc64
    112   xpPC64 $arg0
    113  else
    114   xpPC32 $arg0
    115  end
    116 end
    117 
    118 define header
    119  if $ppc64
    120   header64 $arg0
    121  else
    122   header32 $arg0
    123  end
    124 end
    12525
    12626break Bug
Note: See TracChangeset for help on using the changeset viewer.