X-Git-Url: http://review.tizen.org/git/?a=blobdiff_plain;f=gdb%2Fp-lang.h;h=7d1d285bd9431ea431a9554e852931ae53928a17;hb=46f438e3d57bae1d74ab9a7e6cba380b0e58f552;hp=0043f5be248393091662553709e6d72813404e43;hpb=a2bd3dcdac2e47cdb50de67313175fb8b9ce88fa;p=external%2Fbinutils.git diff --git a/gdb/p-lang.h b/gdb/p-lang.h index 0043f5b..7d1d285 100644 --- a/gdb/p-lang.h +++ b/gdb/p-lang.h @@ -1,12 +1,12 @@ /* Pascal language support definitions for GDB, the GNU debugger. - Copyright 2000, 2005 Free Software Foundation, Inc. + Copyright (C) 2000-2019 Free Software Foundation, Inc. This file is part of GDB. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or + the Free Software Foundation; either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, @@ -15,68 +15,73 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + along with this program. If not, see . */ + +#ifndef P_LANG_H +#define P_LANG_H /* This file is derived from c-lang.h */ struct value; +struct parser_state; -extern int pascal_parse (void); /* Defined in p-exp.y */ +/* Defined in p-lang.c */ +extern const char *pascal_main_name (void); -extern void pascal_error (char *); /* Defined in p-exp.y */ +extern int pascal_parse (struct parser_state *); /* Defined in p-exp.y */ /* Defined in p-typeprint.c */ -extern void pascal_print_type (struct type *, char *, struct ui_file *, int, int); +extern void pascal_print_type (struct type *, const char *, struct ui_file *, + int, int, const struct type_print_options *); + +extern void pascal_print_typedef (struct type *, struct symbol *, + struct ui_file *); -extern int pascal_val_print (struct type *, const bfd_byte *, int, - CORE_ADDR, struct ui_file *, int, int, - int, enum val_prettyprint); +extern void pascal_val_print (struct type *, int, + CORE_ADDR, struct ui_file *, int, + struct value *, + const struct value_print_options *); -extern int pascal_value_print (struct value *, struct ui_file *, int, enum val_prettyprint); +extern void pascal_value_print (struct value *, struct ui_file *, + const struct value_print_options *); -extern void pascal_type_print_method_args (char *, char *, +extern void pascal_type_print_method_args (const char *, const char *, struct ui_file *); /* These are in p-lang.c: */ -extern int - is_pascal_string_type (struct type *, int *, int *, int *, int *, char **); - -extern void pascal_printchar (int, struct ui_file *); +extern int + is_pascal_string_type (struct type *, int *, int *, int *, + struct type **, const char **); -extern void pascal_printstr (struct ui_file *, const bfd_byte *, - unsigned int, int, int); +extern void pascal_printchar (int, struct type *, struct ui_file *); -extern struct type *pascal_create_fundamental_type (struct objfile *, int); +extern void pascal_printstr (struct ui_file *, struct type *, const gdb_byte *, + unsigned int, const char *, int, + const struct value_print_options *); -extern struct type **const (pascal_builtin_types[]); +extern struct type **const pascal_builtin_types[]; /* These are in p-typeprint.c: */ extern void - pascal_type_print_base (struct type *, struct ui_file *, int, int); + pascal_type_print_base (struct type *, struct ui_file *, int, int, + const struct type_print_options *); extern void - pascal_type_print_varspec_prefix (struct type *, struct ui_file *, int, int); - -/* These are in cp-valprint.c */ - -extern int vtblprint; /* Controls printing of vtbl's */ + pascal_type_print_varspec_prefix (struct type *, struct ui_file *, int, int, + const struct type_print_options *); -extern int static_field_print; - -extern void pascal_object_print_class_member (const bfd_byte *, struct type *, - struct ui_file *, char *); - -extern void pascal_object_print_class_method (const bfd_byte *, struct type *, - struct ui_file *); - -extern void pascal_object_print_value_fields (struct type *, const bfd_byte *, +extern void pascal_object_print_value_fields (struct type *, const gdb_byte *, + LONGEST, CORE_ADDR, struct ui_file *, - int, int, enum val_prettyprint, + int, + struct value *, + const struct value_print_options *, struct type **, int); extern int pascal_object_is_vtbl_ptr_type (struct type *); extern int pascal_object_is_vtbl_member (struct type *); + +#endif /* P_LANG_H */