gdb/testsuite/gdb.dwarf2/clang-debug-names.exp.tcl

   1 # Copyright 2020-2023 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
  16 # Set up the DWARF for the test.
  17
  18 set main_str_label [Dwarf::_compute_label info_string3]
  19 set int_str_label [Dwarf::_compute_label info_string4]
  20 set main_die_label [Dwarf::_compute_label main_die_label]
  21 set int_die_label [Dwarf::_compute_label int_die_label]
  22
  23 set debug_str \
  24     [list \
  25          "$main_str_label:" \
  26          "  .asciz \"main\"" \
  27          "$int_str_label:" \
  28          "  .asciz \"int\""]
  29
  30 set debug_names \
  31     [list \
  32          "  .4byte  .Ldebug_names_end - .Ldebug_names_start" \
  33          ".Ldebug_names_start:" \
  34          "  .short 5                     /* Header: version */" \
  35          "  .short 0                     /* Header: padding */" \
  36          "  .long 1                      /* Header: compilation unit count */" \
  37          "  .long 0                      /* Header: local type unit count */" \
  38          "  .long 0                      /* Header: foreign type unit count */" \
  39          "  .long 2                      /* Header: bucket count */" \
  40          "  .long 2                      /* Header: name count */" \
  41          "  .long .Lnames_abbrev_end0-.Lnames_abbrev_start0 " \
  42          "                               /* Header: abbreviation table size */" \
  43          "  .long 8                      /* Header: augmentation string size */" \
  44          "  .ascii \"LLVM0700\"   /* Header: augmentation string */" \
  45          "  .long .Lcu1_begin            /* Compilation unit 0 */" \
  46          "  .long 1                      /* Bucket 0 */" \
  47          "  .long 0                      /* Bucket 1 */" \
  48          "  .long 193495088              /* Hash in Bucket 0 */" \
  49          "  .long 2090499946             /* Hash in Bucket 0 */" \
  50          "  .long $int_str_label         /* String in Bucket 0: int */" \
  51          "  .long $main_str_label        /* String in Bucket 0: main */" \
  52          "  .long .Lnames1-.Lnames_entries0/* Offset in Bucket 0 */" \
  53          "  .long .Lnames0-.Lnames_entries0/* Offset in Bucket 0 */" \
  54          ".Lnames_abbrev_start0:" \
  55          "  .byte 46                     /* Abbrev code */" \
  56          "  .byte 46                     /* DW_TAG_subprogram */" \
  57          "  .byte 3                      /* DW_IDX_die_offset */" \
  58          "  .byte 19                     /* DW_FORM_ref4 */" \
  59          "  .byte 0                      /* End of abbrev */" \
  60          "  .byte 0                      /* End of abbrev */" \
  61          "  .byte 36                     /* Abbrev code */" \
  62          "  .byte 36                     /* DW_TAG_base_type */" \
  63          "  .byte 3                      /* DW_IDX_die_offset */" \
  64          "  .byte 19                     /* DW_FORM_ref4 */" \
  65          "  .byte 0                      /* End of abbrev */" \
  66          "  .byte 0                      /* End of abbrev */" \
  67          "  .byte 0                      /* End of abbrev list */" \
  68          ".Lnames_abbrev_end0:" \
  69          ".Lnames_entries0:" \
  70          ".Lnames1:" \
  71          "  .byte 36                     /* Abbreviation code */" \
  72          "  .long $int_die_label - .Lcu1_begin/* DW_IDX_die_offset */" \
  73          "  .long 0                      /* End of list: int */" \
  74          ".Lnames0:" \
  75          "  .byte 46                     /* Abbreviation code */" \
  76          "  .long $main_die_label - .Lcu1_begin/* DW_IDX_die_offset */" \
  77          "  .long 0                      /* End of list: main */" \
  78          "  .p2align 2" \
  79          ".Ldebug_names_end:"]
  80
  81 Dwarf::assemble $asm_file {
  82     global srcdir subdir srcfile
  83     global main_start main_length
  84
  85     cu {} {
  86         DW_TAG_compile_unit {
  87                 {DW_AT_language @DW_LANG_C}
  88                 {DW_AT_name     clang-debug-names.c}
  89                 {DW_AT_comp_dir /tmp}
  90
  91         } {
  92             global int_die_label
  93             global main_die_label
  94
  95             define_label $int_die_label
  96             base_type {
  97                 {name "int"}
  98                 {encoding @DW_ATE_signed}
  99                 {byte_size 4 DW_FORM_sdata}
 100             }
 101
 102             define_label $main_die_label
 103             subprogram {
 104                 {name main}
 105                 {type :$int_die_label}
 106                 {low_pc $main_start addr}
 107                 {high_pc "$main_start + $main_length" addr}
 108             }
 109         }
 110     }
 111
 112     _defer_output .debug_str {
 113         global debug_str
 114         _emit [join $debug_str "\n"]
 115     }
 116
 117     _defer_output .debug_names {
 118         global debug_names
 119         _emit [join $debug_names "\n"]
 120     }
 121 }