Commit | Line | Data |
---|---|---|
32866df7 | 1 | # Copyright 1993, 1994, 1995, 1997, 2007 Free Software Foundation, Inc. |
252b5132 RH |
2 | |
3 | # This program is free software; you can redistribute it and/or modify | |
4 | # it under the terms of the GNU General Public License as published by | |
32866df7 | 5 | # the Free Software Foundation; either version 3 of the License, or |
252b5132 RH |
6 | # (at your option) any later version. |
7 | # | |
8 | # This program is distributed in the hope that it will be useful, | |
9 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
10 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
11 | # GNU General Public License for more details. | |
12 | # | |
13 | # You should have received a copy of the GNU General Public License | |
14 | # along with this program; if not, write to the Free Software | |
b43b5d5f | 15 | # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. |
252b5132 RH |
16 | |
17 | # Please email any bugs, comments, and/or additions to this file to: | |
18 | # bug-dejagnu@prep.ai.mit.edu | |
19 | ||
20 | # This file was written by Rob Savoye <rob@cygnus.com> | |
21 | # and rewritten by Ian Lance Taylor <ian@cygnus.com> | |
22 | ||
23 | if ![is_remote host] { | |
24 | if {[which $NM] == 0} then { | |
25 | perror "$NM does not exist" | |
26 | return | |
27 | } | |
28 | } | |
29 | ||
30 | send_user "Version [binutil_version $NM]" | |
31 | ||
32 | ||
33 | if {![binutils_assemble $srcdir/$subdir/bintest.s tmpdir/bintest.o]} then { | |
34 | return | |
35 | } | |
36 | ||
37 | if [is_remote host] { | |
38 | set tempfile [remote_download host tmpdir/bintest.o] | |
39 | } else { | |
40 | set tempfile tmpdir/bintest.o | |
41 | } | |
42 | ||
43 | # Test nm with no arguments. | |
44 | ||
45 | # This test does not work correctly on ECOFF targets, because ECOFF | |
46 | # stores most symbols twice, which messes up the nm output. | |
47 | setup_xfail "alpha*-*-osf*" "alpha*-*-netware*" | |
48 | setup_xfail "mips*-*-ultrix*" "mips*-*-ecoff*" "mips*-*-irix4*" | |
49 | setup_xfail "mips*-*-riscos*" "mips*-*-sysv3*" "mips*-sony-bsd*" | |
50 | ||
51 | # This test does not work correctly on XCOFF targets, because XCOFF | |
52 | # does not enter static symbols in the symbol table. | |
53 | setup_xfail "*-*-aix*" | |
54 | ||
55 | set got [binutils_run $NM "$NMFLAGS $tempfile"] | |
56 | ||
57 | if [info exists vars] then { unset vars } | |
58 | while {[regexp "(\[a-zA-Z\]) (\[a-z_\]*_symbol)(.*)" $got all type symbol rest]} { | |
59 | set vars($symbol) $type | |
60 | set got $rest | |
61 | } | |
62 | ||
63 | if {![info exists vars(text_symbol)] \ | |
64 | || $vars(text_symbol) != "T" \ | |
65 | || ![info exists vars(data_symbol)] \ | |
66 | || $vars(data_symbol) != "D" \ | |
67 | || ![info exists vars(common_symbol)] \ | |
68 | || $vars(common_symbol) != "C" \ | |
69 | || ![info exists vars(external_symbol)] \ | |
70 | || $vars(external_symbol) != "U" \ | |
71 | || ![info exists vars(static_text_symbol)] \ | |
72 | || $vars(static_text_symbol) != "t" \ | |
73 | || ![info exists vars(static_data_symbol)] \ | |
74 | || $vars(static_data_symbol) != "d"} { | |
75 | fail "nm (no arguments)" | |
76 | } else { | |
77 | pass "nm (no arguments)" | |
78 | } | |
79 | ||
80 | # Test nm -g | |
81 | ||
82 | set got [binutils_run $NM "$NMFLAGS -g $tempfile"] | |
83 | ||
84 | if [info exists vars] then { unset vars } | |
85 | while {[regexp "(\[a-z_\]*_symbol)(.*)" $got all symbol rest]} { | |
86 | set vars($symbol) 1 | |
87 | set got $rest | |
88 | } | |
89 | ||
90 | if {![info exists vars(text_symbol)] \ | |
91 | || ![info exists vars(data_symbol)] \ | |
92 | || ![info exists vars(common_symbol)] \ | |
93 | || ![info exists vars(external_symbol)] \ | |
94 | || [info exists vars(static_text_symbol)] \ | |
95 | || [info exists vars(static_data_symbol)]} { | |
96 | fail "nm -g" | |
97 | } else { | |
98 | pass "nm -g" | |
99 | } | |
100 | ||
101 | # Test nm -P | |
102 | ||
103 | # This test does not work correctly on ECOFF targets, because ECOFF | |
104 | # stores most symbols twice, which messes up the nm output. | |
105 | setup_xfail "alpha*-*-osf*" "alpha*-*-netware*" | |
106 | setup_xfail "mips*-*-ultrix*" "mips*-*-ecoff*" "mips*-*-irix4*" | |
107 | setup_xfail "mips*-*-riscos*" "mips*-*-sysv3*" "mips*-sony-bsd*" | |
108 | ||
109 | # This test does not work correctly on XCOFF targets, because XCOFF | |
110 | # does not enter static symbols in the symbol table. | |
111 | setup_xfail "*-*-aix*" | |
112 | ||
113 | set got [binutils_run $NM "$NMFLAGS -P $tempfile"] | |
114 | ||
115 | set want "common_symbol C \[0\]*4.*data_symbol D \[0-9a-fA-F\]*.*external_symbol U.*static_data_symbol d \[0-9a-fA-F\]*.*static_text_symbol t \[0-9a-fA-F\]*.*text_symbol T \[0-9a-fA-F\]*" | |
116 | ||
117 | if [regexp $want $got] then { | |
118 | pass "nm -P" | |
119 | } else { | |
120 | fail "nm -P" | |
121 | } | |
122 | ||
123 | # There are certainly other tests that could be run. |