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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269 | ###############################################################################
# Copyright (c) 2009-2024 by Altair Engineering, Inc.
# All rights reserved.
#
# Altair Engineering, Inc. makes this software available as part of the Vision
# tool platform. As long as you are a licensee of the Vision tool platform
# you may make copies of the software and modify it to be used within the
# Vision tool platform, but you must include all of this notice on any copy.
# Redistribution without written permission to any third party, with or
# without modification, is not permitted.
# Altair Engineering, Inc. does not warrant that this software is error free
# or fit for any purpose. Altair Engineering, Inc. disclaims any liability for
# all claims, expenses, losses, damages and costs any user may incur as a
# result of using, copying or modifying the software.
# =============================================================================
# @userware
# Read Fault List
# @section
# Read Side Files and Annotate Data
# @description
# Read a faultlist sidefile and add a colored graphical mark at each pin
# of the read pinlist.
#
# *Input*
#
# Hierarchical Verilog netlist and a textfile with pinnames and
# error types (one per line).
#
# Format of the report file:
# ```
# O1 testchip_digital.DUT.U418.O UD
# O0 testchip_digital.DUT.U418.O UD
# I0 testchip_digital.DUT.U1367.I EQ
# O0 testchip_digital.DUT.U1366.O EQ
# O1 testchip_digital.DUT.U1357.O UD
# I1 testchip_digital.DUT.U1357.I UD
# ```
# First character of first field can be ignored. The second character
# of the first field is the type: can be either 0 or 1.
# The second field is the hierarchical pin name.
# Only lines with `UD` (undetected) as the third field are interesting
# and should be processed.
#
# *Result*
#
# Add a colored graphical mark at each pin of the pinlist, e.g. red
# for pins of type 0 and green for pins of type 1.
# Blocks in upper hierarchy display two values showing the number of
# type 0 and type 1 pins inside the hierarchy.
# @files
# cust10/faultVisu.tcl
# cust10/faultlist
# @example
# demo/verilog/gl85.v
# @cmdline
# -verilog @example[0]
# -userware2 @files[0] @files[1]
# @tag
# verilog netlist gui
###############################################################################
# -----------------------------------------------------------------------------
# _openFile - Show a browse file dialog to open a report file.
# -----------------------------------------------------------------------------
#
proc _openFile {db} {
set f [gui window fileDialog openFile "Open a report file" {}]
if {$f != "" } {
_readFile $f $db
}
}
# -----------------------------------------------------------------------------
# _readFile - Read the file line by line and add flat attributes to the
# database.
# -----------------------------------------------------------------------------
#
proc _readFile {filename db} {
global FaultVisu
if {$filename == ""} {
_openFile $db
}
if {($filename == "") || (![file exists $filename])} {
return
}
if {$db == {}} {
set db [gui database get]
}
if {$db == {}} {
return
}
if {$FaultVisu(show)} {
destroy .fault
toplevel .fault
wm transient .fault .
wm group .fault .
wm title .fault Faultlist
wm withdraw .fault
ttk::frame .fault.f
text .fault.f.text -bd 0 \
-font TkFixedFont \
-takefocus 1 \
-cursor {} \
-wrap none \
-highlightthickness 1 \
-xscrollcommand ".fault.f.sbx set" \
-yscrollcommand ".fault.f.sby set"
ttk::scrollbar .fault.f.sbx -orient horizontal \
-command ".fault.f.text xview"
ttk::scrollbar .fault.f.sby -orient vertical \
-command ".fault.f.text yview"
grid .fault.f.text -row 0 -column 0 -sticky news
grid .fault.f.sby -row 0 -column 1 -sticky ns
grid .fault.f.sbx -row 1 -column 0 -sticky we
grid rowconfigure .fault.f 0 -weight 1
grid columnconfigure .fault.f 0 -weight 1
grid .fault.f -row 0 -column 0 -sticky news
grid rowconfigure .fault 0 -weight 1
grid columnconfigure .fault 0 -weight 1
.fault.f.text tag configure stuck0 -background #ff0000
.fault.f.text tag configure stuck1 -background #00ff00
}
set in [open $filename r]
chan configure $in -translation binary
set lineNumber 0
set hiersep "."
while {[gets $in line] >=0 } {
incr lineNumber
if {$FaultVisu(show)} {
.fault.f.text insert end $line\n
}
##
# Check for valid line syntax: need exactly three fields.
#
if {[llength $line] != 3} {
zmessage print ERR "Bad syntax at line $lineNumber."
continue
}
##
# Split line in three fields, type, pinName and undetected statement.
#
set type [string index [lindex $line 0] 1]
set pin [lindex $line 1]
set ud [lindex $line 2]
##
# Only 'undetected' pins are interesting.
#
if {![string equal -nocase $ud "UD"]} {
continue
}
##
# Create a valid GateVision PRO object ID out of the second field.
#
set first [string first $hiersep $pin]
set top [string range $pin 0 [expr {$first - 1}]]
set name [string range $pin [expr {$first + 1}] end]
set top [$db search -icase top $top]
if {[$db oid isnull $top]} {
zmessage print ERR "Bad top name '$pin' at line $lineNumber."
continue
}
if {[catch {
set pin [$db oid createFromString pin $top $name $hiersep -icase]
} err]} {
zmessage print ERR "Bad pin name '$pin' at line $lineNumber: $err"
continue
}
##
# Type is either 0 or 1.
#
if {$type == 0} {
set mark "fault=cr,+#ff0000"
} elseif {$type == 1} {
set mark "fault=cr,+#00ff00"
} else {
set name [$db oid print $pin]
zmessage print ERR "The type of $name is not 0 nor 1 (is $type)."
continue
}
$db flatattr $pin set $mark
##
#
#
if {$FaultVisu(show)} {
.fault.f.text tag add stuck$type $lineNumber.0 $lineNumber.end
.fault.f.text tag add line$lineNumber $lineNumber.0 $lineNumber.end
.fault.f.text tag bind line$lineNumber <Enter> {
%W configure -cursor hand2
}
.fault.f.text tag bind line$lineNumber <Leave> {
%W configure -cursor {}
}
.fault.f.text tag bind line$lineNumber <Button-1> \
[list gui goto [list $pin]]
}
##
# Propagate statistic up in the hierarchy path.
#
set inst [$db oid convertTo inst $pin]
while {[$db hasParentInst $inst]} {
set inst [$db parentInst $inst]
set stuckCnt [$db flatattr $inst getValue stuck$type]
if {$stuckCnt == ""} {
set stuckCnt 0
}
incr stuckCnt
$db flatattr $inst set stuck$type=$stuckCnt
$db attr [$db moduleOf $inst] set \
"@nlv=%@cell@\nType 0: %stuck0 Type 1: %stuck1"
}
}
close $in
if {$FaultVisu(show)} {
.fault.f.text configure -state disabled
wm deiconify .fault
}
##
# Add display attribute to show all values set above.
#
$db attr -db set @nlv:marks=%fault
gui highlight changed
gui attribute changed
}
# =============================================================================
# Create the menu entry to load and display a report file.
# =============================================================================
#
set db [gui database get]
##
# Add the "Load Faultlist" command to the menu. This will prompt for
# the filename.
#
gui menu command {"Userware" "Load Faultlist"} [list _readFile "" $db]
##
# If this checkbutton is enabled then a dialog window is shown
# and displays the loaded file.
#
set FaultVisu(show) 1
gui menu checkbutton {"Userware" "Show Faultlist"} {} FaultVisu(show)
# =============================================================================
# If started with -userware2 then the report file can be given on the
# command line. In this case argc and argv are set.
# =============================================================================
#
if {$argc} {
gui database registerChangedCallback [list _readFile [lindex $argv 0]]
}
|