about summary refs log tree commit diff
path: root/sysdeps/ia64/fpu/import_check
blob: 21176f578deaa592078214c1bdcf9c615675087f (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
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
#!/bin/sh

objdir="$1"

num_errors=0

check_syms() {
    global_count=0
    entry_count=0
    while read value type name; do
	if [ $value = "U" ]; then
	    name=$type
	    # undefined symbols must start with double-underscore
	    if [ $(expr $name : '\(..\)') != "__" ]; then
		echo -e "$(basename $file):\tError: undefined reference $name doesn't start with \"__\"."
		num_errors=$(($num_errors + 1))
	    fi
	    continue
	fi

	case "$type" in
	    W)
		entry_count=$(($entry_count + 1))
		;;
	    *)
		entry_count=$(($entry_count + 1))
		if [ "$(expr $name : '\(..\)')" != "__" ]; then
		    global_count=$(($global_count + 1))
		fi
		;;
	esac
    done
    if [ $entry_count -gt 1 -a $global_count -gt 0 ]; then
	echo -e "$(basename $file):\tError: detected $global_count strong " \
	    "global and $entry_count entry-points."
	num_errors=$(($num_errors + 1))
    fi
}

check_file() {
    file=$1
    size=$(readelf -S $file | \
	(sz=0; while read line; do
		if echo $line | fgrep -q " .rodata"; then
		    read sz rest
		    break
		fi
	    done;
	    printf "%d" 0x$sz))

    summands=$(readelf -s $file | fgrep " OBJECT " | tr -s ' ' |
	cut -f4 -d' ' | sed 's,$,+,')0
    sum=$(($summands))
    if [ $sum != $size ]; then
	echo -e "$(basename $file):\tError: sum of objects=$sum bytes, .rodata size=$size bytes"
	num_errors=$(($num_errors + 1))
    fi

    tmp=$(tempfile -p syms)
    nm -g $file > $tmp
    check_syms < $tmp
}

do_checks() {
    echo "Note: 1 error expected in w_tgammal.o due to 64-byte alignment-padding."
    while read func_pattern src_file dst_file; do
	if [ "$(expr $dst_file : '.*\(S\)$')" = "S" ]; then
	    objfile=$(expr $dst_file : '\(.*\)[.]S$')
	    check_file $objdir/$objfile.o
	fi
    done
}

do_checks < import_file_list

if [ $num_errors -gt 0 ]; then
    echo "FAILURE: Detected $num_errors error(s)."
    exit 1
fi
echo SUCCESS
exit 0