dw2-op-stack-value.exp revision 1.1 
1# Copyright 2011-2014 Free Software Foundation, Inc.
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
5# the Free Software Foundation; either version 3 of the License, or
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, see <http://www.gnu.org/licenses/>.
15load_lib dwarf.exp
16
17# This test can only be run on targets which support DWARF-2 and use gas.
18if {![dwarf2_support]} {
19    return 0
20}
21
22standard_testfile .S
23
24if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" $binfile \
25	   object {nodebug}] != "" } {
26    return -1
27}
28
29clean_restart $testfile
30
31gdb_test "p/x stack2" " = 0x1"
32gdb_test "p/x stack8" " = 0x1"
33
34set test "x/wx &aa551234"
35gdb_test_multiple $test $test {
36    -re ":\[ \t\]*0x341255aa\r\n$gdb_prompt $" {
37	# little endian
38	pass $test
39	gdb_test "p/x implicit4to2" " = 0x2211"
40	gdb_test "p/x implicit4to4" " = 0x44332211"
41    }
42    -re ":\[ \t\]*0xaa551234\r\n$gdb_prompt $" {
43	# big endian
44	pass $test
45	gdb_test "p/x implicit4to2" " = 0x3344"
46	gdb_test "p/x implicit4to4" " = 0x11223344"
47    }
48    -re ":\[ \t\]*0x\[0-9a-f\]{8}\r\n$gdb_prompt $" {
49	unsupported $test
50    }
51}
52