From 679f6602fd1a7e9763bac52f06bbf2db28098d9a Mon Sep 17 00:00:00 2001 From: Spencer Oliver Date: Tue, 16 Mar 2010 09:59:05 +0000 Subject: [PATCH] PARPORT: add PARPORTADDR tcl variable Add PARPORTADDR tcl variable making it easier to change parallel port address in scripts. Signed-off-by: Spencer Oliver --- tcl/interface/flashlink.cfg | 8 +++++++- tcl/interface/parport.cfg | 8 +++++++- 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 -- 2.39.5