| 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 |