15796c8dcSSimon Schubert /* Pascal language support definitions for GDB, the GNU debugger. 25796c8dcSSimon Schubert 3*a45ae5f8SJohn Marino Copyright (C) 2000, 2005-2012 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 *, 33cf7f2e2dSJohn Marino int, int); 345796c8dcSSimon Schubert 355796c8dcSSimon Schubert extern void pascal_print_typedef (struct type *, struct symbol *, 365796c8dcSSimon Schubert struct ui_file *); 375796c8dcSSimon Schubert 385796c8dcSSimon Schubert extern int 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 435796c8dcSSimon Schubert extern int pascal_value_print (struct value *, struct ui_file *, 445796c8dcSSimon Schubert const struct value_print_options *); 455796c8dcSSimon Schubert 46*a45ae5f8SJohn 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 *, 535796c8dcSSimon Schubert struct type **, 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 665796c8dcSSimon Schubert pascal_type_print_base (struct type *, struct ui_file *, int, int); 675796c8dcSSimon Schubert 685796c8dcSSimon Schubert extern void 695796c8dcSSimon Schubert pascal_type_print_varspec_prefix (struct type *, struct ui_file *, int, int); 705796c8dcSSimon Schubert 715796c8dcSSimon Schubert extern void pascal_object_print_value_fields (struct type *, const gdb_byte *, 72c50c785cSJohn Marino int, 735796c8dcSSimon Schubert CORE_ADDR, struct ui_file *, 745796c8dcSSimon Schubert int, 75cf7f2e2dSJohn Marino const struct value *, 765796c8dcSSimon Schubert const struct value_print_options *, 775796c8dcSSimon Schubert struct type **, int); 785796c8dcSSimon Schubert 795796c8dcSSimon Schubert extern int pascal_object_is_vtbl_ptr_type (struct type *); 805796c8dcSSimon Schubert 815796c8dcSSimon Schubert extern int pascal_object_is_vtbl_member (struct type *); 82