Skip to content

Commit f4d81cd

Browse files
zapb-0borneoa
authored andcommitted
tcl/interface: Restructure parport config files
Provide cable specific configuration files like for the FTDI interface. Depcrecate the old configuration files but keep them until the next release for compatibility reasons. Change-Id: I436bd60779a107120c9e1b1f0b8a69a39a240ad4 Signed-off-by: Marc Schink <[email protected]> Reviewed-on: https://review.openocd.org/c/openocd/+/8514 Reviewed-by: Antonio Borneo <[email protected]> Tested-by: jenkins
1 parent 99f60d5 commit f4d81cd

File tree

4 files changed

+42
-22
lines changed

4 files changed

+42
-22
lines changed

tcl/interface/parport.cfg

Lines changed: 2 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -5,17 +5,6 @@
55
#
66
# Addresses: 0x378/LPT1 or 0x278/LPT2 ...
77
#
8+
echo "DEPRECATED: use interface/parport/wiggler.cfg instead of deprecated interface/parport.cfg"
89

9-
if { [info exists PARPORTADDR] } {
10-
set _PARPORTADDR $PARPORTADDR
11-
} else {
12-
if {$tcl_platform(platform) eq "windows"} {
13-
set _PARPORTADDR 0x378
14-
} {
15-
set _PARPORTADDR 0
16-
}
17-
}
18-
19-
adapter driver parport
20-
parport port $_PARPORTADDR
21-
parport cable wiggler
10+
source [find interface/parport/wiggler.cfg]

tcl/interface/parport/dlc5.cfg

Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,17 @@
1+
# SPDX-License-Identifier: GPL-2.0-or-later
2+
3+
#
4+
# Xilinx Parallel Cable III 'DLC 5' (and various clones)
5+
#
6+
# http://www.xilinx.com/itp/xilinx4/data/docs/pac/appendixb.html
7+
#
8+
9+
if { [info exists PARPORTADDR] } {
10+
set _PARPORTADDR $PARPORTADDR
11+
} else {
12+
set _PARPORTADDR 0
13+
}
14+
15+
adapter driver parport
16+
parport port $_PARPORTADDR
17+
parport cable dlc5

tcl/interface/parport/wiggler.cfg

Lines changed: 21 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,21 @@
1+
# SPDX-License-Identifier: GPL-2.0-or-later
2+
3+
#
4+
# Parallel port wiggler (many clones available) on port 0x378
5+
#
6+
# Addresses: 0x378/LPT1 or 0x278/LPT2 ...
7+
#
8+
9+
if { [info exists PARPORTADDR] } {
10+
set _PARPORTADDR $PARPORTADDR
11+
} else {
12+
if {$tcl_platform(platform) eq "windows"} {
13+
set _PARPORTADDR 0x378
14+
} {
15+
set _PARPORTADDR 0
16+
}
17+
}
18+
19+
adapter driver parport
20+
parport port $_PARPORTADDR
21+
parport cable wiggler

tcl/interface/parport_dlc5.cfg

Lines changed: 2 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -5,13 +5,6 @@
55
#
66
# http://www.xilinx.com/itp/xilinx4/data/docs/pac/appendixb.html
77
#
8+
echo "DEPRECATED: use interface/parport/dlc5.cfg instead of deprecated interface/parport_dlc5.cfg"
89

9-
if { [info exists PARPORTADDR] } {
10-
set _PARPORTADDR $PARPORTADDR
11-
} else {
12-
set _PARPORTADDR 0
13-
}
14-
15-
adapter driver parport
16-
parport port $_PARPORTADDR
17-
parport cable dlc5
10+
source [find interface/parport/dlc5.cfg]

0 commit comments

Comments
 (0)