[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.dwarf2 / dw2-dir-file-name.exp

# Copyright 2012-2024 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 <http://www.gnu.org/licenses/>.
load_lib dwarf.exp

# This test can only be run on targets which support DWARF-2 and use gas.
require dwarf2_support

# This test has hard-wired assumptions that host and build filenames are
# the same, and assumes POSIX pathname syntax.
require {!is_remote host}
require {!ishost *-*-mingw*}

# Find length of addresses in bytes.
if {[is_64_target]} {
    set addr_len 8
} else {
    set addr_len 4
}

standard_testfile

set func_info_names {
    compdir_missing__ldir_missing__file_basename
    compdir_missing__ldir_missing__file_relative
    compdir_missing__ldir_missing__file_absolute
    compdir_missing__ldir_relative_file_basename
    compdir_missing__ldir_relative_file_relative
    compdir_missing__ldir_relative_file_absolute
    compdir_missing__ldir_absolute_file_basename
    compdir_missing__ldir_absolute_file_relative
    compdir_missing__ldir_absolute_file_absolute_same
    compdir_missing__ldir_absolute_file_absolute_different
    compdir_relative_ldir_missing__file_basename
    compdir_relative_ldir_missing__file_relative
    compdir_relative_ldir_missing__file_absolute
    compdir_relative_ldir_relative_file_basename
    compdir_relative_ldir_relative_file_relative
    compdir_relative_ldir_relative_file_absolute
    compdir_relative_ldir_absolute_file_basename
    compdir_relative_ldir_absolute_file_relative
    compdir_relative_ldir_absolute_file_absolute_same
    compdir_relative_ldir_absolute_file_absolute_different
    compdir_absolute_ldir_missing__file_basename
    compdir_absolute_ldir_missing__file_relative
    compdir_absolute_ldir_missing__file_absolute_same
    compdir_absolute_ldir_missing__file_absolute_different
    compdir_absolute_ldir_relative_file_basename
    compdir_absolute_ldir_relative_file_relative
    compdir_absolute_ldir_relative_file_absolute_same
    compdir_absolute_ldir_relative_file_absolute_different
    compdir_absolute_ldir_absolute_file_basename_same
    compdir_absolute_ldir_absolute_file_basename_different
    compdir_absolute_ldir_absolute_file_relative_same
    compdir_absolute_ldir_absolute_file_relative_different
    compdir_absolute_ldir_absolute_file_absolute_same
    compdir_absolute_ldir_absolute_file_absolute_different
}

with_shared_gdb {
    foreach func_info_name $func_info_names {
	get_func_info $func_info_name
    }
}

set asmsrcfile [standard_output_file ${testfile}asm.S]
set asmobjfile [standard_output_file ${testfile}asm.o]
set srcabsdir [standard_output_file ${testfile}.d]
set srctmpfile tmp-${testfile}.c

# $srcdir may be relative.
if {[file pathtype $srcabsdir] != "absolute"} {
    untested "objdir pathtype is not absolute"
    return -1
}

set f [open $asmsrcfile "w"]
puts $f "/* DO NOT EDIT! GENERATED AUTOMATICALLY! */"

proc out_cu { name cu_dir cu_name line_dir line_name } {
    global f
    global addr_len

    global ${name}_start
    global ${name}_end
    set name_start [set ${name}_start]
    set name_end [set ${name}_end]

    puts -nonewline $f "\
.L${name}_begin:
	.4byte	.L${name}_end - .L${name}_start	/* Length of Compilation Unit */
.L${name}_start:
	.2byte	2				/* DWARF Version */
	.4byte	.Labbrev1_begin			/* Offset into abbrev section */
	.byte	${addr_len}			/* Pointer size */
"
    if { $cu_dir != "" } {
	puts $f "  .uleb128 ABBREV_COMP_DIR_NAME /* Abbrev: DW_TAG_compile_unit */"
    } else {
	puts $f "  .uleb128 ABBREV_NAME /* Abbrev: DW_TAG_compile_unit */"
    }
    puts -nonewline $f "\
	.ascii	\"GNU C\\0\"			/* DW_AT_producer */
	.byte	2				/* DW_AT_language (DW_LANG_C) */
	.4byte	.Lline_${name}_begin		/* DW_AT_stmt_list */
	.${addr_len}byte $name_start		/* DW_AT_low_pc */
	.${addr_len}byte $name_end		/* DW_AT_high_pc */
"
    if { $cu_dir != "" } {
	puts $f "  .ascii $cu_dir /* DW_AT_comp_dir */"
    }
    puts -nonewline $f "\
	.ascii	$cu_name			/* DW_AT_name */

	.uleb128	3			/* Abbrev: DW_TAG_subprogram */
	.asciz		\"${name}\"		/* DW_AT_name */
	.${addr_len}byte $name_start		/* DW_AT_low_pc */
	.${addr_len}byte $name_end		/* DW_AT_high_pc */

	.byte		0			/* End of children of CU */
.L${name}_end:
"
}

proc out_line { name cu_dir cu_name line_dir line_name } {
    global f
    global addr_len

    global ${name}_start
    global ${name}_end
    set name_start [set ${name}_start]
    set name_end [set ${name}_end]

    puts -nonewline $f "\
.Lline_${name}_begin:
	.4byte		.Lline_${name}_end - .Lline_${name}_start	/* Initial length */
.Lline_${name}_start:
	.2byte		2			/* Version */
	.4byte		.Lline_${name}_lines - .Lline_${name}_hdr	/* header_length */
.Lline_${name}_hdr:
	.byte		1			/* Minimum insn length */
	.byte		1			/* default_is_stmt */
	.byte		1			/* line_base */
	.byte		1			/* line_range */
	.byte		4			/* opcode_base */

	/* Standard lengths */
	.byte		0
	.byte		1
	.byte		1

	/* Include directories */
"
    if { $line_dir != "" } {
	puts $f "  .ascii $line_dir"
    }
    puts -nonewline $f "\
	.byte		0

	/* File names */
	.ascii	$line_name
"
    if { $line_dir != "" } {
	puts $f "  .uleb128 1"
    } else {
	puts $f "  .uleb128 0"
    }
    puts -nonewline $f "\
	.uleb128	0
	.uleb128	0

	.byte		0

.Lline_${name}_lines:
	.byte		3	/* DW_LNS_advance_line */
	.sleb128	997	/* ... to 998 */
	.byte		0	/* DW_LNE_set_address */
	.uleb128	${addr_len}+1
	.byte		2
	.${addr_len}byte $name_start
	.byte		1	/* DW_LNS_copy */
	.byte		3	/* DW_LNS_advance_line */
	.sleb128	1	/* ... to 999 */
	.byte		0	/* DW_LNE_set_address */
	.uleb128	${addr_len}+1
	.byte		2
	.${addr_len}byte ${name}_label
	.byte		1	/* DW_LNS_copy */
	.byte		3	/* DW_LNS_advance_line */
	.sleb128	1	/* ... to 1000 */
	.byte		0	/* DW_LNE_set_address */
	.uleb128	${addr_len}+1
	.byte		2
	.${addr_len}byte $name_end
	.byte		1	/* DW_LNS_copy */
	.byte		0	/* DW_LNE_end_of_sequence */
	.uleb128	1
	.byte		1
.Lline_${name}_end:
"
}

# IFSOME can be optionally _same or _different if >= 2 absolute directories are
# provided.  Then in the _different case the overriden directories have invalid
# XDIR value.

proc out_unit { func compdir ldir file ifsame } {
    set name "compdir_${compdir}_ldir_${ldir}_file_${file}${ifsame}"

    if { $compdir == "missing_" } {
	set cu_dir {}
    } elseif { $compdir == "relative" } {
	set cu_dir {COMPDIR "\0"}
    } elseif { $compdir == "absolute" } {
	set cu_dir {BDIR "/" COMPDIR "\0"}
    } else {
	error "compdir $compdir"
    }

    if { $ldir == "missing_" } {
	set line_dir {}
    } elseif { $ldir == "relative" } {
	set line_dir {LDIR "\0"}
    } elseif { $ldir == "absolute" } {
	set line_dir {BDIR "/" LDIR "\0"}
    } else {
	error "ldir $ldir"
    }

    if { $file == "basename" } {
	set cu_name {FILE "\0"}
    } elseif { $file == "relative" } {
	set cu_name {FDIR "/" FILE "\0"}
    } elseif { $file == "absolute" } {
	set cu_name {BDIR "/" FILE "\0"}
    } else {
	error "file $file"
    }
    set line_name $cu_name

    if { "$ifsame" == "_different" } {
	if { $file == "absolute" } {
	    if { $ldir == "absolute" } {
		set line_dir {XDIR "\0"}
	    }
	    if { $compdir == "absolute" } {
		set cu_dir {XDIR "\0"}
	    }
	} elseif { $ldir == "absolute" } {
	    if { $compdir == "absolute" } {
		set cu_dir {XDIR "\0"}
	    }
	} else {
	    error "not enough absolutes"
	}
    }

    $func $name $cu_dir $cu_name $line_dir $line_name
}

proc out_diff { func compdir ldir file } {
    set abscount 0
    if { $compdir == "absolute" } {
	incr abscount
    }
    if { $ldir == "absolute" } {
	incr abscount
    }
    if { $file == "absolute" } {
	incr abscount
    }
    if { $abscount <= 1 } {
	out_unit $func $compdir $ldir $file ""
    } else {
	out_unit $func $compdir $ldir $file "_same"
	out_unit $func $compdir $ldir $file "_different"
    }
}

proc out_file { func compdir ldir } {
    out_diff $func $compdir $ldir "basename"
    out_diff $func $compdir $ldir "relative"
    out_diff $func $compdir $ldir "absolute"
}

proc out_ldir { func compdir } {
    out_file $func $compdir "missing_"
    out_file $func $compdir "relative"
    out_file $func $compdir "absolute"
}

proc out_compdir { func } {
    out_ldir $func "missing_"
    out_ldir $func "relative"
    out_ldir $func "absolute"
}

puts -nonewline $f "\
#define ABBREV_NAME 1
#define ABBREV_COMP_DIR_NAME 2
  .section .debug_info
"
out_compdir out_cu

Dwarf::assemble { add_dummy_cus 0 file_id $f } {
    global func_info_names

    foreach name $func_info_names {
	global ${name}_start
	global ${name}_end
	set name_start [set ${name}_start]
	set name_end [set ${name}_end]

	set cu_label .L${name}_begin
	aranges {} cu_label {
	    arange {} $name_start "$name_end - $name_start"
	}
    }
}

puts $f "  .section .debug_line"
out_compdir out_line

puts -nonewline $f "\
	.section .debug_abbrev
.Labbrev1_begin:

	.uleb128	ABBREV_NAME		/* Abbrev code */
	.uleb128	0x11			/* DW_TAG_compile_unit */
	.byte		1			/* has_children */
	.uleb128	0x25			/* DW_AT_producer */
	.uleb128	0x8			/* DW_FORM_string */
	.uleb128	0x13			/* DW_AT_language */
	.uleb128	0xb			/* DW_FORM_data1 */
	.uleb128	0x10			/* DW_AT_stmt_list */
	.uleb128	0x6			/* DW_FORM_data4 */
	.uleb128	0x11			/* DW_AT_low_pc */
	.uleb128	0x1			/* DW_FORM_addr */
	.uleb128	0x12			/* DW_AT_high_pc */
	.uleb128	0x1			/* DW_FORM_addr */
	.uleb128	0x3			/* DW_AT_name */
	.uleb128	0x8			/* DW_FORM_string */
	.byte		0x0			/* Terminator */
	.byte		0x0			/* Terminator */

	.uleb128	ABBREV_COMP_DIR_NAME	/* Abbrev code */
	.uleb128	0x11			/* DW_TAG_compile_unit */
	.byte		1			/* has_children */
	.uleb128	0x25			/* DW_AT_producer */
	.uleb128	0x8			/* DW_FORM_string */
	.uleb128	0x13			/* DW_AT_language */
	.uleb128	0xb			/* DW_FORM_data1 */
	.uleb128	0x10			/* DW_AT_stmt_list */
	.uleb128	0x6			/* DW_FORM_data4 */
	.uleb128	0x11			/* DW_AT_low_pc */
	.uleb128	0x1			/* DW_FORM_addr */
	.uleb128	0x12			/* DW_AT_high_pc */
	.uleb128	0x1			/* DW_FORM_addr */
	.uleb128	0x1b			/* DW_AT_comp_dir */
	.uleb128	0x8			/* DW_FORM_string */
	.uleb128	0x3			/* DW_AT_name */
	.uleb128	0x8			/* DW_FORM_string */
	.byte		0x0			/* Terminator */
	.byte		0x0			/* Terminator */

	.uleb128	3			/* Abbrev code */
	.uleb128	0x2e			/* DW_TAG_subprogram */
	.byte		0			/* has_children */
	.uleb128	0x3			/* DW_AT_name */
	.uleb128	0x8			/* DW_FORM_string */
	.uleb128	0x11			/* DW_AT_low_pc */
	.uleb128	0x1			/* DW_FORM_addr */
	.uleb128	0x12			/* DW_AT_high_pc */
	.uleb128	0x1			/* DW_FORM_addr */
	.byte		0x0			/* Terminator */
	.byte		0x0			/* Terminator */

	.byte		0x0			/* Terminator */
	.byte		0x0			/* Terminator */
"

close $f

set opts {}
# Base directory.
lappend opts "additional_flags=-DBDIR=\"${srcabsdir}\""
# Incorrect directory which should never be visible from GDB.
lappend opts "additional_flags=-DXDIR=\"${srcabsdir}/xdir\""
# CU's DW_AT_comp_dir.
lappend opts "additional_flags=-DCOMPDIR=\"compdir\""
# .debug_line's directory.
lappend opts "additional_flags=-DLDIR=\"ldir\""
# CU's DW_AT_name and .debug_line's filename relative directory, if needed.
lappend opts "additional_flags=-DFDIR=\"fdir\""
# CU's DW_AT_name and .debug_line's filename.
lappend opts "additional_flags=-DFILE=\"${srctmpfile}\""

# Clang's integrated assembler doesn't support .ascii directives
# with multiple string literals.
if { [test_compiler_info clang*] } {
    lappend opts "additional_flags=-fno-integrated-as"
}

if { [gdb_compile "${asmsrcfile} ${srcdir}/${subdir}/$srcfile" "${binfile}" executable $opts] != "" } {
    untested "failed to compile"
    return -1
}

set dirs {}
foreach r {"" /rdir} {
  foreach x {"" /xdir} {
      foreach comp {"" /compdir} {
	  foreach l {"" /ldir} {
	      foreach f {"" /fdir} {
		  lappend dirs $r$x$comp$l$f
	      }
	  }
      }
  }
}

proc pathexpand {prefix dirlst suffix} {
    set retlst {}
    foreach dir $dirlst {
	lappend retlst "$prefix$dir$suffix"
    }
    return $retlst
}

set filelist [pathexpand $srcabsdir $dirs "/$srctmpfile"]
set dircreatelist [pathexpand $srcabsdir $dirs ""]
set dirremovelist [pathexpand $srcabsdir [lreverse $dirs] ""]

remote_exec host "sh -c \"rm -f $filelist\""
remote_exec host "sh -c \"rmdir $dirremovelist\""
remote_exec host "sh -c \"mkdir $dircreatelist\""
remote_exec host "sh -c \"for d in $dircreatelist; do cp ${srcdir}/${subdir}/${srcfile} \\\$d/${srctmpfile}; done\""

clean_restart ${testfile}

if ![runto_main] {
    return -1
}

gdb_test "cd ${srcabsdir}/rdir" "Working directory [string_to_regexp ${srcabsdir}]/rdir\\." "cd .../rdir"

proc test { func compdir filename } {
    with_test_prefix "$func" {
	# Clear the GDB cache.
	gdb_test_no_output "set directories" ""

	if {$compdir == ""} {
	    set absolute "$filename"
	} else {
	    set absolute "$compdir/$filename"
	}
	if {[string index $absolute 0] != "/"} {
	    error "not absolute"
	}

	gdb_breakpoint ${func}_label
	gdb_test "continue" "$func \\(\\) at .*" "continue to $func"

	gdb_test_no_output "set filename-display absolute"
	verbose -log "expect: ${absolute}"
	gdb_test "frame" "$func \\(\\) at [string_to_regexp ${absolute}]:999" "absolute"

	gdb_test_no_output "set filename-display basename"
	verbose -log "expect: [file tail $filename]"
	gdb_test "frame" "$func \\(\\) at [string_to_regexp [file tail $filename]]:999" "basename"

	gdb_test_no_output "set filename-display relative"
	verbose -log "expect: $filename"
	gdb_test "frame" "$func \\(\\) at [string_to_regexp $filename]:999" "relative"
    }
}

set bdir "${srcabsdir}"
set file "${srctmpfile}"
test "compdir_missing__ldir_missing__file_basename" "$bdir/rdir" "$file"
test "compdir_missing__ldir_missing__file_relative" "$bdir/rdir" "fdir/$file"
test "compdir_missing__ldir_missing__file_absolute" "" "$bdir/$file"
test "compdir_missing__ldir_relative_file_basename" "$bdir/rdir" "ldir/$file"
test "compdir_missing__ldir_relative_file_relative" "$bdir/rdir" "ldir/fdir/$file"
test "compdir_missing__ldir_relative_file_absolute" "" "$bdir/$file"
test "compdir_missing__ldir_absolute_file_basename" "" "$bdir/ldir/$file"
test "compdir_missing__ldir_absolute_file_relative" "" "$bdir/ldir/fdir/$file"
test "compdir_missing__ldir_absolute_file_absolute_same" "" "$bdir/$file"
test "compdir_missing__ldir_absolute_file_absolute_different" "" "$bdir/$file"
test "compdir_relative_ldir_missing__file_basename" "$bdir/rdir/compdir" "$file"
test "compdir_relative_ldir_missing__file_relative" "$bdir/rdir/compdir" "fdir/$file"
test "compdir_relative_ldir_missing__file_absolute" "" "$bdir/$file"
test "compdir_relative_ldir_relative_file_basename" "$bdir/rdir/compdir" "ldir/$file"
test "compdir_relative_ldir_relative_file_relative" "$bdir/rdir/compdir" "ldir/fdir/$file"
test "compdir_relative_ldir_relative_file_absolute" "" "$bdir/$file"
test "compdir_relative_ldir_absolute_file_basename" "" "$bdir/ldir/$file"
test "compdir_relative_ldir_absolute_file_relative" "" "$bdir/ldir/fdir/$file"
test "compdir_relative_ldir_absolute_file_absolute_same" "" "$bdir/$file"
test "compdir_relative_ldir_absolute_file_absolute_different" "" "$bdir/$file"
test "compdir_absolute_ldir_missing__file_basename" "$bdir/compdir" "$file"
test "compdir_absolute_ldir_missing__file_relative" "$bdir/compdir" "fdir/$file"
test "compdir_absolute_ldir_missing__file_absolute_same" "" "$bdir/$file"
test "compdir_absolute_ldir_missing__file_absolute_different" "" "$bdir/$file"
test "compdir_absolute_ldir_relative_file_basename" "$bdir/compdir" "ldir/$file"
test "compdir_absolute_ldir_relative_file_relative" "$bdir/compdir" "ldir/fdir/$file"
test "compdir_absolute_ldir_relative_file_absolute_same" "" "$bdir/$file"
test "compdir_absolute_ldir_relative_file_absolute_different" "" "$bdir/$file"
test "compdir_absolute_ldir_absolute_file_basename_same" "" "$bdir/ldir/$file"
test "compdir_absolute_ldir_absolute_file_relative_different" "" "$bdir/ldir/fdir/$file"
test "compdir_absolute_ldir_absolute_file_absolute_same" "" "$bdir/$file"
test "compdir_absolute_ldir_absolute_file_absolute_different" "" "$bdir/$file"
Commit	Line	Data
1d506c26	1	# Copyright 2012-2024 Free Software Foundation, Inc.
1b56eb55 JK	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	load_lib dwarf.exp
	16
	17	# This test can only be run on targets which support DWARF-2 and use gas.
ce8d533e	18	require dwarf2_support
1b56eb55	19
22a2ab04 SL	20	# This test has hard-wired assumptions that host and build filenames are
22a2ab04 SL	21	# the same, and assumes POSIX pathname syntax.
52c0551e TT	22	require {!is_remote host}
52c0551e TT	23	require {!ishost --mingw*}
22a2ab04	24
bd286a29 KCY	25	# Find length of addresses in bytes.
	26	if {[is_64_target]} {
	27	set addr_len 8
	28	} else {
	29	set addr_len 4
	30	}
	31
1b56eb55	32	standard_testfile
9e338b14 TV	33
	34	set func_info_names {
	35	compdir_missing__ldir_missing__file_basename
	36	compdir_missing__ldir_missing__file_relative
	37	compdir_missing__ldir_missing__file_absolute
	38	compdir_missing__ldir_relative_file_basename
	39	compdir_missing__ldir_relative_file_relative
	40	compdir_missing__ldir_relative_file_absolute
	41	compdir_missing__ldir_absolute_file_basename
	42	compdir_missing__ldir_absolute_file_relative
	43	compdir_missing__ldir_absolute_file_absolute_same
	44	compdir_missing__ldir_absolute_file_absolute_different
	45	compdir_relative_ldir_missing__file_basename
	46	compdir_relative_ldir_missing__file_relative
	47	compdir_relative_ldir_missing__file_absolute
	48	compdir_relative_ldir_relative_file_basename
	49	compdir_relative_ldir_relative_file_relative
	50	compdir_relative_ldir_relative_file_absolute
	51	compdir_relative_ldir_absolute_file_basename
	52	compdir_relative_ldir_absolute_file_relative
	53	compdir_relative_ldir_absolute_file_absolute_same
	54	compdir_relative_ldir_absolute_file_absolute_different
	55	compdir_absolute_ldir_missing__file_basename
	56	compdir_absolute_ldir_missing__file_relative
	57	compdir_absolute_ldir_missing__file_absolute_same
	58	compdir_absolute_ldir_missing__file_absolute_different
	59	compdir_absolute_ldir_relative_file_basename
	60	compdir_absolute_ldir_relative_file_relative
	61	compdir_absolute_ldir_relative_file_absolute_same
	62	compdir_absolute_ldir_relative_file_absolute_different
	63	compdir_absolute_ldir_absolute_file_basename_same
	64	compdir_absolute_ldir_absolute_file_basename_different
	65	compdir_absolute_ldir_absolute_file_relative_same
	66	compdir_absolute_ldir_absolute_file_relative_different
	67	compdir_absolute_ldir_absolute_file_absolute_same
	68	compdir_absolute_ldir_absolute_file_absolute_different
	69	}
	70
	71	with_shared_gdb {
	72	foreach func_info_name $func_info_names {
	73	get_func_info $func_info_name
	74	}
	75	}
	76
1b56eb55 JK	77	set asmsrcfile [standard_output_file ${testfile}asm.S]
	78	set asmobjfile [standard_output_file ${testfile}asm.o]
	79	set srcabsdir [standard_output_file ${testfile}.d]
	80	set srctmpfile tmp-${testfile}.c
	81
	82	# $srcdir may be relative.
	83	if {[file pathtype $srcabsdir] != "absolute"} {
	84	untested "objdir pathtype is not absolute"
	85	return -1
	86	}
	87
	88	set f [open $asmsrcfile "w"]
	89	puts $f "/* DO NOT EDIT! GENERATED AUTOMATICALLY! */"
	90
	91	proc out_cu { name cu_dir cu_name line_dir line_name } {
	92	global f
bd286a29	93	global addr_len
1b56eb55	94
9e338b14 TV	95	global ${name}_start
	96	global ${name}_end
	97	set name_start [set ${name}_start]
	98	set name_end [set ${name}_end]
	99
1b56eb55 JK	100	puts -nonewline $f "\
	101	.L${name}_begin:
	102	.4byte .L${name}_end - .L${name}_start /* Length of Compilation Unit */
	103	.L${name}_start:
	104	.2byte 2 /* DWARF Version */
	105	.4byte .Labbrev1_begin /* Offset into abbrev section */
bd286a29	106	.byte ${addr_len} /* Pointer size */
1b56eb55 JK	107	"
	108	if { $cu_dir != "" } {
	109	puts $f " .uleb128 ABBREV_COMP_DIR_NAME /* Abbrev: DW_TAG_compile_unit */"
	110	} else {
	111	puts $f " .uleb128 ABBREV_NAME /* Abbrev: DW_TAG_compile_unit */"
	112	}
	113	puts -nonewline $f "\
	114	.ascii \"GNU C\\0\" /* DW_AT_producer */
	115	.byte 2 /* DW_AT_language (DW_LANG_C) */
	116	.4byte .Lline_${name}_begin /* DW_AT_stmt_list */
9e338b14 TV	117	.${addr_len}byte $name_start /* DW_AT_low_pc */
9e338b14 TV	118	.${addr_len}byte $name_end /* DW_AT_high_pc */
1b56eb55 JK	119	"
	120	if { $cu_dir != "" } {
	121	puts $f " .ascii $cu_dir /* DW_AT_comp_dir */"
	122	}
	123	puts -nonewline $f "\
	124	.ascii $cu_name /* DW_AT_name */
	125
	126	.uleb128 3 /* Abbrev: DW_TAG_subprogram */
	127	.asciz \"${name}\" /* DW_AT_name */
9e338b14 TV	128	.${addr_len}byte $name_start /* DW_AT_low_pc */
9e338b14 TV	129	.${addr_len}byte $name_end /* DW_AT_high_pc */
1b56eb55 JK	130
	131	.byte 0 /* End of children of CU */
	132	.L${name}_end:
	133	"
	134	}
	135
	136	proc out_line { name cu_dir cu_name line_dir line_name } {
	137	global f
bd286a29	138	global addr_len
1b56eb55	139
9e338b14 TV	140	global ${name}_start
	141	global ${name}_end
	142	set name_start [set ${name}_start]
	143	set name_end [set ${name}_end]
	144
1b56eb55 JK	145	puts -nonewline $f "\
	146	.Lline_${name}_begin:
	147	.4byte .Lline_${name}_end - .Lline_${name}_start /* Initial length */
	148	.Lline_${name}_start:
	149	.2byte 2 /* Version */
	150	.4byte .Lline_${name}_lines - .Lline_${name}_hdr /* header_length */
	151	.Lline_${name}_hdr:
	152	.byte 1 /* Minimum insn length */
	153	.byte 1 /* default_is_stmt */
	154	.byte 1 /* line_base */
	155	.byte 1 /* line_range */
	156	.byte 4 /* opcode_base */
	157
	158	/* Standard lengths */
	159	.byte 0
	160	.byte 1
	161	.byte 1
	162
	163	/* Include directories */
	164	"
	165	if { $line_dir != "" } {
	166	puts $f " .ascii $line_dir"
	167	}
	168	puts -nonewline $f "\
	169	.byte 0
	170
	171	/* File names */
	172	.ascii $line_name
	173	"
	174	if { $line_dir != "" } {
	175	puts $f " .uleb128 1"
	176	} else {
	177	puts $f " .uleb128 0"
	178	}
	179	puts -nonewline $f "\
	180	.uleb128 0
	181	.uleb128 0
	182
	183	.byte 0
	184
	185	.Lline_${name}_lines:
	186	.byte 3 /* DW_LNS_advance_line */
77e6e213	187	.sleb128 997 /* ... to 998 */
1b56eb55	188	.byte 0 /* DW_LNE_set_address */
bd286a29	189	.uleb128 ${addr_len}+1
1b56eb55	190	.byte 2
9e338b14	191	.${addr_len}byte $name_start
1b56eb55 JK	192	.byte 1 /* DW_LNS_copy */
1b56eb55 JK	193	.byte 3 /* DW_LNS_advance_line */
77e6e213 TV	194	.sleb128 1 /* ... to 999 */
	195	.byte 0 /* DW_LNE_set_address */
	196	.uleb128 ${addr_len}+1
	197	.byte 2
	198	.${addr_len}byte ${name}_label
	199	.byte 1 /* DW_LNS_copy */
	200	.byte 3 /* DW_LNS_advance_line */
1b56eb55 JK	201	.sleb128 1 /* ... to 1000 */
1b56eb55 JK	202	.byte 0 /* DW_LNE_set_address */
bd286a29	203	.uleb128 ${addr_len}+1
1b56eb55	204	.byte 2
9e338b14	205	.${addr_len}byte $name_end
1b56eb55 JK	206	.byte 1 /* DW_LNS_copy */
	207	.byte 0 /* DW_LNE_end_of_sequence */
	208	.uleb128 1
	209	.byte 1
	210	.Lline_${name}_end:
	211	"
	212	}
	213
	214	# IFSOME can be optionally _same or _different if >= 2 absolute directories are
	215	# provided. Then in the _different case the overriden directories have invalid
	216	# XDIR value.
	217
	218	proc out_unit { func compdir ldir file ifsame } {
	219	set name "compdir_${compdir}_ldir_${ldir}_file_${file}${ifsame}"
	220
	221	if { $compdir == "missing_" } {
	222	set cu_dir {}
	223	} elseif { $compdir == "relative" } {
	224	set cu_dir {COMPDIR "\0"}
	225	} elseif { $compdir == "absolute" } {
	226	set cu_dir {BDIR "/" COMPDIR "\0"}
	227	} else {
	228	error "compdir $compdir"
	229	}
	230
	231	if { $ldir == "missing_" } {
	232	set line_dir {}
	233	} elseif { $ldir == "relative" } {
	234	set line_dir {LDIR "\0"}
	235	} elseif { $ldir == "absolute" } {
	236	set line_dir {BDIR "/" LDIR "\0"}
	237	} else {
	238	error "ldir $ldir"
	239	}
	240
	241	if { $file == "basename" } {
	242	set cu_name {FILE "\0"}
	243	} elseif { $file == "relative" } {
	244	set cu_name {FDIR "/" FILE "\0"}
	245	} elseif { $file == "absolute" } {
	246	set cu_name {BDIR "/" FILE "\0"}
	247	} else {
	248	error "file $file"
	249	}
	250	set line_name $cu_name
	251
	252	if { "$ifsame" == "_different" } {
	253	if { $file == "absolute" } {
	254	if { $ldir == "absolute" } {
	255	set line_dir {XDIR "\0"}
	256	}
	257	if { $compdir == "absolute" } {
	258	set cu_dir {XDIR "\0"}
	259	}
	260	} elseif { $ldir == "absolute" } {
	261	if { $compdir == "absolute" } {
	262	set cu_dir {XDIR "\0"}
	263	}
	264	} else {
	265	error "not enough absolutes"
	266	}
	267	}
	268
	269	$func $name $cu_dir $cu_name $line_dir $line_name
270	}
271
272	proc out_diff { func compdir ldir file } {
273	set abscount 0
274	if { $compdir == "absolute" } {
275	incr abscount
276	}
277	if { $ldir == "absolute" } {
278	incr abscount
279	}
280	if { $file == "absolute" } {
281	incr abscount
282	}
283	if { $abscount <= 1 } {
284	out_unit $func $compdir $ldir $file ""
285	} else {
286	out_unit $func $compdir $ldir $file "_same"
287	out_unit $func $compdir $ldir $file "_different"
288	}
289	}
290
291	proc out_file { func compdir ldir } {
292	out_diff $func $compdir $ldir "basename"
293	out_diff $func $compdir $ldir "relative"
294	out_diff $func $compdir $ldir "absolute"
295	}
296
297	proc out_ldir { func compdir } {
298	out_file $func $compdir "missing_"
299	out_file $func $compdir "relative"
300	out_file $func $compdir "absolute"
301	}
302
303	proc out_compdir { func } {
304	out_ldir $func "missing_"
305	out_ldir $func "relative"
306	out_ldir $func "absolute"
307	}
308
309	puts -nonewline $f "\
310	#define ABBREV_NAME 1
311	#define ABBREV_COMP_DIR_NAME 2
312	.section .debug_info
313	"
314	out_compdir out_cu
315
511f4ff4 TV	316	Dwarf::assemble { add_dummy_cus 0 file_id $f } {
	317	global func_info_names
	318
	319	foreach name $func_info_names {
	320	global ${name}_start
	321	global ${name}_end
	322	set name_start [set ${name}_start]
	323	set name_end [set ${name}_end]
	324
	325	set cu_label .L${name}_begin
	326	aranges {} cu_label {
	327	arange {} $name_start "$name_end - $name_start"
	328	}
	329	}
	330	}
	331
1b56eb55 JK	332	puts $f " .section .debug_line"
	333	out_compdir out_line
	334
	335	puts -nonewline $f "\
	336	.section .debug_abbrev
	337	.Labbrev1_begin:
	338
	339	.uleb128 ABBREV_NAME /* Abbrev code */
	340	.uleb128 0x11 /* DW_TAG_compile_unit */
	341	.byte 1 /* has_children */
	342	.uleb128 0x25 /* DW_AT_producer */
	343	.uleb128 0x8 /* DW_FORM_string */
	344	.uleb128 0x13 /* DW_AT_language */
	345	.uleb128 0xb /* DW_FORM_data1 */
	346	.uleb128 0x10 /* DW_AT_stmt_list */
	347	.uleb128 0x6 /* DW_FORM_data4 */
	348	.uleb128 0x11 /* DW_AT_low_pc */
	349	.uleb128 0x1 /* DW_FORM_addr */
	350	.uleb128 0x12 /* DW_AT_high_pc */
	351	.uleb128 0x1 /* DW_FORM_addr */
	352	.uleb128 0x3 /* DW_AT_name */
	353	.uleb128 0x8 /* DW_FORM_string */
	354	.byte 0x0 /* Terminator */
	355	.byte 0x0 /* Terminator */
	356
	357	.uleb128 ABBREV_COMP_DIR_NAME /* Abbrev code */
	358	.uleb128 0x11 /* DW_TAG_compile_unit */
	359	.byte 1 /* has_children */
	360	.uleb128 0x25 /* DW_AT_producer */
	361	.uleb128 0x8 /* DW_FORM_string */
	362	.uleb128 0x13 /* DW_AT_language */
	363	.uleb128 0xb /* DW_FORM_data1 */
	364	.uleb128 0x10 /* DW_AT_stmt_list */
	365	.uleb128 0x6 /* DW_FORM_data4 */
	366	.uleb128 0x11 /* DW_AT_low_pc */
	367	.uleb128 0x1 /* DW_FORM_addr */
	368	.uleb128 0x12 /* DW_AT_high_pc */
	369	.uleb128 0x1 /* DW_FORM_addr */
	370	.uleb128 0x1b /* DW_AT_comp_dir */
	371	.uleb128 0x8 /* DW_FORM_string */
	372	.uleb128 0x3 /* DW_AT_name */
	373	.uleb128 0x8 /* DW_FORM_string */
	374	.byte 0x0 /* Terminator */
	375	.byte 0x0 /* Terminator */
	376
	377	.uleb128 3 /* Abbrev code */
	378	.uleb128 0x2e /* DW_TAG_subprogram */
	379	.byte 0 /* has_children */
	380	.uleb128 0x3 /* DW_AT_name */
	381	.uleb128 0x8 /* DW_FORM_string */
	382	.uleb128 0x11 /* DW_AT_low_pc */
	383	.uleb128 0x1 /* DW_FORM_addr */
	384	.uleb128 0x12 /* DW_AT_high_pc */
	385	.uleb128 0x1 /* DW_FORM_addr */
	386	.byte 0x0 /* Terminator */
	387	.byte 0x0 /* Terminator */
	388
	389	.byte 0x0 /* Terminator */
	390	.byte 0x0 /* Terminator */
	391	"
	392
	393	close $f
	394
	395	set opts {}
396	# Base directory.
397	lappend opts "additional_flags=-DBDIR=\"${srcabsdir}\""
398	# Incorrect directory which should never be visible from GDB.
399	lappend opts "additional_flags=-DXDIR=\"${srcabsdir}/xdir\""
400	# CU's DW_AT_comp_dir.
401	lappend opts "additional_flags=-DCOMPDIR=\"compdir\""
402	# .debug_line's directory.
403	lappend opts "additional_flags=-DLDIR=\"ldir\""
404	# CU's DW_AT_name and .debug_line's filename relative directory, if needed.
405	lappend opts "additional_flags=-DFDIR=\"fdir\""
406	# CU's DW_AT_name and .debug_line's filename.
407	lappend opts "additional_flags=-DFILE=\"${srctmpfile}\""
408
b04aa1fc GB	409	# Clang's integrated assembler doesn't support .ascii directives
	410	# with multiple string literals.
	411	if { [test_compiler_info clang*] } {
	412	lappend opts "additional_flags=-fno-integrated-as"
	413	}
	414
1b56eb55	415	if { [gdb_compile "${asmsrcfile} ${srcdir}/${subdir}/$srcfile" "${binfile}" executable $opts] != "" } {
84c93cd5	416	untested "failed to compile"
1b56eb55 JK	417	return -1
	418	}
	419
02392865 CG	420	set dirs {}
	421	foreach r {"" /rdir} {
	422	foreach x {"" /xdir} {
	423	foreach comp {"" /compdir} {
	424	foreach l {"" /ldir} {
	425	foreach f {"" /fdir} {
	426	lappend dirs $r$x$comp$l$f
	427	}
	428	}
	429	}
	430	}
	431	}
	432
	433	proc pathexpand {prefix dirlst suffix} {
	434	set retlst {}
	435	foreach dir $dirlst {
	436	lappend retlst "$prefix$dir$suffix"
	437	}
	438	return $retlst
	439	}
	440
	441	set filelist [pathexpand $srcabsdir $dirs "/$srctmpfile"]
	442	set dircreatelist [pathexpand $srcabsdir $dirs ""]
	443	set dirremovelist [pathexpand $srcabsdir [lreverse $dirs] ""]
	444
	445	remote_exec host "sh -c \"rm -f $filelist\""
	446	remote_exec host "sh -c \"rmdir $dirremovelist\""
	447	remote_exec host "sh -c \"mkdir $dircreatelist\""
	448	remote_exec host "sh -c \"for d in $dircreatelist; do cp ${srcdir}/${subdir}/${srcfile} \\\$d/${srctmpfile}; done\""
1b56eb55 JK	449
	450	clean_restart ${testfile}
	451
	452	if ![runto_main] {
	453	return -1
	454	}
	455
5a2dc60a	456	gdb_test "cd ${srcabsdir}/rdir" "Working directory [string_to_regexp ${srcabsdir}]/rdir\\." "cd .../rdir"
1b56eb55	457
0a251e08 YQ	458	proc test { func compdir filename } {
	459	with_test_prefix "$func" {
	460	# Clear the GDB cache.
	461	gdb_test_no_output "set directories" ""
1b56eb55	462
0a251e08 YQ	463	if {$compdir == ""} {
	464	set absolute "$filename"
	465	} else {
	466	set absolute "$compdir/$filename"
	467	}
	468	if {[string index $absolute 0] != "/"} {
	469	error "not absolute"
	470	}
1b56eb55	471
52b920c5	472	gdb_breakpoint ${func}_label
77e6e213	473	gdb_test "continue" "$func \\(\\) at .*" "continue to $func"
1b56eb55	474
0a251e08 YQ	475	gdb_test_no_output "set filename-display absolute"
0a251e08 YQ	476	verbose -log "expect: ${absolute}"
77e6e213	477	gdb_test "frame" "$func \\(\\) at [string_to_regexp ${absolute}]:999" "absolute"
1b56eb55	478
0a251e08 YQ	479	gdb_test_no_output "set filename-display basename"
0a251e08 YQ	480	verbose -log "expect: [file tail $filename]"
77e6e213	481	gdb_test "frame" "$func \\(\\) at [string_to_regexp [file tail $filename]]:999" "basename"
1b56eb55	482
0a251e08 YQ	483	gdb_test_no_output "set filename-display relative"
0a251e08 YQ	484	verbose -log "expect: $filename"
77e6e213	485	gdb_test "frame" "$func \\(\\) at [string_to_regexp $filename]:999" "relative"
0a251e08 YQ	486	}
0a251e08 YQ	487	}
1b56eb55 JK	488
	489	set bdir "${srcabsdir}"
	490	set file "${srctmpfile}"
	491	test "compdir_missing__ldir_missing__file_basename" "$bdir/rdir" "$file"
	492	test "compdir_missing__ldir_missing__file_relative" "$bdir/rdir" "fdir/$file"
	493	test "compdir_missing__ldir_missing__file_absolute" "" "$bdir/$file"
	494	test "compdir_missing__ldir_relative_file_basename" "$bdir/rdir" "ldir/$file"
	495	test "compdir_missing__ldir_relative_file_relative" "$bdir/rdir" "ldir/fdir/$file"
	496	test "compdir_missing__ldir_relative_file_absolute" "" "$bdir/$file"
	497	test "compdir_missing__ldir_absolute_file_basename" "" "$bdir/ldir/$file"
	498	test "compdir_missing__ldir_absolute_file_relative" "" "$bdir/ldir/fdir/$file"
	499	test "compdir_missing__ldir_absolute_file_absolute_same" "" "$bdir/$file"
	500	test "compdir_missing__ldir_absolute_file_absolute_different" "" "$bdir/$file"
	501	test "compdir_relative_ldir_missing__file_basename" "$bdir/rdir/compdir" "$file"
	502	test "compdir_relative_ldir_missing__file_relative" "$bdir/rdir/compdir" "fdir/$file"
	503	test "compdir_relative_ldir_missing__file_absolute" "" "$bdir/$file"
	504	test "compdir_relative_ldir_relative_file_basename" "$bdir/rdir/compdir" "ldir/$file"
	505	test "compdir_relative_ldir_relative_file_relative" "$bdir/rdir/compdir" "ldir/fdir/$file"
	506	test "compdir_relative_ldir_relative_file_absolute" "" "$bdir/$file"
	507	test "compdir_relative_ldir_absolute_file_basename" "" "$bdir/ldir/$file"
	508	test "compdir_relative_ldir_absolute_file_relative" "" "$bdir/ldir/fdir/$file"
	509	test "compdir_relative_ldir_absolute_file_absolute_same" "" "$bdir/$file"
	510	test "compdir_relative_ldir_absolute_file_absolute_different" "" "$bdir/$file"
	511	test "compdir_absolute_ldir_missing__file_basename" "$bdir/compdir" "$file"
	512	test "compdir_absolute_ldir_missing__file_relative" "$bdir/compdir" "fdir/$file"
	513	test "compdir_absolute_ldir_missing__file_absolute_same" "" "$bdir/$file"
	514	test "compdir_absolute_ldir_missing__file_absolute_different" "" "$bdir/$file"
	515	test "compdir_absolute_ldir_relative_file_basename" "$bdir/compdir" "ldir/$file"
	516	test "compdir_absolute_ldir_relative_file_relative" "$bdir/compdir" "ldir/fdir/$file"
	517	test "compdir_absolute_ldir_relative_file_absolute_same" "" "$bdir/$file"
	518	test "compdir_absolute_ldir_relative_file_absolute_different" "" "$bdir/$file"
	519	test "compdir_absolute_ldir_absolute_file_basename_same" "" "$bdir/ldir/$file"
	520	test "compdir_absolute_ldir_absolute_file_relative_different" "" "$bdir/ldir/fdir/$file"
	521	test "compdir_absolute_ldir_absolute_file_absolute_same" "" "$bdir/$file"
	522	test "compdir_absolute_ldir_absolute_file_absolute_different" "" "$bdir/$file"