From: Spencer Oliver Date: Tue, 16 Mar 2010 09:59:05 +0000 (+0000) Subject: PARPORT: add PARPORTADDR tcl variable X-Git-Tag: v0.5.0-rc1~841 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=679f6602fd1a7e9763bac52f06bbf2db28098d9a;p=openocd PARPORT: add PARPORTADDR tcl variable Add PARPORTADDR tcl variable making it easier to change parallel port address in scripts. Signed-off-by: Spencer Oliver --- diff --git a/tcl/interface/flashlink.cfg b/tcl/interface/flashlink.cfg index 4b00de91..5c81cf5a 100644 --- a/tcl/interface/flashlink.cfg +++ b/tcl/interface/flashlink.cfg @@ -5,6 +5,12 @@ # http://www.st.com/stonline/products/literature/um/7889.pdf # +if { [info exists PARPORTADDR] } { + set _PARPORTADDR $PARPORTADDR +} else { + set _PARPORTADDR 0 +} + interface parport -parport_port 0 +parport_port $_PARPORTADDR parport_cable flashlink diff --git a/tcl/interface/parport.cfg b/tcl/interface/parport.cfg index 0f18ce9e..326005a9 100644 --- a/tcl/interface/parport.cfg +++ b/tcl/interface/parport.cfg @@ -3,6 +3,12 @@ # # Addresses: 0x378/LPT1 or 0x278/LPT2 ... +if { [info exists PARPORTADDR] } { + set _PARPORTADDR $PARPORTADDR +} else { + set _PARPORTADDR 0x378 +} + interface parport -parport_port 0x378 +parport_port $_PARPORTADDR parport_cable wiggler diff --git a/tcl/interface/parport_dlc5.cfg b/tcl/interface/parport_dlc5.cfg index 85caefc7..d0f183fc 100644 --- a/tcl/interface/parport_dlc5.cfg +++ b/tcl/interface/parport_dlc5.cfg @@ -4,7 +4,13 @@ # http://www.xilinx.com/itp/xilinx4/data/docs/pac/appendixb.html # +if { [info exists PARPORTADDR] } { + set _PARPORTADDR $PARPORTADDR +} else { + set _PARPORTADDR 0 +} + interface parport -parport_port 0 +parport_port $_PARPORTADDR parport_cable dlc5