blob: e3ba0f505c66301b06b3b55606ed920e00feee2d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
#! /bin/bash
BAR=0
USE=1
ITERATIONS=1
TLP_SIZE=32
BUFFER_SIZE=8
function pci {
PCILIB_PATH=`pwd`/..
LD_LIBRARY_PATH="$PCILIB_PATH" $PCILIB_PATH/pci $*
}
function reset {
pci -b $BAR -w 0 1
usleep 1000
pci -b $BAR -w 0 0
pci -b $BAR -w 4 0
}
function read_cfg {
# echo $1 1>&2
pci -a config -r 0x$1 | awk '{ print $2; }'
}
function parse_config {
info=0x`pci -b $BAR -r 0 | awk '{ print $2; }'`
model=`printf "%X" $((info>>24))`
if [ $model -eq 14 ]; then
model="Xilinx Virtex-6"
else
model="Xilinx $model"
fi
version=$(((info >> 8) & 0xFF))
data_width=$((16 * (2 ** ((info >> 16) & 0xF))))
echo "$model, build $version, $data_width bits"
next=`read_cfg 34 | cut -c 7-8`
while [ $next -ne 0 ]; do
cap=`read_cfg $next`
capid=`echo $cap | cut -c 7-8`
if [ $capid -eq 10 ]; then
addr=`printf "%X" $((0x$next + 12))`
pcie_link1=`read_cfg $addr`
addr=`printf "%X" $((0x$next + 16))`
pcie_link2=`read_cfg $addr`
link_speed=$((((0x$pcie_link2 & 0xF0000) >> 16)))
link_width=$((((0x$pcie_link2 & 0x3F00000) >> 20)))
dev_link_speed=$((((0x$pcie_link1 & 0xF))))
dev_link_width=$((((0x$pcie_link1 & 0x3F0) >> 4)))
fi
next=`echo $cap | cut -c 5-6`
done
echo "Link: PCIe gen$link_speed x$link_width"
if [ $link_speed -ne $dev_link_speed -o $link_width -ne $dev_link_width ]; then
echo " * But device capable of gen$dev_link_speed x$dev_link_width"
fi
info=0x`read_cfg 40`
max_tlp=$((2 ** (5 + ((info & 0xE0) >> 5))))
echo "TLP: 32 dwords (transfering 32 TLP per request)"
if [ $max_tlp -ne $TLP_SIZE ]; then
echo " * But device is able to transfer TLP up to $max_tlp bytes"
fi
# 2500 MT/s, but PCIe gen1 and gen2 uses 10 bit encoding
speed=$((link_width * link_speed * 2500 / 10))
}
reset
parse_config
pci --enable-irq
pci --acknowledge-irq
# TLP size
pci -b $BAR -w 0x0C 0x`echo "obase=16; $TLP_SIZE" | bc`
# TLP count
pci -b $BAR -w 0x10 0x`echo "obase=16; $BUFFER_SIZE * 1024 * 1024 / $TLP_SIZE / 4" | bc`
# Data
pci -b $BAR -w 0x14 0x13131313
bus="80000000"
dmaperf=0
for i in `seq 1 $ITERATIONS`; do
for addr in $bus; do
pci -b $BAR -w 0x08 0x$addr
#Trigger
pci -b $BAR -w 0x04 0x01
pci --wait-irq
status=`pci -b $BAR -r 0x04 | awk '{print $2; }' | cut -c 5-8`
if [ $status != "0101" ]; then
echo "Read failed, invalid status: $status"
fi
dmaperf=$((dmaperf + 0x`pci -b $BAR -r 0x28 | awk '{print $2}'`))
reset
done
done
pci --free-kernel-memory $USE
pci --disable-irq
echo
# Don't ask me about this formula
echo "Performance reported by FPGA: $(($BUFFER_SIZE * 1024 * 1024 * ITERATIONS * $speed / $dmaperf / 8)) MB/s"
#pci -b $BAR -r 0 -s 32
|
