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

# Copyright 2012-2016 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.
if {![dwarf2_support]} {
    return 0  
}

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

standard_testfile
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

    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

    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	998	/* ... to 999 */
	.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 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

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}\""

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
	gdb_continue_to_breakpoint $func "$func \\(\\) at .*"

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