From ec3aa56733d16ec5ab197a8fa985f5b25ad03111 Mon Sep 17 00:00:00 2001 From: Jan Kratochvil Date: Sat, 20 Nov 2010 01:49:17 +0000 Subject: [PATCH] gdb/testsuite/ * gdb.dwarf2/dw2-ada-ffffffff.S: New file. * gdb.dwarf2/dw2-ada-ffffffff.exp: New file. --- gdb/testsuite/ChangeLog | 5 ++ gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.S | 55 +++++++++++++++++++ gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.exp | 44 +++++++++++++++ 3 files changed, 104 insertions(+) create mode 100644 gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.S create mode 100644 gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.exp diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index a2798f99ef..47258b3e15 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-11-20 Jan Kratochvil + + * gdb.dwarf2/dw2-ada-ffffffff.S: New file. + * gdb.dwarf2/dw2-ada-ffffffff.exp: New file. + 2010-11-18 Doug Evans * gdb.server/ext-run.exp: Fix intermittent failures. diff --git a/gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.S b/gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.S new file mode 100644 index 0000000000..640714cfb0 --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.S @@ -0,0 +1,55 @@ +/* Copyright 2010 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 + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ + + .section .debug_info +debug_start: + .long debug_end - 1f /* Length of Compilation Unit Info */ +1: + .2byte 0x3 /* DWARF version number */ + .long .Ldebug_abbrev0 /* Offset Into Abbrev. Section */ + .byte 0x4 /* Pointer Size (in bytes) */ + .uleb128 0x1 /* (DIE (0xb) DW_TAG_compile_unit) */ + .ascii "GNU C 4.4.3\0" /* DW_AT_producer */ + .byte 0x03 /* DW_AT_language = DW_LANG_Ada83 */ + .ascii "1.adb\0" /* DW_AT_name */ + .uleb128 0x4 /* DW_TAG_structure_type */ + .ascii "t\0" /* DW_AT_name */ + .4byte 0xffffffff /* DW_AT_byte_size */ + .byte 0x0 /* end of children of CU */ +debug_end: + + .section .debug_abbrev +.Ldebug_abbrev0: + .uleb128 0x1 /* (abbrev code) */ + .uleb128 0x11 /* (TAG: DW_TAG_compile_unit) */ + .byte 0x1 /* DW_children_yes */ + .uleb128 0x25 /* (DW_AT_producer) */ + .uleb128 0x8 /* (DW_FORM_string) */ + .uleb128 0x13 /* (DW_AT_language) */ + .uleb128 0xb /* (DW_FORM_data1) */ + .uleb128 0x3 /* (DW_AT_name) */ + .uleb128 0x8 /* (DW_FORM_string) */ + .byte 0x0 + .byte 0x0 + .uleb128 0x4 /* (abbrev code) */ + .uleb128 0x13 /* (TAG: DW_TAG_structure_type) */ + .byte 0x0 /* DW_children_yes */ + .uleb128 0x3 /* (DW_AT_name) */ + .uleb128 0x8 /* (DW_FORM_string) */ + .uleb128 0x0b /* (DW_AT_byte_size) */ + .uleb128 0x6 /* (DW_FORM_data4) */ + .byte 0x0 + .byte 0x0 + .byte 0x0 diff --git a/gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.exp b/gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.exp new file mode 100644 index 0000000000..27fd957ec4 --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.exp @@ -0,0 +1,44 @@ +# Copyright 2010 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 +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +# This test can only be run on targets which support DWARF-2 and use gas. +# For now pick a sampling of likely targets. +if {![istarget *-*-linux*] + && ![istarget *-*-gnu*] + && ![istarget *-*-elf*] + && ![istarget *-*-openbsd*] + && ![istarget arm-*-eabi*] + && ![istarget powerpc-*-eabi*]} { + return 0 +} + +set testfile "dw2-ada-ffffffff" +set srcfile ${testfile}.S +set executable ${testfile}.x +set binfile ${objdir}/${subdir}/${executable} + +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" object {}] != "" } { + return -1 +} + +clean_restart $executable + +# -1 was produced, it is now caught with the complaint: +# Suspicious DW_AT_byte_size value treated as zero instead of ... +gdb_test "p sizeof (t)" " = 0" + +# Formerly: +# utils.c:N: internal-error: virtual memory exhausted: can't allocate 4294967295 bytes. +gdb_test "ptype t" "type = struct t {\r\n *\r\n}" -- 2.34.1