X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=tcl%2Finterface%2Fparport.cfg;h=b9fceeb852b034aff152e4237283baf2739f2c3d;hb=5e7612eb4c87e8e7a7000b42ff5d0f7e5c70fc42;hp=0f18ce9edb0f68dd0e3cbacab849d566586264db;hpb=dfba7fa949ae12089aa02dab557a46520c816d28;p=fw%2Fopenocd

diff --git a/tcl/interface/parport.cfg b/tcl/interface/parport.cfg
index 0f18ce9ed..b9fceeb85 100644
--- a/tcl/interface/parport.cfg
+++ b/tcl/interface/parport.cfg
@@ -1,8 +1,21 @@
+# SPDX-License-Identifier: GPL-2.0-or-later
+
 #
 # Parallel port wiggler (many clones available) on port 0x378
 #
 # Addresses: 0x378/LPT1 or 0x278/LPT2 ...
+#
+
+if { [info exists PARPORTADDR] } {
+   set _PARPORTADDR $PARPORTADDR
+} else {
+   if {$tcl_platform(platform) eq "windows"} {
+      set _PARPORTADDR 0x378
+   } {
+      set _PARPORTADDR 0
+   }
+}
 
-interface parport
-parport_port 0x378
-parport_cable wiggler
+adapter driver parport
+parport port $_PARPORTADDR
+parport cable wiggler