git.gag.com Git - fw/openocd/blob - src/jtag/startup.tcl

   1 # Defines basic Tcl procs for OpenOCD JTAG module
   2
   3 # Executed during "init". Can be overridden
   4 # by board/target/... scripts
   5 proc jtag_init {} {
   6         if {[catch {jtag arp_init} err]!=0} {
   7                 # try resetting additionally
   8                 init_reset startup
   9         }
  10 }
  11
  12 #########
  13
  14 # TODO: power_restore and power_dropout are currently neither
  15 # documented nor supported except on ZY1000.
  16
  17 proc power_restore {} {
  18         puts "Sensed power restore."
  19         reset init
  20 }
  21
  22 add_help_text power_restore "Overridable procedure run when power restore is detected. Runs 'reset init' by default."
  23
  24 proc power_dropout {} {
  25         puts "Sensed power dropout."
  26 }
  27
  28 #########
  29
  30 # TODO: srst_deasserted and srst_asserted are currently neither
  31 # documented nor supported except on ZY1000.
  32
  33 proc srst_deasserted {} {
  34         puts "Sensed nSRST deasserted."
  35         reset init
  36 }
  37 add_help_text srst_deasserted "Overridable procedure run when srst deassert is detected. Runs 'reset init' by default."
  38
  39 proc srst_asserted {} {
  40         puts "Sensed nSRST asserted."
  41 }