.gdbinit

   1 # Gdb commands useful to debug ghdl
   2
   3 define pt
   4 call vhdl.disp_tree.disp_iir ($arg0, 1, 10)
   5 end
   6
   7 document pt
   8 Print the structure of the iirs that is $arg0.
   9 end
  10
  11 define ptf
  12 call vhdl.disp_tree.disp_iir ($arg0, 1, 0)
  13 end
  14
  15 document ptf
  16 Print the iirs that is $arg0.
  17 end
  18
  19 define vhd_pt1
  20 call vhdl.disp_tree.disp_iir ($arg0, 1, 1)
  21 end
  22
  23 define pt1
  24 call vhdl.disp_tree.disp_iir ($arg0, 1, 1)
  25 end
  26
  27 define prt
  28 set lang c
  29 print (iirs__iir *) $
  30 set lang ada
  31 end
  32
  33 define pl
  34 call disp_iir_list ($arg0, 0, 0)
  35 end
  36
  37 define psrc
  38   call debug_source_loc (vhdl.nodes.get_location ($arg0))
  39 end
  40
  41 document pl
  42 Print the list of iirs that is $arg0.
  43 end
  44
  45 define plf
  46 call disp_iir_list ($arg0, 0, 1)
  47 end
  48
  49 document plf
  50 Print flatly the list of iirs that is $arg0.
  51 end
  52
  53 define ptc
  54 call vhdl.disp_tree.disp_chain ($arg0, 0, 0)
  55 end
  56
  57 document ptc
  58 Print the chain of iirs that is $arg0
  59 end
  60
  61 define pv
  62 call disp_value ($arg0)
  63 end
  64
  65 document pv
  66 Print the value that is $.
  67 end
  68
  69 define ploc
  70 call disp_iir_location ($arg0)
  71 end
  72
  73 document ploc
  74 Print the location for iir $.
  75 end
  76
  77 define ppsltf
  78   call psl.dump_tree.disp_tree($arg0, 0, 2)
  79 end
  80
  81 document ppsltf
  82 Print the PSL node that is $arg0
  83 end
  84
  85 set lang ada
  86
  87 # Must be the last command: some distributions use a shared libgnat by default,
  88 # and don't have the minimal required set of debug info to support this command.
  89 # As a result, this command fails and stop this script.
  90 catch exception