1 /* Pascal language support definitions for GDB, the GNU debugger.
3 Copyright (C) 2000-2020 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 /* This file is derived from c-lang.h */
28 /* Defined in p-lang.c */
29 extern const char *pascal_main_name (void);
31 extern int pascal_parse (struct parser_state
*); /* Defined in p-exp.y */
33 /* Defined in p-typeprint.c */
34 extern void pascal_print_type (struct type
*, const char *, struct ui_file
*,
35 int, int, const struct type_print_options
*);
37 extern void pascal_print_typedef (struct type
*, struct symbol
*,
40 extern void pascal_val_print (struct type
*, int,
41 CORE_ADDR
, struct ui_file
*, int,
43 const struct value_print_options
*);
45 /* Implement la_value_print_inner for Pascal. */
47 extern void pascal_value_print_inner (struct value
*, struct ui_file
*, int,
48 const struct value_print_options
*);
50 extern void pascal_value_print (struct value
*, struct ui_file
*,
51 const struct value_print_options
*);
53 extern void pascal_type_print_method_args (const char *, const char *,
56 /* These are in p-lang.c: */
59 is_pascal_string_type (struct type
*, int *, int *, int *,
60 struct type
**, const char **);
62 extern void pascal_printchar (int, struct type
*, struct ui_file
*);
64 extern void pascal_printstr (struct ui_file
*, struct type
*, const gdb_byte
*,
65 unsigned int, const char *, int,
66 const struct value_print_options
*);
68 extern struct type
**const pascal_builtin_types
[];
70 /* These are in p-typeprint.c: */
73 pascal_type_print_base (struct type
*, struct ui_file
*, int, int,
74 const struct type_print_options
*);
77 pascal_type_print_varspec_prefix (struct type
*, struct ui_file
*, int, int,
78 const struct type_print_options
*);
80 extern int pascal_object_is_vtbl_ptr_type (struct type
*);
82 extern int pascal_object_is_vtbl_member (struct type
*);