Imported Upstream version 7.9
[platform/upstream/gdb.git] / gdb / testsuite / gdb.trace / unavailable-dwarf-piece.exp
index 2d46905..17d3a14 100644 (file)
@@ -1,4 +1,4 @@
-# Copyright (C) 2013-2014 Free Software Foundation, Inc.
+# Copyright (C) 2013-2015 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -44,8 +44,8 @@ Dwarf::assemble $asm_file {
            struct_s_label: DW_TAG_structure_type {
                {name s}
                {byte_size 3 DW_FORM_sdata}
-               {decl_file 1}
-               {decl_line 1}
+               {decl_file 1 DW_FORM_sdata}
+               {decl_line 1 DW_FORM_sdata}
            } {
                DW_TAG_member {
                    {name a}
@@ -73,8 +73,8 @@ Dwarf::assemble $asm_file {
            struct_t_label: DW_TAG_structure_type {
                {name t}
                {byte_size 3 DW_FORM_sdata}
-               {decl_file 1}
-               {decl_line 1}
+               {decl_file 1 DW_FORM_sdata}
+               {decl_line 1 DW_FORM_sdata}
            } {
                DW_TAG_member {
                    {name a}
@@ -174,7 +174,7 @@ Dwarf::assemble $asm_file {
 
            DW_TAG_subprogram {
                {name foo}
-               {decl_file 1}
+               {decl_file 1 sdata}
                {low_pc foo addr}
                {high_pc foo_end_lbl addr}
            } {
@@ -219,7 +219,7 @@ Dwarf::assemble $asm_file {
 
            DW_TAG_subprogram {
                {name bar}
-               {decl_file 1}
+               {decl_file 1 sdata}
                {low_pc bar addr}
                {high_pc bar_end_lbl addr}
            } {