blob: 5bb042905c6ec9b6cae06c3e295ce36f29934a32 (
plain) (
blame)
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
|
# -*- sh -*-
# See LICENSE file for copyright and license details.
patypes="$(printf '%s\n' "$types" | cut -d ' ' -f 2 | grep -v '\(STRUCT\|UNION\)' | sed -n 's/_ARRAY$//p')"
test -n "$patypes"
for os in $(getnamelist OS); do
osn=$(getnum OS $os)
for arch in $(getnamelist ARCH); do
archn=$(getnum ARCH $arch)
if ! issupported $os $arch; then
continue
fi
for ptype in $patypes CHAR; do
atype="${ptype}_ARRAY"
if test $atype = CHAR_ARRAY; then
atype=BUFFER
fi
auftype="${atype}_UNKNOWN_FILL"
get-datatype-description.tu $osn $archn $(lookupnum "$types" $ptype) $os $arch $ptype \
| sed 's/^\(array_size\) = 1$/\1 = 0/' \
| sed 's/^\(fill_is_known\) = .*$/\1 = 1/' \
| sed 's/^\(relative_position_of_array_size\) = .*$/\1 = 1/' \
| sed 's/^\(absolute_position_of_array_size\) = .*$/\1 = -1/' > $a
get-datatype-description.tu $osn $archn $(lookupnum "$types" $atype) $os $arch $atype > $b
diff -u $a $b
get-datatype-description.tu $osn $archn $(lookupnum "$types" $auftype) $os $arch $auftype > $b
sed 's/^\(fill_is_known\) = .*$/\1 = 0/' < $a | diff -u - $b
done
done
done
|