OLD | NEW |
1 /* Fortran language support routines for GDB, the GNU debugger. | 1 /* Fortran language support routines for GDB, the GNU debugger. |
2 | 2 |
3 Copyright (C) 1993-1996, 1998-2005, 2007-2012 Free Software | 3 Copyright (C) 1993-1996, 1998-2005, 2007-2012 Free Software |
4 Foundation, Inc. | 4 Foundation, Inc. |
5 | 5 |
6 Contributed by Motorola. Adapted from the C parser by Farooq Butt | 6 Contributed by Motorola. Adapted from the C parser by Farooq Butt |
7 (fmbutt@engage.sps.mot.com). | 7 (fmbutt@engage.sps.mot.com). |
8 | 8 |
9 This file is part of GDB. | 9 This file is part of GDB. |
10 | 10 |
(...skipping 15 matching lines...) Expand all Loading... |
26 #include "symtab.h" | 26 #include "symtab.h" |
27 #include "gdbtypes.h" | 27 #include "gdbtypes.h" |
28 #include "expression.h" | 28 #include "expression.h" |
29 #include "parser-defs.h" | 29 #include "parser-defs.h" |
30 #include "language.h" | 30 #include "language.h" |
31 #include "f-lang.h" | 31 #include "f-lang.h" |
32 #include "valprint.h" | 32 #include "valprint.h" |
33 #include "value.h" | 33 #include "value.h" |
34 #include "cp-support.h" | 34 #include "cp-support.h" |
35 #include "charset.h" | 35 #include "charset.h" |
| 36 #include "c-lang.h" |
36 | 37 |
37 | 38 |
38 /* Following is dubious stuff that had been in the xcoff reader. */ | 39 /* Following is dubious stuff that had been in the xcoff reader. */ |
39 | 40 |
40 struct saved_fcn | 41 struct saved_fcn |
41 { | 42 { |
42 long line_offset; /* Line offset for function. */ | 43 long line_offset; /* Line offset for function. */ |
43 struct saved_fcn *next; | 44 struct saved_fcn *next; |
44 }; | 45 }; |
45 | 46 |
(...skipping 206 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
252 s = strchr (retval, ':'); | 253 s = strchr (retval, ':'); |
253 if (s) | 254 if (s) |
254 { | 255 { |
255 char *last_char = &s[strlen (s) - 1]; | 256 char *last_char = &s[strlen (s) - 1]; |
256 | 257 |
257 *s = *last_char; | 258 *s = *last_char; |
258 *last_char = 0; | 259 *last_char = 0; |
259 } | 260 } |
260 } | 261 } |
261 return retval; | 262 return retval; |
error: old chunk mismatch |
None
OLD | NEW |