ubsan: z8k: index 10 out of bounds for type 'unsigned int const[10]'

[deliverable/binutils-gdb.git] / gdb / p-lang.h

diff --git a/gdb/p-lang.h b/gdb/p-lang.h
index 4f97ab69f7368249df1db77ca2c67fa9230f7b16..7c2b442d0e4d2820ffd81a04ca6b1b0fd95db18c 100644 (file)
--- 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-2019 Free Software Foundation, Inc.
+   Copyright (C) 2000-2020 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
@@ -17,6 +17,9 @@
    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
 
+#ifndef P_LANG_H
+#define P_LANG_H
+
 /* This file is derived from c-lang.h */
 
 struct value;
@@ -80,3 +83,5 @@ extern void pascal_object_print_value_fields (struct type *, const gdb_byte *,
 extern int pascal_object_is_vtbl_ptr_type (struct type *);
 
 extern int pascal_object_is_vtbl_member (struct type *);
+
+#endif /* P_LANG_H */