From: Spencer Oliver <ntfreak@users.sourceforge.net>
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://review.openocd.org/gitweb?p=openocd.git;a=commitdiff_plain;h=679f6602fd1a7e9763bac52f06bbf2db28098d9a

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>
---

diff --git a/tcl/interface/flashlink.cfg b/tcl/interface/flashlink.cfg
index 4b00de91bc..5c81cf5a8d 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 0f18ce9edb..326005a9d0 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 85caefc759..d0f183fc3e 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