Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(1021)

Side by Side Diff: gdb/f-valprint.c

Issue 11969036: Merge GDB 7.5.1 (Closed) Base URL: http://git.chromium.org/native_client/nacl-gdb.git@master
Patch Set: Created 7 years, 11 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View unified diff | Download patch
« no previous file with comments | « gdb/f-lang.c ('k') | gdb/fbsd-nat.c » ('j') | no next file with comments »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
None
OLDNEW
1 /* Support for printing Fortran values for GDB, the GNU debugger. 1 /* Support for printing Fortran values for GDB, the GNU debugger.
2 2
3 Copyright (C) 1993-1996, 1998-2000, 2003, 2005-2012 Free Software 3 Copyright (C) 1993-1996, 1998-2000, 2003, 2005-2012 Free Software
4 Foundation, Inc. 4 Foundation, Inc.
5 5
6 Contributed by Motorola. Adapted from the C definitions by Farooq Butt 6 Contributed by Motorola. Adapted from the C definitions by Farooq Butt
7 (fmbutt@engage.sps.mot.com), additionally worked over by Stan Shebs. 7 (fmbutt@engage.sps.mot.com), additionally worked over by Stan Shebs.
8 8
9 This file is part of GDB. 9 This file is part of GDB.
10 10
(...skipping 23 matching lines...) Expand all
34 #include "gdbcore.h" 34 #include "gdbcore.h"
35 #include "command.h" 35 #include "command.h"
36 #include "block.h" 36 #include "block.h"
37 37
38 #if 0 38 #if 0
39 static int there_is_a_visible_common_named (char *); 39 static int there_is_a_visible_common_named (char *);
40 #endif 40 #endif
41 41
42 extern void _initialize_f_valprint (void); 42 extern void _initialize_f_valprint (void);
43 static void info_common_command (char *, int); 43 static void info_common_command (char *, int);
44 static void list_all_visible_commons (char *); 44 static void list_all_visible_commons (const char *);
45 static void f77_create_arrayprint_offset_tbl (struct type *, 45 static void f77_create_arrayprint_offset_tbl (struct type *,
46 struct ui_file *); 46 struct ui_file *);
47 static void f77_get_dynamic_length_of_aggregate (struct type *); 47 static void f77_get_dynamic_length_of_aggregate (struct type *);
48 48
49 int f77_array_offset_tbl[MAX_FORTRAN_DIMS + 1][2]; 49 int f77_array_offset_tbl[MAX_FORTRAN_DIMS + 1][2];
50 50
51 /* Array which holds offsets to be applied to get a row's elements 51 /* Array which holds offsets to be applied to get a row's elements
52 for a given array. Array also holds the size of each subarray. */ 52 for a given array. Array also holds the size of each subarray. */
53 53
54 /* The following macro gives us the size of the nth dimension, Where 54 /* The following macro gives us the size of the nth dimension, Where
(...skipping 177 matching lines...) Expand 10 before | Expand all | Expand 10 after
232 ndimensions, MAX_FORTRAN_DIMS); 232 ndimensions, MAX_FORTRAN_DIMS);
233 233
234 /* Since F77 arrays are stored column-major, we set up an 234 /* Since F77 arrays are stored column-major, we set up an
235 offset table to get at the various row's elements. The 235 offset table to get at the various row's elements. The
236 offset table contains entries for both offset and subarray size. */ 236 offset table contains entries for both offset and subarray size. */
237 237
238 f77_create_arrayprint_offset_tbl (type, stream); 238 f77_create_arrayprint_offset_tbl (type, stream);
239 239
240 f77_print_array_1 (1, ndimensions, type, valaddr, embedded_offset, 240 f77_print_array_1 (1, ndimensions, type, valaddr, embedded_offset,
241 address, stream, recurse, val, options, &elts); 241 address, stream, recurse, val, options, &elts);

error: old chunk mismatch

OLDNEW
« no previous file with comments | « gdb/f-lang.c ('k') | gdb/fbsd-nat.c » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698