TCL: fix non TCL comments

[fw/openocd] / tcl / interface / parport_dlc5.cfg

diff --git a/tcl/interface/parport_dlc5.cfg b/tcl/interface/parport_dlc5.cfg
index 0f94c656203865bb1f0abe978187e80e963c4ba9..d0f183fc3e227b23ed8a875c460f75efc1b2e0f6 100644 (file)
--- 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 /dev/parport0
+parport_port $_PARPORTADDR
 parport_cable dlc5