X-Git-Url: https://git.libre-soc.org/?a=blobdiff_plain;f=gdb%2Fp-lang.h;h=1f82c1ac1f49a6ec906985025a2758341ff88fe0;hb=7b2d20948528f94b405af3e951931758e92e8e4d;hp=5b0691b84f1edfa41cde460909c590536ae74476;hpb=8e069a981cbb9b33ccfbdd82ad7da5ce8b0c35b2;p=binutils-gdb.git diff --git a/gdb/p-lang.h b/gdb/p-lang.h index 5b0691b84f1..1f82c1ac1f4 100644 --- a/gdb/p-lang.h +++ b/gdb/p-lang.h @@ -1,6 +1,6 @@ /* Pascal language support definitions for GDB, the GNU debugger. - Copyright (C) 2000, 2005-2012 Free Software Foundation, Inc. + Copyright (C) 2000-2017 Free Software Foundation, Inc. This file is part of GDB. @@ -20,25 +20,26 @@ /* This file is derived from c-lang.h */ struct value; +struct parser_state; /* Defined in p-lang.c */ extern const char *pascal_main_name (void); -extern int pascal_parse (void); /* Defined in p-exp.y */ +extern int pascal_parse (struct parser_state *); /* Defined in p-exp.y */ -extern void pascal_error (char *); /* Defined in p-exp.y */ +extern void pascal_yyerror (const char *); /* Defined in p-exp.y */ /* Defined in p-typeprint.c */ extern void pascal_print_type (struct type *, const char *, struct ui_file *, - int, int); + 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 gdb_byte *, int, - CORE_ADDR, struct ui_file *, int, - const struct value *, - const struct value_print_options *); +extern void pascal_val_print (struct type *, int, + CORE_ADDR, struct ui_file *, int, + struct value *, + const struct value_print_options *); extern void pascal_value_print (struct value *, struct ui_file *, const struct value_print_options *); @@ -58,21 +59,23 @@ 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); + pascal_type_print_varspec_prefix (struct type *, struct ui_file *, int, int, + const struct type_print_options *); extern void pascal_object_print_value_fields (struct type *, const gdb_byte *, - int, + LONGEST, CORE_ADDR, struct ui_file *, int, - const struct value *, + struct value *, const struct value_print_options *, struct type **, int);