blob: 626e6ecb9bb92e913ccced11558e1dcd91628b60 (
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
|
#! /bin/sh -e
. ./genconfig.sh
# Generate list of union sizes
for type in $TYPES; do
size=`IFS=:; set -- dummy $type; echo $3`
for vector_length in $VECTOR_LENGTHS; do
union_sizes="$union_sizes `expr $vector_length \* $size`"
done
done
union_sizes="`echo $union_sizes | tr ' ' '\n' | sort -n | uniq`"
# For each union size
for union_size in $union_sizes; do
# Define an union that contains all vector types that have the same size as the union
unionname="union _type_cast_${union_size}_b"
echo "$unionname {"
for type in $TYPES; do
basetype=`IFS=:; set -- dummy $type; echo $2`
basesize=`IFS=:; set -- dummy $type; echo $3`
for vector_length in $VECTOR_LENGTHS; do
vector_size_in_union="`expr $vector_length \* $basesize`"
if test $union_size -ne $vector_size_in_union; then
continue
fi
if test $vector_length -eq 1; then
vectortype=$basetype
else
vectortype=$basetype$vector_length
fi
echo " $vectortype _$vectortype;"
done
done
echo "};"
echo
# For each tuple of vector types that has the same size as the current union size,
# define an as_* function that converts types without changing binary representation.
for ftype in $TYPES; do
fbasetype=`IFS=:; set -- dummy $ftype; echo $2`
fbasesize=`IFS=:; set -- dummy $ftype; echo $3`
for fvector_length in $VECTOR_LENGTHS; do
fvector_size_in_union="`expr $fvector_length \* $fbasesize`"
if test $union_size -ne $fvector_size_in_union; then
continue
fi
if test $fvector_length -eq 1; then
fvectortype=$fbasetype
else
fvectortype=$fbasetype$fvector_length
fi
for ttype in $TYPES; do
tbasetype=`IFS=:; set -- dummy $ttype; echo $2`
tbasesize=`IFS=:; set -- dummy $ttype; echo $3`
if test $fbasetype = $tbasetype; then
continue
fi
for tvector_length in $VECTOR_LENGTHS; do
tvector_size_in_union="`expr $tvector_length \* $tbasesize`"
if test $union_size -ne $tvector_size_in_union; then
continue
fi
if test $tvector_length -eq 1; then
tvectortype=$tbasetype
else
tvectortype=$tbasetype$tvector_length
fi
echo "INLINE OVERLOADABLE $tvectortype as_$tvectortype($fvectortype v) {"
echo " $unionname u;"
echo " u._$fvectortype = v;"
echo " return u._$tvectortype;"
echo "}"
echo
done
done
done
done
done
|
