[patch] bugfix in gcc/.gdbinit

[Denis Chertykov <denisc at overta dot ru>]

Sat Sep  2 16:32:06 2000  Denis Chertykov  <denisc@overta.ru>

	* .gdbinit: Change all occurrances of $ to $arg0.

Index: gcc/.gdbinit
===================================================================
RCS file: /cvs/gcc/egcs/gcc/.gdbinit,v
retrieving revision 1.5
diff -c -3 -p -r1.5 .gdbinit
*** .gdbinit	1999/03/16 20:58:45	1.5
--- .gdbinit	2000/09/02 12:35:00
***************
*** 1,80 ****
  define pr
! set debug_rtx ($)
  end
  
  document pr
! Print the full structure of the rtx that is $.
  Works only when an inferior is executing.
  end
  
  define prl
! set debug_rtx_list ($, debug_rtx_count)
  end
  
  document prl
! Print the full structure of all rtx insns beginning at $.
  Works only when an inferior is executing.
  Uses variable debug_rtx_count to control number of insns printed:
!   debug_rtx_count > 0: print from $ on.
!   debug_rtx_count < 0: print a window around $.
  
  There is also debug_rtx_find (rtx, uid) that will scan a list for UID and print
  it using debug_rtx_list. Usage example: set $foo=debug_rtx_find(first, 42)
  end
  
  define pt
! set debug_tree ($)
  end
  
  document pt
! Print the full structure of the tree that is $.
  Works only when an inferior is executing.
  end
  
  define ptc
! output (enum tree_code) $.common.code
  echo \n
  end
  
  document ptc
! Print the tree-code of the tree node that is $.
  end
  
  define pdn
! output $.decl.name->identifier.pointer
  echo \n
  end
  
  document pdn
! Print the name of the decl-node that is $.
  end
  
  define ptn
! output $.type.name->decl.name->identifier.pointer
  echo \n
  end
  
  document ptn
! Print the name of the type-node that is $.
  end
  
  define prc
! output (enum rtx_code) $.code
  echo \ (
! output $.mode
  echo )\n
  end
  
  document prc
! Print the rtx-code and machine mode of the rtx that is $.
  end
  
  define pi
! print $.fld[0].rtx@7
  end
  
  document pi
! Print the fields of an instruction that is $.
  end
  
  define pbs
--- 1,80 ----
  define pr
! set debug_rtx ($arg0)
  end
  
  document pr
! Print the full structure of the rtx that is $arg0.
  Works only when an inferior is executing.
  end
  
  define prl
! set debug_rtx_list ($arg0, debug_rtx_count)
  end
  
  document prl
! Print the full structure of all rtx insns beginning at $arg0.
  Works only when an inferior is executing.
  Uses variable debug_rtx_count to control number of insns printed:
!   debug_rtx_count > 0: print from $arg0 on.
!   debug_rtx_count < 0: print a window around $arg0.
  
  There is also debug_rtx_find (rtx, uid) that will scan a list for UID and print
  it using debug_rtx_list. Usage example: set $foo=debug_rtx_find(first, 42)
  end
  
  define pt
! set debug_tree ($arg0)
  end
  
  document pt
! Print the full structure of the tree that is $arg0.
  Works only when an inferior is executing.
  end
  
  define ptc
! output (enum tree_code) $arg0.common.code
  echo \n
  end
  
  document ptc
! Print the tree-code of the tree node that is $arg0.
  end
  
  define pdn
! output $arg0.decl.name->identifier.pointer
  echo \n
  end
  
  document pdn
! Print the name of the decl-node that is $arg0.
  end
  
  define ptn
! output $arg0.type.name->decl.name->identifier.pointer
  echo \n
  end
  
  document ptn
! Print the name of the type-node that is $arg0.
  end
  
  define prc
! output (enum rtx_code) $arg0.code
  echo \ (
! output $arg0.mode
  echo )\n
  end
  
  document prc
! Print the rtx-code and machine mode of the rtx that is $arg0.
  end
  
  define pi
! print $arg0.fld[0].rtx@7
  end
  
  document pi
! Print the fields of an instruction that is $arg0.
  end
  
  define pbs