[gdb/testsuite] Fix captured_command_loop breakpoint in selftests
[binutils-gdb.git] / gdb / d-lang.c
index 001af06a82af1fdfc1bcd583460bbea9dda97c39..4ebb011ee9b0374251209123a646939a554bc209 100644 (file)
@@ -142,23 +142,12 @@ extern const struct language_data d_language_data =
   macro_expansion_no,
   d_extensions,
   &exp_descriptor_c,
-  d_parse,
-  null_post_parser,
-  c_printchar,                 /* Print a character constant.  */
-  c_printstr,                  /* Function to print string constant.  */
-  c_emit_char,                 /* Print a single char.  */
-  c_print_typedef,             /* Print a typedef using appropriate
-                                  syntax.  */
-  d_value_print_inner,         /* la_value_print_inner */
-  c_value_print,               /* Print a top-level value.  */
   "this",
   false,                       /* la_store_sym_names_in_linkage_form_p */
-  d_lookup_symbol_nonlocal,
   d_op_print_tab,              /* Expression operators for printing.  */
   1,                           /* C-style arrays.  */
   0,                           /* String lower bound.  */
   &default_varobj_ops,
-  c_is_string_type_p,
   "{...}"                      /* la_struct_too_deep_ellipsis */
 };
 
@@ -258,6 +247,31 @@ public:
   {
     c_print_type (type, varstring, stream, show, level, flags);
   }
+
+  /* See language.h.  */
+
+  void value_print_inner
+       (struct value *val, struct ui_file *stream, int recurse,
+        const struct value_print_options *options) const override
+  {
+    return d_value_print_inner (val, stream, recurse, options);
+  }
+
+  /* See language.h.  */
+
+  struct block_symbol lookup_symbol_nonlocal
+       (const char *name, const struct block *block,
+        const domain_enum domain) const override
+  {
+    return d_lookup_symbol_nonlocal (this, name, block, domain);
+  }
+
+  /* See language.h.  */
+
+  int parser (struct parser_state *ps) const override
+  {
+    return d_parse (ps);
+  }
 };
 
 /* Single instance of the D language class.  */