15796c8dcSSimon Schubert /* Pascal language support definitions for GDB, the GNU debugger. 25796c8dcSSimon Schubert 3*ef5ccd6cSJohn Marino Copyright (C) 2000-2013 Free Software Foundation, Inc. 45796c8dcSSimon Schubert 55796c8dcSSimon Schubert This file is part of GDB. 65796c8dcSSimon Schubert 75796c8dcSSimon Schubert This program is free software; you can redistribute it and/or modify 85796c8dcSSimon Schubert it under the terms of the GNU General Public License as published by 95796c8dcSSimon Schubert the Free Software Foundation; either version 3 of the License, or 105796c8dcSSimon Schubert (at your option) any later version. 115796c8dcSSimon Schubert 125796c8dcSSimon Schubert This program is distributed in the hope that it will be useful, 135796c8dcSSimon Schubert but WITHOUT ANY WARRANTY; without even the implied warranty of 145796c8dcSSimon Schubert MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 155796c8dcSSimon Schubert GNU General Public License for more details. 165796c8dcSSimon Schubert 175796c8dcSSimon Schubert You should have received a copy of the GNU General Public License 185796c8dcSSimon Schubert along with this program. If not, see <http://www.gnu.org/licenses/>. */ 195796c8dcSSimon Schubert 205796c8dcSSimon Schubert /* This file is derived from c-lang.h */ 215796c8dcSSimon Schubert 225796c8dcSSimon Schubert struct value; 235796c8dcSSimon Schubert 245796c8dcSSimon Schubert /* Defined in p-lang.c */ 255796c8dcSSimon Schubert extern const char *pascal_main_name (void); 265796c8dcSSimon Schubert 275796c8dcSSimon Schubert extern int pascal_parse (void); /* Defined in p-exp.y */ 285796c8dcSSimon Schubert 295796c8dcSSimon Schubert extern void pascal_error (char *); /* Defined in p-exp.y */ 305796c8dcSSimon Schubert 315796c8dcSSimon Schubert /* Defined in p-typeprint.c */ 32cf7f2e2dSJohn Marino extern void pascal_print_type (struct type *, const char *, struct ui_file *, 33*ef5ccd6cSJohn Marino int, int, const struct type_print_options *); 345796c8dcSSimon Schubert 355796c8dcSSimon Schubert extern void pascal_print_typedef (struct type *, struct symbol *, 365796c8dcSSimon Schubert struct ui_file *); 375796c8dcSSimon Schubert 38*ef5ccd6cSJohn Marino extern void pascal_val_print (struct type *, const gdb_byte *, int, 395796c8dcSSimon Schubert CORE_ADDR, struct ui_file *, int, 40cf7f2e2dSJohn Marino const struct value *, 415796c8dcSSimon Schubert const struct value_print_options *); 425796c8dcSSimon Schubert 43*ef5ccd6cSJohn Marino extern void pascal_value_print (struct value *, struct ui_file *, 445796c8dcSSimon Schubert const struct value_print_options *); 455796c8dcSSimon Schubert 46a45ae5f8SJohn Marino extern void pascal_type_print_method_args (const char *, const char *, 475796c8dcSSimon Schubert struct ui_file *); 485796c8dcSSimon Schubert 495796c8dcSSimon Schubert /* These are in p-lang.c: */ 505796c8dcSSimon Schubert 515796c8dcSSimon Schubert extern int 525796c8dcSSimon Schubert is_pascal_string_type (struct type *, int *, int *, int *, 53*ef5ccd6cSJohn Marino struct type **, const char **); 545796c8dcSSimon Schubert 555796c8dcSSimon Schubert extern void pascal_printchar (int, struct type *, struct ui_file *); 565796c8dcSSimon Schubert 575796c8dcSSimon Schubert extern void pascal_printstr (struct ui_file *, struct type *, const gdb_byte *, 58cf7f2e2dSJohn Marino unsigned int, const char *, int, 595796c8dcSSimon Schubert const struct value_print_options *); 605796c8dcSSimon Schubert 615796c8dcSSimon Schubert extern struct type **const (pascal_builtin_types[]); 625796c8dcSSimon Schubert 635796c8dcSSimon Schubert /* These are in p-typeprint.c: */ 645796c8dcSSimon Schubert 655796c8dcSSimon Schubert extern void 66*ef5ccd6cSJohn Marino pascal_type_print_base (struct type *, struct ui_file *, int, int, 67*ef5ccd6cSJohn Marino const struct type_print_options *); 685796c8dcSSimon Schubert 695796c8dcSSimon Schubert extern void 70*ef5ccd6cSJohn Marino pascal_type_print_varspec_prefix (struct type *, struct ui_file *, int, int, 71*ef5ccd6cSJohn Marino const struct type_print_options *); 725796c8dcSSimon Schubert 735796c8dcSSimon Schubert extern void pascal_object_print_value_fields (struct type *, const gdb_byte *, 74c50c785cSJohn Marino int, 755796c8dcSSimon Schubert CORE_ADDR, struct ui_file *, 765796c8dcSSimon Schubert int, 77cf7f2e2dSJohn Marino const struct value *, 785796c8dcSSimon Schubert const struct value_print_options *, 795796c8dcSSimon Schubert struct type **, int); 805796c8dcSSimon Schubert 815796c8dcSSimon Schubert extern int pascal_object_is_vtbl_ptr_type (struct type *); 825796c8dcSSimon Schubert 835796c8dcSSimon Schubert extern int pascal_object_is_vtbl_member (struct type *); 84