dwz.exp revision 1.1 
1# Copyright 2013-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/>.
15
16load_lib dwarf.exp
17
18# This test can only be run on targets which support DWARF-2 and use gas.
19if {![dwarf2_support]} {
20    return 0
21}
22
23standard_testfile main.c dwz.S
24
25# Create the DWARF.
26set asm_file [standard_output_file $srcfile2]
27Dwarf::assemble $asm_file {
28    declare_labels partial_label double_label int_label int_label2
29
30    extern main
31
32    cu {} {
33	partial_label: partial_unit {} {
34	    subprogram {
35		{name main}
36		{low_pc main addr}
37		{high_pc "main + 10" addr}
38	    }
39	}
40    }
41
42    cu {} {
43	compile_unit {{language @DW_LANG_C}} {
44	    int_label2: base_type {
45		{name int}
46		{byte_size 4 sdata}
47		{encoding @DW_ATE_signed}
48	    }
49
50	    constant {
51		{name the_int}
52		{type :$int_label2}
53		{const_value 99 data1}
54	    }
55
56	    constant {
57		{name other_int}
58		{type :$int_label2}
59		{const_value 99 data1}
60	    }
61	}
62    }
63
64    cu {} {
65	compile_unit {{language @DW_LANG_C}} {
66	    imported_unit {
67		{import $partial_label ref_addr}
68	    }
69
70	    int_label: base_type {
71		{name int}
72		{byte_size 4 sdata}
73		{encoding @DW_ATE_signed}
74	    }
75
76	    constant {
77		{name the_int}
78		{type :$int_label}
79		{const_value 23 data1}
80	    }
81	}
82    }
83}
84
85if  { [gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile}1.o \
86	   object {nodebug}] != "" } {
87    return -1
88}
89
90if  { [gdb_compile $asm_file ${binfile}2.o object {nodebug}] != "" } {
91    return -1
92}
93
94if  { [gdb_compile [list ${binfile}1.o ${binfile}2.o] \
95	   "${binfile}" executable {}] != "" } {
96    return -1
97}
98
99clean_restart ${testfile}
100
101if ![runto_main] {
102    return -1
103}
104
105gdb_test "p other_int" " = 99"
106gdb_test "p the_int" " = 23"
107