OLD | NEW |
1 /* Ada language support routines for GDB, the GNU debugger. | 1 /* Ada language support routines for GDB, the GNU debugger. |
2 | 2 |
3 Copyright (C) 1992-1994, 1997-2000, 2003-2005, 2007-2012 Free | 3 Copyright (C) 1992-1994, 1997-2000, 2003-2005, 2007-2012 Free |
4 Software Foundation, Inc. | 4 Software Foundation, Inc. |
5 | 5 |
6 This file is part of GDB. | 6 This file is part of GDB. |
7 | 7 |
8 This program is free software; you can redistribute it and/or modify | 8 This program is free software; you can redistribute it and/or modify |
9 it under the terms of the GNU General Public License as published by | 9 it under the terms of the GNU General Public License as published by |
10 the Free Software Foundation; either version 3 of the License, or | 10 the Free Software Foundation; either version 3 of the License, or |
(...skipping 39 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
50 #include "block.h" | 50 #include "block.h" |
51 #include "infcall.h" | 51 #include "infcall.h" |
52 #include "dictionary.h" | 52 #include "dictionary.h" |
53 #include "exceptions.h" | 53 #include "exceptions.h" |
54 #include "annotate.h" | 54 #include "annotate.h" |
55 #include "valprint.h" | 55 #include "valprint.h" |
56 #include "source.h" | 56 #include "source.h" |
57 #include "observer.h" | 57 #include "observer.h" |
58 #include "vec.h" | 58 #include "vec.h" |
59 #include "stack.h" | 59 #include "stack.h" |
| 60 #include "gdb_vecs.h" |
60 | 61 |
61 #include "psymtab.h" | 62 #include "psymtab.h" |
62 #include "value.h" | 63 #include "value.h" |
63 #include "mi/mi-common.h" | 64 #include "mi/mi-common.h" |
64 #include "arch-utils.h" | 65 #include "arch-utils.h" |
65 #include "exceptions.h" | 66 #include "exceptions.h" |
| 67 #include "cli/cli-utils.h" |
66 | 68 |
67 /* Define whether or not the C operator '/' truncates towards zero for | 69 /* Define whether or not the C operator '/' truncates towards zero for |
68 differently signed operands (truncation direction is undefined in C). | 70 differently signed operands (truncation direction is undefined in C). |
69 Copied from valarith.c. */ | 71 Copied from valarith.c. */ |
70 | 72 |
71 #ifndef TRUNCATION_TOWARDS_ZERO | 73 #ifndef TRUNCATION_TOWARDS_ZERO |
72 #define TRUNCATION_TOWARDS_ZERO ((-5 / 2) == -2) | 74 #define TRUNCATION_TOWARDS_ZERO ((-5 / 2) == -2) |
73 #endif | 75 #endif |
74 | 76 |
75 static struct type *desc_base_type (struct type *); | 77 static struct type *desc_base_type (struct type *); |
(...skipping 138 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
214 | 216 |
215 static struct symbol *standard_lookup (const char *, const struct block *, | 217 static struct symbol *standard_lookup (const char *, const struct block *, |
216 domain_enum); | 218 domain_enum); |
217 | 219 |
218 static struct value *ada_search_struct_field (char *, struct value *, int, | 220 static struct value *ada_search_struct_field (char *, struct value *, int, |
219 struct type *); | 221 struct type *); |
220 | 222 |
221 static struct value *ada_value_primitive_field (struct value *, int, int, | 223 static struct value *ada_value_primitive_field (struct value *, int, int, |
222 struct type *); | 224 struct type *); |
223 | 225 |
224 static int find_struct_field (char *, struct type *, int, | 226 static int find_struct_field (const char *, struct type *, int, |
225 struct type **, int *, int *, int *, int *); | 227 struct type **, int *, int *, int *, int *); |
226 | 228 |
227 static struct value *ada_to_fixed_value_create (struct type *, CORE_ADDR, | 229 static struct value *ada_to_fixed_value_create (struct type *, CORE_ADDR, |
228 struct value *); | 230 struct value *); |
229 | 231 |
230 static int ada_resolve_function (struct ada_symbol_info *, int, | 232 static int ada_resolve_function (struct ada_symbol_info *, int, |
231 struct value **, int, const char *, | 233 struct value **, int, const char *, |
232 struct type *); | 234 struct type *); |
233 | 235 |
234 static int ada_is_direct_array_type (struct type *); | 236 static int ada_is_direct_array_type (struct type *); |
(...skipping 24 matching lines...) Expand all Loading... |
259 static void aggregate_assign_others (struct value *, struct value *, | 261 static void aggregate_assign_others (struct value *, struct value *, |
260 struct expression *, | 262 struct expression *, |
261 int *, LONGEST *, int, LONGEST, LONGEST); | 263 int *, LONGEST *, int, LONGEST, LONGEST); |
262 | 264 |
263 | 265 |
264 static void add_component_interval (LONGEST, LONGEST, LONGEST *, int *, int); | 266 static void add_component_interval (LONGEST, LONGEST, LONGEST *, int *, int); |
265 | 267 |
266 | 268 |
267 static struct value *ada_evaluate_subexp (struct type *, struct expression *, | 269 static struct value *ada_evaluate_subexp (struct type *, struct expression *, |
268 int *, enum noside); | 270 int *, enum noside); |
error: old chunk mismatch |
None
OLD | NEW |