parent
ce149397ec
commit
1f56ffa51a
|
@ -37,10 +37,14 @@ foreach line [split $symbols "\n"] {
|
||||||
set type "U"
|
set type "U"
|
||||||
|
|
||||||
# match undefined symbol
|
# match undefined symbol
|
||||||
regexp {^(\w+) U\s*$} $line dummy name
|
if {![regexp {^(\w+) U\s*$} $line dummy name]} {
|
||||||
|
|
||||||
# match defined symbol, which does not always feature a size value
|
# match defined symbol, which does not always feature a size value
|
||||||
regexp {^([\w.]+) (\w) \w+ ?(\w*)$} $line dummy name type size_hex
|
if {![regexp {^([\w.]+) (\w) \w+ ?(\w*)$} $line dummy name type size_hex]} {
|
||||||
|
puts stderr "Error: unexpected format of line: $line"
|
||||||
|
exit -1
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
# decimal symbol size
|
# decimal symbol size
|
||||||
set size_dec [expr 0x0$size_hex]
|
set size_dec [expr 0x0$size_hex]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user