Add Guile as an extension language.

[deliverable/binutils-gdb.git] / gdb / testsuite / lib / gdb.exp

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 37164728a102b07aedbd29b1c44d04e9ea6b4b1b..66dc8f7d9c6373aa4185e68edcbe09f51de90fd8 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -4399,6 +4399,23 @@ proc get_sizeof { type default } {
     return [get_integer_valueof "sizeof (${type})" $default]
 }
 
+proc get_target_charset { } {
+    global gdb_prompt
+
+    gdb_test_multiple "show target-charset" "" {
+       -re "The target character set is \"auto; currently (\[^\"\]*)\".*$gdb_prompt $" {
+           return $expect_out(1,string)
+       }
+       -re "The target character set is \"(\[^\"\]*)\".*$gdb_prompt $" {
+           return $expect_out(1,string)
+       }
+    }
+
+    # Pick a reasonable default.
+    warning "Unable to read target-charset."
+    return "UTF-8"
+}
+
 # Get the current value for remotetimeout and return it.
 proc get_remotetimeout { } {
     global gdb_prompt