diff options
| author | Spencer Oliver <ntfreak@users.sourceforge.net> | 2010-03-16 09:59:05 +0000 |
|---|---|---|
| committer | Spencer Oliver <ntfreak@users.sourceforge.net> | 2010-03-16 10:10:21 +0000 |
| commit | 679f6602fd1a7e9763bac52f06bbf2db28098d9a (patch) | |
| tree | 5a6662f2be551b8e987da5698de354c27b0a9df0 | |
| parent | 82f44a4708cdfdf2bf4b386a4751e6b43adad2b2 (diff) | |
| download | openocd+libswd-679f6602fd1a7e9763bac52f06bbf2db28098d9a.tar.gz openocd+libswd-679f6602fd1a7e9763bac52f06bbf2db28098d9a.tar.bz2 openocd+libswd-679f6602fd1a7e9763bac52f06bbf2db28098d9a.tar.xz openocd+libswd-679f6602fd1a7e9763bac52f06bbf2db28098d9a.zip | |
PARPORT: add PARPORTADDR tcl variable
Add PARPORTADDR tcl variable making it easier to
change parallel port address in scripts.
Signed-off-by: Spencer Oliver <ntfreak@users.sourceforge.net>
| -rw-r--r-- | tcl/interface/flashlink.cfg | 8 | ||||
| -rw-r--r-- | tcl/interface/parport.cfg | 8 | ||||
| -rw-r--r-- | tcl/interface/parport_dlc5.cfg | 8 |
3 files changed, 21 insertions, 3 deletions
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 |