testsuite/lib/invalid-dw-at-stmt-list-encoding.exp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

load_lib dwarf-lib.exp
load_lib dwarf.exp

set asm_file invalid-dw-at-stmt-list-encoding-dw.S

Dwarf::assemble $asm_file {
    cu {} {
	DW_TAG_compile_unit {
	    {DW_AT_language @DW_LANG_C}
	    {DW_AT_name     foo.c}
	    {DW_AT_comp_dir /bar}
            {stmt_list 0 DW_FORM_addr}
	} {
	    DW_TAG_base_type {
		{DW_AT_byte_size 4 DW_FORM_data1}
		{DW_AT_name integer}
	    }
	}
    }

}