1 /* Multiple source language support for GDB.
3 Copyright (C) 1991-2016 Free Software Foundation, Inc.
5 Contributed by the Department of Computer Science at the State University
6 of New York at Buffalo.
8 This file is part of GDB.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 /* This file contains functions that return things that are specific
24 to languages. Each function should examine current_language if necessary,
25 and return the appropriate result. */
27 /* FIXME: Most of these would be better organized as macros which
28 return data out of a "language-specific" struct pointer that is set
29 whenever the working language changes. That would be a lot faster. */
37 #include "expression.h"
41 #include "parser-defs.h"
45 #include "cp-support.h"
48 extern void _initialize_language (void);
50 static void unk_lang_error (char *);
52 static int unk_lang_parser (struct parser_state
*);
54 static void show_check (char *, int);
56 static void set_check (char *, int);
58 static void set_range_case (void);
60 static void unk_lang_emit_char (int c
, struct type
*type
,
61 struct ui_file
*stream
, int quoter
);
63 static void unk_lang_printchar (int c
, struct type
*type
,
64 struct ui_file
*stream
);
66 static void unk_lang_value_print (struct value
*, struct ui_file
*,
67 const struct value_print_options
*);
69 static CORE_ADDR
unk_lang_trampoline (struct frame_info
*, CORE_ADDR pc
);
71 /* Forward declaration */
72 extern const struct language_defn unknown_language_defn
;
74 /* The current (default at startup) state of type and range checking.
75 (If the modes are set to "auto", though, these are changed based
76 on the default language at startup, and then again based on the
77 language of the first source file. */
79 enum range_mode range_mode
= range_mode_auto
;
80 enum range_check range_check
= range_check_off
;
81 enum case_mode case_mode
= case_mode_auto
;
82 enum case_sensitivity case_sensitivity
= case_sensitive_on
;
84 /* The current language and language_mode (see language.h). */
86 const struct language_defn
*current_language
= &unknown_language_defn
;
87 enum language_mode language_mode
= language_mode_auto
;
89 /* The language that the user expects to be typing in (the language
90 of main(), or the last language we notified them about, or C). */
92 const struct language_defn
*expected_language
;
94 /* The list of supported languages. The list itself is malloc'd. */
96 static const struct language_defn
**languages
;
97 static unsigned languages_size
;
98 static unsigned languages_allocsize
;
99 #define DEFAULT_ALLOCSIZE 4
101 /* The current values of the "set language/type/range" enum
103 static const char *language
;
104 static const char *type
;
105 static const char *range
;
106 static const char *case_sensitive
;
108 /* Warning issued when current_language and the language of the current
109 frame do not match. */
110 char lang_frame_mismatch_warn
[] =
111 "Warning: the current language does not match this frame.";
113 /* This page contains the functions corresponding to GDB commands
114 and their helpers. */
116 /* Show command. Display a warning if the language set
117 does not match the frame. */
119 show_language_command (struct ui_file
*file
, int from_tty
,
120 struct cmd_list_element
*c
, const char *value
)
122 enum language flang
; /* The language of the frame. */
124 if (language_mode
== language_mode_auto
)
125 fprintf_filtered (gdb_stdout
,
126 _("The current source language is "
127 "\"auto; currently %s\".\n"),
128 current_language
->la_name
);
130 fprintf_filtered (gdb_stdout
,
131 _("The current source language is \"%s\".\n"),
132 current_language
->la_name
);
134 if (has_stack_frames ())
136 struct frame_info
*frame
;
138 frame
= get_selected_frame (NULL
);
139 flang
= get_frame_language (frame
);
140 if (flang
!= language_unknown
141 && language_mode
== language_mode_manual
142 && current_language
->la_language
!= flang
)
143 printf_filtered ("%s\n", lang_frame_mismatch_warn
);
147 /* Set command. Change the current working language. */
149 set_language_command (char *ignore
, int from_tty
, struct cmd_list_element
*c
)
152 enum language flang
= language_unknown
;
154 /* Search the list of languages for a match. */
155 for (i
= 0; i
< languages_size
; i
++)
157 if (strcmp (languages
[i
]->la_name
, language
) == 0)
159 /* Found it! Go into manual mode, and use this language. */
160 if (languages
[i
]->la_language
== language_auto
)
162 /* Enter auto mode. Set to the current frame's language, if
163 known, or fallback to the initial language. */
164 language_mode
= language_mode_auto
;
167 struct frame_info
*frame
;
169 frame
= get_selected_frame (NULL
);
170 flang
= get_frame_language (frame
);
172 CATCH (ex
, RETURN_MASK_ERROR
)
174 flang
= language_unknown
;
178 if (flang
!= language_unknown
)
179 set_language (flang
);
181 set_initial_language ();
182 expected_language
= current_language
;
187 /* Enter manual mode. Set the specified language. */
188 language_mode
= language_mode_manual
;
189 current_language
= languages
[i
];
191 expected_language
= current_language
;
197 internal_error (__FILE__
, __LINE__
,
198 "Couldn't find language `%s' in known languages list.",
202 /* Show command. Display a warning if the range setting does
203 not match the current language. */
205 show_range_command (struct ui_file
*file
, int from_tty
,
206 struct cmd_list_element
*c
, const char *value
)
208 if (range_mode
== range_mode_auto
)
217 case range_check_off
:
220 case range_check_warn
:
224 internal_error (__FILE__
, __LINE__
,
225 "Unrecognized range check setting.");
228 fprintf_filtered (gdb_stdout
,
229 _("Range checking is \"auto; currently %s\".\n"),
233 fprintf_filtered (gdb_stdout
, _("Range checking is \"%s\".\n"),
236 if (range_check
!= current_language
->la_range_check
)
237 warning (_("the current range check setting "
238 "does not match the language.\n"));
241 /* Set command. Change the setting for range checking. */
243 set_range_command (char *ignore
, int from_tty
, struct cmd_list_element
*c
)
245 if (strcmp (range
, "on") == 0)
247 range_check
= range_check_on
;
248 range_mode
= range_mode_manual
;
250 else if (strcmp (range
, "warn") == 0)
252 range_check
= range_check_warn
;
253 range_mode
= range_mode_manual
;
255 else if (strcmp (range
, "off") == 0)
257 range_check
= range_check_off
;
258 range_mode
= range_mode_manual
;
260 else if (strcmp (range
, "auto") == 0)
262 range_mode
= range_mode_auto
;
268 internal_error (__FILE__
, __LINE__
,
269 _("Unrecognized range check setting: \"%s\""), range
);
271 if (range_check
!= current_language
->la_range_check
)
272 warning (_("the current range check setting "
273 "does not match the language.\n"));
276 /* Show command. Display a warning if the case sensitivity setting does
277 not match the current language. */
279 show_case_command (struct ui_file
*file
, int from_tty
,
280 struct cmd_list_element
*c
, const char *value
)
282 if (case_mode
== case_mode_auto
)
286 switch (case_sensitivity
)
288 case case_sensitive_on
:
291 case case_sensitive_off
:
295 internal_error (__FILE__
, __LINE__
,
296 "Unrecognized case-sensitive setting.");
299 fprintf_filtered (gdb_stdout
,
300 _("Case sensitivity in "
301 "name search is \"auto; currently %s\".\n"),
305 fprintf_filtered (gdb_stdout
,
306 _("Case sensitivity in name search is \"%s\".\n"),
309 if (case_sensitivity
!= current_language
->la_case_sensitivity
)
310 warning (_("the current case sensitivity setting does not match "
314 /* Set command. Change the setting for case sensitivity. */
317 set_case_command (char *ignore
, int from_tty
, struct cmd_list_element
*c
)
319 if (strcmp (case_sensitive
, "on") == 0)
321 case_sensitivity
= case_sensitive_on
;
322 case_mode
= case_mode_manual
;
324 else if (strcmp (case_sensitive
, "off") == 0)
326 case_sensitivity
= case_sensitive_off
;
327 case_mode
= case_mode_manual
;
329 else if (strcmp (case_sensitive
, "auto") == 0)
331 case_mode
= case_mode_auto
;
337 internal_error (__FILE__
, __LINE__
,
338 "Unrecognized case-sensitive setting: \"%s\"",
342 if (case_sensitivity
!= current_language
->la_case_sensitivity
)
343 warning (_("the current case sensitivity setting does not match "
347 /* Set the status of range and type checking and case sensitivity based on
348 the current modes and the current language.
349 If SHOW is non-zero, then print out the current language,
350 type and range checking status. */
352 set_range_case (void)
354 if (range_mode
== range_mode_auto
)
355 range_check
= current_language
->la_range_check
;
357 if (case_mode
== case_mode_auto
)
358 case_sensitivity
= current_language
->la_case_sensitivity
;
361 /* Set current language to (enum language) LANG. Returns previous
365 set_language (enum language lang
)
368 enum language prev_language
;
370 prev_language
= current_language
->la_language
;
372 for (i
= 0; i
< languages_size
; i
++)
374 if (languages
[i
]->la_language
== lang
)
376 current_language
= languages
[i
];
382 return prev_language
;
386 /* Print out the current language settings: language, range and
387 type checking. If QUIETLY, print only what has changed. */
390 language_info (int quietly
)
392 if (quietly
&& expected_language
== current_language
)
395 expected_language
= current_language
;
396 printf_unfiltered (_("Current language: %s\n"), language
);
397 show_language_command (NULL
, 1, NULL
, NULL
);
401 printf_unfiltered (_("Range checking: %s\n"), range
);
402 show_range_command (NULL
, 1, NULL
, NULL
);
403 printf_unfiltered (_("Case sensitivity: %s\n"), case_sensitive
);
404 show_case_command (NULL
, 1, NULL
, NULL
);
409 /* Returns non-zero if the value is a pointer type. */
411 pointer_type (struct type
*type
)
413 return TYPE_CODE (type
) == TYPE_CODE_PTR
||
414 TYPE_CODE (type
) == TYPE_CODE_REF
;
418 /* This page contains functions that return info about
419 (struct value) values used in GDB. */
421 /* Returns non-zero if the value VAL represents a true value. */
423 value_true (struct value
*val
)
425 /* It is possible that we should have some sort of error if a non-boolean
426 value is used in this context. Possibly dependent on some kind of
427 "boolean-checking" option like range checking. But it should probably
428 not depend on the language except insofar as is necessary to identify
429 a "boolean" value (i.e. in C using a float, pointer, etc., as a boolean
430 should be an error, probably). */
431 return !value_logical_not (val
);
434 /* This page contains functions for the printing out of
435 error messages that occur during type- and range-
438 /* This is called when a language fails a range-check. The
439 first argument should be a printf()-style format string, and the
440 rest of the arguments should be its arguments. If range_check is
441 range_check_on, an error is printed; if range_check_warn, a warning;
442 otherwise just the message. */
445 range_error (const char *string
,...)
449 va_start (args
, string
);
452 case range_check_warn
:
453 vwarning (string
, args
);
456 verror (string
, args
);
458 case range_check_off
:
459 /* FIXME: cagney/2002-01-30: Should this function print anything
460 when range error is off? */
461 vfprintf_filtered (gdb_stderr
, string
, args
);
462 fprintf_filtered (gdb_stderr
, "\n");
465 internal_error (__FILE__
, __LINE__
, _("bad switch"));
471 /* This page contains miscellaneous functions. */
473 /* Return the language enum for a given language string. */
476 language_enum (char *str
)
480 for (i
= 0; i
< languages_size
; i
++)
481 if (strcmp (languages
[i
]->la_name
, str
) == 0)
482 return languages
[i
]->la_language
;
484 return language_unknown
;
487 /* Return the language struct for a given language enum. */
489 const struct language_defn
*
490 language_def (enum language lang
)
494 for (i
= 0; i
< languages_size
; i
++)
496 if (languages
[i
]->la_language
== lang
)
504 /* Return the language as a string. */
506 language_str (enum language lang
)
510 for (i
= 0; i
< languages_size
; i
++)
512 if (languages
[i
]->la_language
== lang
)
514 return languages
[i
]->la_name
;
521 set_check (char *ignore
, int from_tty
)
524 "\"set check\" must be followed by the name of a check subcommand.\n");
525 help_list (setchecklist
, "set check ", all_commands
, gdb_stdout
);
529 show_check (char *ignore
, int from_tty
)
531 cmd_show_list (showchecklist
, from_tty
, "");
534 /* Add a language to the set of known languages. */
537 add_language (const struct language_defn
*lang
)
539 /* For the "set language" command. */
540 static const char **language_names
= NULL
;
541 /* For the "help set language" command. */
542 char *language_set_doc
= NULL
;
545 struct ui_file
*tmp_stream
;
547 if (lang
->la_magic
!= LANG_MAGIC
)
549 fprintf_unfiltered (gdb_stderr
,
550 "Magic number of %s language struct wrong\n",
552 internal_error (__FILE__
, __LINE__
,
553 _("failed internal consistency check"));
558 languages_allocsize
= DEFAULT_ALLOCSIZE
;
559 languages
= XNEWVEC (const struct language_defn
*, languages_allocsize
);
561 if (languages_size
>= languages_allocsize
)
563 languages_allocsize
*= 2;
564 languages
= (const struct language_defn
**) xrealloc ((char *) languages
,
565 languages_allocsize
* sizeof (*languages
));
567 languages
[languages_size
++] = lang
;
569 /* Build the language names array, to be used as enumeration in the
570 set language" enum command. */
571 language_names
= XRESIZEVEC (const char *, language_names
,
574 for (i
= 0; i
< languages_size
; ++i
)
575 language_names
[i
] = languages
[i
]->la_name
;
576 language_names
[i
] = NULL
;
578 /* Add the filename extensions. */
579 if (lang
->la_filename_extensions
!= NULL
)
583 for (i
= 0; lang
->la_filename_extensions
[i
] != NULL
; ++i
)
584 add_filename_language (lang
->la_filename_extensions
[i
],
588 /* Build the "help set language" docs. */
589 tmp_stream
= mem_fileopen ();
591 fprintf_unfiltered (tmp_stream
,
592 _("Set the current source language.\n"
593 "The currently understood settings are:\n\nlocal or "
594 "auto Automatic setting based on source file\n"));
596 for (i
= 0; i
< languages_size
; ++i
)
598 /* Already dealt with these above. */
599 if (languages
[i
]->la_language
== language_unknown
600 || languages
[i
]->la_language
== language_auto
)
603 /* FIXME: i18n: for now assume that the human-readable name
604 is just a capitalization of the internal name. */
605 fprintf_unfiltered (tmp_stream
, "%-16s Use the %c%s language\n",
606 languages
[i
]->la_name
,
607 /* Capitalize first letter of language
609 toupper (languages
[i
]->la_name
[0]),
610 languages
[i
]->la_name
+ 1);
613 language_set_doc
= ui_file_xstrdup (tmp_stream
, NULL
);
614 ui_file_delete (tmp_stream
);
616 add_setshow_enum_cmd ("language", class_support
,
617 (const char **) language_names
,
620 _("Show the current source language."),
621 NULL
, set_language_command
,
622 show_language_command
,
623 &setlist
, &showlist
);
625 xfree (language_set_doc
);
628 /* Iterate through all registered languages looking for and calling
629 any non-NULL struct language_defn.skip_trampoline() functions.
630 Return the result from the first that returns non-zero, or 0 if all
633 skip_language_trampoline (struct frame_info
*frame
, CORE_ADDR pc
)
637 for (i
= 0; i
< languages_size
; i
++)
639 if (languages
[i
]->skip_trampoline
)
641 CORE_ADDR real_pc
= (languages
[i
]->skip_trampoline
) (frame
, pc
);
651 /* Return demangled language symbol, or NULL.
652 FIXME: Options are only useful for certain languages and ignored
653 by others, so it would be better to remove them here and have a
654 more flexible demangler for the languages that need it.
655 FIXME: Sometimes the demangler is invoked when we don't know the
656 language, so we can't use this everywhere. */
658 language_demangle (const struct language_defn
*current_language
,
659 const char *mangled
, int options
)
661 if (current_language
!= NULL
&& current_language
->la_demangle
)
662 return current_language
->la_demangle (mangled
, options
);
666 /* See langauge.h. */
669 language_sniff_from_mangled_name (const struct language_defn
*lang
,
670 const char *mangled
, char **demangled
)
672 gdb_assert (lang
!= NULL
);
674 if (lang
->la_sniff_from_mangled_name
== NULL
)
680 return lang
->la_sniff_from_mangled_name (mangled
, demangled
);
683 /* Return class name from physname or NULL. */
685 language_class_name_from_physname (const struct language_defn
*lang
,
686 const char *physname
)
688 if (lang
!= NULL
&& lang
->la_class_name_from_physname
)
689 return lang
->la_class_name_from_physname (physname
);
693 /* Return non-zero if TYPE should be passed (and returned) by
694 reference at the language level. */
696 language_pass_by_reference (struct type
*type
)
698 return current_language
->la_pass_by_reference (type
);
701 /* Return zero; by default, types are passed by value at the language
702 level. The target ABI may pass or return some structs by reference
703 independent of this. */
705 default_pass_by_reference (struct type
*type
)
710 /* Return the default string containing the list of characters
711 delimiting words. This is a reasonable default value that
712 most languages should be able to use. */
715 default_word_break_characters (void)
717 return " \t\n!@#$%^&*()+=|~`}{[]\"';:?/>.<,-";
720 /* Print the index of array elements using the C99 syntax. */
723 default_print_array_index (struct value
*index_value
, struct ui_file
*stream
,
724 const struct value_print_options
*options
)
726 fprintf_filtered (stream
, "[");
727 LA_VALUE_PRINT (index_value
, stream
, options
);
728 fprintf_filtered (stream
, "] = ");
732 default_get_string (struct value
*value
, gdb_byte
**buffer
, int *length
,
733 struct type
**char_type
, const char **charset
)
735 error (_("Getting a string is unsupported in this language."));
738 /* Define the language that is no language. */
741 unk_lang_parser (struct parser_state
*ps
)
747 unk_lang_error (char *msg
)
749 error (_("Attempted to parse an expression with unknown language"));
753 unk_lang_emit_char (int c
, struct type
*type
, struct ui_file
*stream
,
756 error (_("internal error - unimplemented "
757 "function unk_lang_emit_char called."));
761 unk_lang_printchar (int c
, struct type
*type
, struct ui_file
*stream
)
763 error (_("internal error - unimplemented "
764 "function unk_lang_printchar called."));
768 unk_lang_printstr (struct ui_file
*stream
, struct type
*type
,
769 const gdb_byte
*string
, unsigned int length
,
770 const char *encoding
, int force_ellipses
,
771 const struct value_print_options
*options
)
773 error (_("internal error - unimplemented "
774 "function unk_lang_printstr called."));
778 unk_lang_print_type (struct type
*type
, const char *varstring
,
779 struct ui_file
*stream
, int show
, int level
,
780 const struct type_print_options
*flags
)
782 error (_("internal error - unimplemented "
783 "function unk_lang_print_type called."));
787 unk_lang_val_print (struct type
*type
, const gdb_byte
*valaddr
,
788 int embedded_offset
, CORE_ADDR address
,
789 struct ui_file
*stream
, int recurse
,
790 const struct value
*val
,
791 const struct value_print_options
*options
)
793 error (_("internal error - unimplemented "
794 "function unk_lang_val_print called."));
798 unk_lang_value_print (struct value
*val
, struct ui_file
*stream
,
799 const struct value_print_options
*options
)
801 error (_("internal error - unimplemented "
802 "function unk_lang_value_print called."));
805 static CORE_ADDR
unk_lang_trampoline (struct frame_info
*frame
, CORE_ADDR pc
)
810 /* Unknown languages just use the cplus demangler. */
811 static char *unk_lang_demangle (const char *mangled
, int options
)
813 return gdb_demangle (mangled
, options
);
816 static char *unk_lang_class_name (const char *mangled
)
821 static const struct op_print unk_op_print_tab
[] =
823 {NULL
, OP_NULL
, PREC_NULL
, 0}
827 unknown_language_arch_info (struct gdbarch
*gdbarch
,
828 struct language_arch_info
*lai
)
830 lai
->string_char_type
= builtin_type (gdbarch
)->builtin_char
;
831 lai
->bool_type_default
= builtin_type (gdbarch
)->builtin_int
;
832 lai
->primitive_type_vector
= GDBARCH_OBSTACK_CALLOC (gdbarch
, 1,
836 const struct language_defn unknown_language_defn
=
846 &exp_descriptor_standard
,
850 unk_lang_printchar
, /* Print character constant */
853 unk_lang_print_type
, /* Print a type using appropriate syntax */
854 default_print_typedef
, /* Print a typedef using appropriate syntax */
855 unk_lang_val_print
, /* Print a value using appropriate syntax */
856 unk_lang_value_print
, /* Print a top-level value */
857 default_read_var_value
, /* la_read_var_value */
858 unk_lang_trampoline
, /* Language specific skip_trampoline */
859 "this", /* name_of_this */
860 basic_lookup_symbol_nonlocal
, /* lookup_symbol_nonlocal */
861 basic_lookup_transparent_type
,/* lookup_transparent_type */
862 unk_lang_demangle
, /* Language specific symbol demangler */
864 unk_lang_class_name
, /* Language specific
865 class_name_from_physname */
866 unk_op_print_tab
, /* expression operators for printing */
867 1, /* c-style arrays */
868 0, /* String lower bound */
869 default_word_break_characters
,
870 default_make_symbol_completion_list
,
871 unknown_language_arch_info
, /* la_language_arch_info. */
872 default_print_array_index
,
873 default_pass_by_reference
,
875 NULL
, /* la_get_symbol_name_cmp */
876 iterate_over_symbols
,
883 /* These two structs define fake entries for the "local" and "auto"
885 const struct language_defn auto_language_defn
=
895 &exp_descriptor_standard
,
899 unk_lang_printchar
, /* Print character constant */
902 unk_lang_print_type
, /* Print a type using appropriate syntax */
903 default_print_typedef
, /* Print a typedef using appropriate syntax */
904 unk_lang_val_print
, /* Print a value using appropriate syntax */
905 unk_lang_value_print
, /* Print a top-level value */
906 default_read_var_value
, /* la_read_var_value */
907 unk_lang_trampoline
, /* Language specific skip_trampoline */
908 "this", /* name_of_this */
909 basic_lookup_symbol_nonlocal
, /* lookup_symbol_nonlocal */
910 basic_lookup_transparent_type
,/* lookup_transparent_type */
911 unk_lang_demangle
, /* Language specific symbol demangler */
913 unk_lang_class_name
, /* Language specific
914 class_name_from_physname */
915 unk_op_print_tab
, /* expression operators for printing */
916 1, /* c-style arrays */
917 0, /* String lower bound */
918 default_word_break_characters
,
919 default_make_symbol_completion_list
,
920 unknown_language_arch_info
, /* la_language_arch_info. */
921 default_print_array_index
,
922 default_pass_by_reference
,
924 NULL
, /* la_get_symbol_name_cmp */
925 iterate_over_symbols
,
932 const struct language_defn local_language_defn
=
942 &exp_descriptor_standard
,
946 unk_lang_printchar
, /* Print character constant */
949 unk_lang_print_type
, /* Print a type using appropriate syntax */
950 default_print_typedef
, /* Print a typedef using appropriate syntax */
951 unk_lang_val_print
, /* Print a value using appropriate syntax */
952 unk_lang_value_print
, /* Print a top-level value */
953 default_read_var_value
, /* la_read_var_value */
954 unk_lang_trampoline
, /* Language specific skip_trampoline */
955 "this", /* name_of_this */
956 basic_lookup_symbol_nonlocal
, /* lookup_symbol_nonlocal */
957 basic_lookup_transparent_type
,/* lookup_transparent_type */
958 unk_lang_demangle
, /* Language specific symbol demangler */
960 unk_lang_class_name
, /* Language specific
961 class_name_from_physname */
962 unk_op_print_tab
, /* expression operators for printing */
963 1, /* c-style arrays */
964 0, /* String lower bound */
965 default_word_break_characters
,
966 default_make_symbol_completion_list
,
967 unknown_language_arch_info
, /* la_language_arch_info. */
968 default_print_array_index
,
969 default_pass_by_reference
,
971 NULL
, /* la_get_symbol_name_cmp */
972 iterate_over_symbols
,
979 /* Per-architecture language information. */
981 static struct gdbarch_data
*language_gdbarch_data
;
983 struct language_gdbarch
985 /* A vector of per-language per-architecture info. Indexed by "enum
987 struct language_arch_info arch_info
[nr_languages
];
991 language_gdbarch_post_init (struct gdbarch
*gdbarch
)
993 struct language_gdbarch
*l
;
996 l
= GDBARCH_OBSTACK_ZALLOC (gdbarch
, struct language_gdbarch
);
997 for (i
= 0; i
< languages_size
; i
++)
999 if (languages
[i
] != NULL
1000 && languages
[i
]->la_language_arch_info
!= NULL
)
1001 languages
[i
]->la_language_arch_info
1002 (gdbarch
, l
->arch_info
+ languages
[i
]->la_language
);
1008 language_string_char_type (const struct language_defn
*la
,
1009 struct gdbarch
*gdbarch
)
1011 struct language_gdbarch
*ld
1012 = (struct language_gdbarch
*) gdbarch_data (gdbarch
, language_gdbarch_data
);
1014 return ld
->arch_info
[la
->la_language
].string_char_type
;
1018 language_bool_type (const struct language_defn
*la
,
1019 struct gdbarch
*gdbarch
)
1021 struct language_gdbarch
*ld
1022 = (struct language_gdbarch
*) gdbarch_data (gdbarch
, language_gdbarch_data
);
1024 if (ld
->arch_info
[la
->la_language
].bool_type_symbol
)
1028 sym
= lookup_symbol (ld
->arch_info
[la
->la_language
].bool_type_symbol
,
1029 NULL
, VAR_DOMAIN
, NULL
).symbol
;
1032 struct type
*type
= SYMBOL_TYPE (sym
);
1034 if (type
&& TYPE_CODE (type
) == TYPE_CODE_BOOL
)
1039 return ld
->arch_info
[la
->la_language
].bool_type_default
;
1042 /* Helper function for primitive type lookup. */
1044 static struct type
**
1045 language_lookup_primitive_type_1 (const struct language_arch_info
*lai
,
1050 for (p
= lai
->primitive_type_vector
; (*p
) != NULL
; p
++)
1052 if (strcmp (TYPE_NAME (*p
), name
) == 0)
1058 /* See language.h. */
1061 language_lookup_primitive_type (const struct language_defn
*la
,
1062 struct gdbarch
*gdbarch
,
1065 struct language_gdbarch
*ld
=
1066 (struct language_gdbarch
*) gdbarch_data (gdbarch
, language_gdbarch_data
);
1067 struct type
**typep
;
1069 typep
= language_lookup_primitive_type_1 (&ld
->arch_info
[la
->la_language
],
1076 /* Helper function for type lookup as a symbol.
1077 Create the symbol corresponding to type TYPE in language LANG. */
1079 static struct symbol
*
1080 language_alloc_type_symbol (enum language lang
, struct type
*type
)
1082 struct symbol
*symbol
;
1083 struct gdbarch
*gdbarch
;
1085 gdb_assert (!TYPE_OBJFILE_OWNED (type
));
1087 gdbarch
= TYPE_OWNER (type
).gdbarch
;
1088 symbol
= GDBARCH_OBSTACK_ZALLOC (gdbarch
, struct symbol
);
1090 symbol
->ginfo
.name
= TYPE_NAME (type
);
1091 symbol
->ginfo
.language
= lang
;
1092 symbol
->owner
.arch
= gdbarch
;
1093 SYMBOL_OBJFILE_OWNED (symbol
) = 0;
1094 SYMBOL_TYPE (symbol
) = type
;
1095 SYMBOL_DOMAIN (symbol
) = VAR_DOMAIN
;
1096 SYMBOL_ACLASS_INDEX (symbol
) = LOC_TYPEDEF
;
1101 /* Initialize the primitive type symbols of language LD.
1102 The primitive type vector must have already been initialized. */
1105 language_init_primitive_type_symbols (struct language_arch_info
*lai
,
1106 const struct language_defn
*la
,
1107 struct gdbarch
*gdbarch
)
1111 gdb_assert (lai
->primitive_type_vector
!= NULL
);
1113 for (n
= 0; lai
->primitive_type_vector
[n
] != NULL
; ++n
)
1116 lai
->primitive_type_symbols
1117 = GDBARCH_OBSTACK_CALLOC (gdbarch
, n
+ 1, struct symbol
*);
1119 for (n
= 0; lai
->primitive_type_vector
[n
] != NULL
; ++n
)
1121 lai
->primitive_type_symbols
[n
]
1122 = language_alloc_type_symbol (la
->la_language
,
1123 lai
->primitive_type_vector
[n
]);
1126 /* Note: The result of symbol lookup is normally a symbol *and* the block
1127 it was found in. Builtin types don't live in blocks. We *could* give
1128 them one, but there is no current need so to keep things simple symbol
1129 lookup is extended to allow for BLOCK_FOUND to be NULL. */
1132 /* See language.h. */
1135 language_lookup_primitive_type_as_symbol (const struct language_defn
*la
,
1136 struct gdbarch
*gdbarch
,
1139 struct language_gdbarch
*ld
1140 = (struct language_gdbarch
*) gdbarch_data (gdbarch
, language_gdbarch_data
);
1141 struct language_arch_info
*lai
= &ld
->arch_info
[la
->la_language
];
1142 struct type
**typep
;
1145 if (symbol_lookup_debug
)
1147 fprintf_unfiltered (gdb_stdlog
,
1148 "language_lookup_primitive_type_as_symbol"
1150 la
->la_name
, host_address_to_string (gdbarch
), name
);
1153 typep
= language_lookup_primitive_type_1 (lai
, name
);
1156 if (symbol_lookup_debug
)
1157 fprintf_unfiltered (gdb_stdlog
, " = NULL\n");
1161 /* The set of symbols is lazily initialized. */
1162 if (lai
->primitive_type_symbols
== NULL
)
1163 language_init_primitive_type_symbols (lai
, la
, gdbarch
);
1165 sym
= lai
->primitive_type_symbols
[typep
- lai
->primitive_type_vector
];
1167 if (symbol_lookup_debug
)
1168 fprintf_unfiltered (gdb_stdlog
, " = %s\n", host_address_to_string (sym
));
1172 /* Initialize the language routines. */
1175 _initialize_language (void)
1177 static const char *const type_or_range_names
[]
1178 = { "on", "off", "warn", "auto", NULL
};
1180 static const char *const case_sensitive_names
[]
1181 = { "on", "off", "auto", NULL
};
1183 language_gdbarch_data
1184 = gdbarch_data_register_post_init (language_gdbarch_post_init
);
1186 /* GDB commands for language specific stuff. */
1188 add_prefix_cmd ("check", no_class
, set_check
,
1189 _("Set the status of the type/range checker."),
1190 &setchecklist
, "set check ", 0, &setlist
);
1191 add_alias_cmd ("c", "check", no_class
, 1, &setlist
);
1192 add_alias_cmd ("ch", "check", no_class
, 1, &setlist
);
1194 add_prefix_cmd ("check", no_class
, show_check
,
1195 _("Show the status of the type/range checker."),
1196 &showchecklist
, "show check ", 0, &showlist
);
1197 add_alias_cmd ("c", "check", no_class
, 1, &showlist
);
1198 add_alias_cmd ("ch", "check", no_class
, 1, &showlist
);
1200 add_setshow_enum_cmd ("range", class_support
, type_or_range_names
,
1202 _("Set range checking. (on/warn/off/auto)"),
1203 _("Show range checking. (on/warn/off/auto)"),
1204 NULL
, set_range_command
,
1206 &setchecklist
, &showchecklist
);
1208 add_setshow_enum_cmd ("case-sensitive", class_support
, case_sensitive_names
,
1209 &case_sensitive
, _("\
1210 Set case sensitivity in name search. (on/off/auto)"), _("\
1211 Show case sensitivity in name search. (on/off/auto)"), _("\
1212 For Fortran the default is off; for other languages the default is on."),
1215 &setlist
, &showlist
);
1217 add_language (&auto_language_defn
);
1218 add_language (&local_language_defn
);
1219 add_language (&unknown_language_defn
);
1221 language
= xstrdup ("auto");
1222 type
= xstrdup ("auto");
1223 range
= xstrdup ("auto");
1224 case_sensitive
= xstrdup ("auto");
1226 /* Have the above take effect. */
1227 set_language (language_auto
);