diff options
-rw-r--r-- | gdb/testsuite/gdb.guile/scm-parameter.exp | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.guile/scm-parameter.exp b/gdb/testsuite/gdb.guile/scm-parameter.exp index 2e9d9ed..e2f82a1 100644 --- a/gdb/testsuite/gdb.guile/scm-parameter.exp +++ b/gdb/testsuite/gdb.guile/scm-parameter.exp @@ -34,8 +34,15 @@ proc scm_param_test_maybe_no_output { command pattern args } { } # We use "." here instead of ":" so that this works on win32 too. -set escaped_directory [string_to_regexp "$srcdir/$subdir"] -gdb_test "guile (print (parameter-value \"directories\"))" "$escaped_directory.\\\$cdir.\\\$cwd" +if { [is_remote host] } { + # Proc gdb_reinitialize_dir has no effect for remote host. + gdb_test "guile (print (parameter-value \"directories\"))" \ + "\\\$cdir.\\\$cwd" +} else { + set escaped_directory [string_to_regexp "$srcdir/$subdir"] + gdb_test "guile (print (parameter-value \"directories\"))" \ + "$escaped_directory.\\\$cdir.\\\$cwd" +} # Test a simple boolean parameter, and parameter? while we're at it. |