summaryrefslogtreecommitdiff
path: root/tcl/interface
diff options
context:
space:
mode:
authorSpencer Oliver <ntfreak@users.sourceforge.net>2010-03-16 09:59:05 +0000
committerSpencer Oliver <ntfreak@users.sourceforge.net>2010-03-16 10:10:21 +0000
commit679f6602fd1a7e9763bac52f06bbf2db28098d9a (patch)
tree5a6662f2be551b8e987da5698de354c27b0a9df0 /tcl/interface
parent82f44a4708cdfdf2bf4b386a4751e6b43adad2b2 (diff)
downloadopenocd_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>
Diffstat (limited to 'tcl/interface')
-rw-r--r--tcl/interface/flashlink.cfg8
-rw-r--r--tcl/interface/parport.cfg8
-rw-r--r--tcl/interface/parport_dlc5.cfg8
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