2011-01-07 Michael Snyder <msnyder@vmware.com>
* ada-lang.c: Comment cleanup, mostly periods and spaces. * ada-lang.h: Ditto. * ada-tasks.c: Ditto. * ada-valprint.c: Ditto. * aix-threads.c: Ditto. * alpha-linux-nat.c: Ditto. * alpha-linux-tdep.c: Ditto. * alpha-mdebug-tdep.c: Ditto. * alpha-nat.c: Ditto. * alpha-osf1-tdep.c: Ditto. * alpha-tdep.c: Ditto. * alphabsd-nat.c: Ditto. * alphabsd-tdep.c: Ditto. * amd64-darwin-tdep.c: Ditto. * amd64-linux-nat.c: Ditto. * amd64-linux-tdep.c: Ditto. * amd64-sol2-tdep.c: Ditto. * amd64-tdep.c: Ditto. * amd64-fbsd-tdep.c: Ditto. * amd64-nbsd-tdep.c: Ditto. * amd64-obsd-tdep.c: Ditto. * amd64-linux-nat.c: Ditto. * amd64-linux-tdep.c: Ditto. * arm-tdep.c: Ditto. * arm-tdep.h: Ditto. * armnbsd-nat.c: Ditto. * avr-tdep.c: Ditto. * bfin-tdep.c: Ditto. * bsd-kvm.c: Ditto. * c-typeprintc: Ditto. * c-valprint.c: Ditto. * coff-pe-read.h: Ditto. * coffreead.c: Ditto. * cris-tdep.c: Ditto. * d-lang.c: Ditto. * darwin-nat-info.c: Ditto. * darwin-nat.c: Ditto. * dbug-rom.c: Ditto. * dbxread.c: Ditto. * dcache.c: Ditto. * dcache.h: Ditto. * dec-thread.c: Ditto. * defs.h: Ditto. * demangle.c: Ditto. * dicos-tdep.c: Ditto. * dictionary.c: Ditto. * dictionary.h: Ditto. * dink32-rom.c: Ditto. * disasm.c: Ditto. * doublest.c: Ditto. * dsrec.c: Ditto. * dummy-frame.c: Ditto. * dwarf2-frame.c: Ditto. * dwarf2expr.c: Ditto. * dwarf2loc.c: Ditto. * dwarf2read.c: Ditto. * elfread.c: Ditto. * environ.c: Ditto. * eval.c: Ditto. * event-top.h: Ditto. * exceptions.c: Ditto. * exceptions.h: Ditto. * exec.c: Ditto. * expprint.c: Ditto. * expression.h: Ditto. * f-exp.y: Ditto. * f-lang.c: Ditto. * f-lang.h: Ditto. * f-typeprint.c: Ditto. * f-valprint.c: Ditto. * fbsd-nat.c: Ditto. * findvar.c: Ditto. * fork-child.c: Ditto. * frame.c: Ditto. * frame.h: Ditto. * frv-linux-tdep.c: Ditto. * frv-tdep.c: Ditto. * gcore.c: Ditto. * gdb-stabs.h: Ditto. * gdb_assert.h: Ditto. * gdb_string.h: Ditto. * gdb_thread_db.h: Ditto. * gdb_wait.h: Ditto. * gdbarch.sh: Ditto. * gdbcore.h: Ditto. * gdbthread.h: Ditto. * gdbtypes.c: Ditto. * gdbtypes.h: Ditto. * gnu-nat.c: Ditto. * gnu-nat.h: Ditto. * gnu-v2-abi.c: Ditto. * gnu-v3-abi.c: Ditto. * go32-nat.c: Ditto. * gdbarch.c: Regenerate. * gdbarch.h: Regenerate.
This commit is contained in:
Michael Snyder
parent
87973e9f82
commit
0963b4bd45
97 changed files with 1538 additions and 1304 deletions
40
gdb/f-lang.c
40
gdb/f-lang.c
|
|
@ -34,11 +34,11 @@
|
|||
#include "cp-support.h"
|
||||
|
||||
|
||||
/* Following is dubious stuff that had been in the xcoff reader. */
|
||||
/* Following is dubious stuff that had been in the xcoff reader. */
|
||||
|
||||
struct saved_fcn
|
||||
{
|
||||
long line_offset; /* Line offset for function */
|
||||
long line_offset; /* Line offset for function. */
|
||||
struct saved_fcn *next;
|
||||
};
|
||||
|
||||
|
|
@ -85,7 +85,7 @@ static void f_emit_char (int c, struct type *type,
|
|||
static void
|
||||
f_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
|
||||
{
|
||||
c &= 0xFF; /* Avoid sign bit follies */
|
||||
c &= 0xFF; /* Avoid sign bit follies. */
|
||||
|
||||
if (PRINT_LITERAL_FORM (c))
|
||||
{
|
||||
|
|
@ -126,7 +126,7 @@ f_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
|
|||
}
|
||||
|
||||
/* FIXME: This is a copy of the same function from c-exp.y. It should
|
||||
be replaced with a true F77version. */
|
||||
be replaced with a true F77version. */
|
||||
|
||||
static void
|
||||
f_printchar (int c, struct type *type, struct ui_file *stream)
|
||||
|
|
@ -141,7 +141,7 @@ f_printchar (int c, struct type *type, struct ui_file *stream)
|
|||
are printed as appropriate. Print ellipses at the end if we
|
||||
had to stop before printing LENGTH characters, or if FORCE_ELLIPSES.
|
||||
FIXME: This is a copy of the same function from c-exp.y. It should
|
||||
be replaced with a true F77 version. */
|
||||
be replaced with a true F77 version. */
|
||||
|
||||
static void
|
||||
f_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
|
||||
|
|
@ -344,7 +344,7 @@ f_make_symbol_completion_list (char *text, char *word)
|
|||
}
|
||||
|
||||
/* This is declared in c-lang.h but it is silly to import that file for what
|
||||
is already just a hack. */
|
||||
is already just a hack. */
|
||||
extern int c_value_print (struct value *, struct ui_file *,
|
||||
const struct value_print_options *);
|
||||
|
||||
|
|
@ -511,10 +511,10 @@ static SAVED_BF_PTR current_head_bf_list = NULL; /* Current head of
|
|||
above list. */
|
||||
|
||||
static SAVED_BF_PTR tmp_bf_ptr; /* Generic temporary for use
|
||||
in macros */
|
||||
in macros. */
|
||||
|
||||
/* The following function simply enters a given common block onto
|
||||
the global common block chain */
|
||||
the global common block chain. */
|
||||
|
||||
static void
|
||||
add_common_block (char *name, CORE_ADDR offset, int secnum, char *func_stab)
|
||||
|
|
@ -525,7 +525,7 @@ add_common_block (char *name, CORE_ADDR offset, int secnum, char *func_stab)
|
|||
/* If the COMMON block we are trying to add has a blank
|
||||
name (i.e. "#BLNK_COM") then we set it to __BLANK
|
||||
because the darn "#" character makes GDB's input
|
||||
parser have fits. */
|
||||
parser have fits. */
|
||||
|
||||
|
||||
if (strcmp (name, BLANK_COMMON_NAME_ORIGINAL) == 0
|
||||
|
|
@ -545,7 +545,7 @@ add_common_block (char *name, CORE_ADDR offset, int secnum, char *func_stab)
|
|||
tmp->name = xmalloc (strlen (name) + 1);
|
||||
|
||||
/* local_copy_func_stab is a stabstring, let us first extract the
|
||||
function name from the stab by NULLing out the ':' character. */
|
||||
function name from the stab by NULLing out the ':' character. */
|
||||
|
||||
|
||||
c = NULL;
|
||||
|
|
@ -582,7 +582,7 @@ add_common_block (char *name, CORE_ADDR offset, int secnum, char *func_stab)
|
|||
#endif
|
||||
|
||||
/* The following function simply enters a given common entry onto
|
||||
the "current_common" block that has been saved away. */
|
||||
the "current_common" block that has been saved away. */
|
||||
|
||||
#if 0
|
||||
static void
|
||||
|
|
@ -594,7 +594,7 @@ add_common_entry (struct symbol *entry_sym_ptr)
|
|||
|
||||
/* The order of this list is important, since
|
||||
we expect the entries to appear in decl.
|
||||
order when we later issue "info common" calls */
|
||||
order when we later issue "info common" calls. */
|
||||
|
||||
tmp = allocate_common_entry_node ();
|
||||
|
||||
|
|
@ -619,7 +619,7 @@ add_common_entry (struct symbol *entry_sym_ptr)
|
|||
}
|
||||
#endif
|
||||
|
||||
/* This routine finds the first encountred COMMON block named "name" */
|
||||
/* This routine finds the first encountred COMMON block named "name". */
|
||||
|
||||
#if 0
|
||||
static SAVED_F77_COMMON_PTR
|
||||
|
|
@ -642,7 +642,7 @@ find_first_common_named (char *name)
|
|||
#endif
|
||||
|
||||
/* This routine finds the first encountred COMMON block named "name"
|
||||
that belongs to function funcname */
|
||||
that belongs to function funcname. */
|
||||
|
||||
SAVED_F77_COMMON_PTR
|
||||
find_common_for_function (char *name, char *funcname)
|
||||
|
|
@ -675,7 +675,7 @@ patch_common_entries (SAVED_F77_COMMON_PTR blk, CORE_ADDR offset, int secnum)
|
|||
{
|
||||
COMMON_ENTRY_PTR entry;
|
||||
|
||||
blk->offset = offset; /* Keep this around for future use. */
|
||||
blk->offset = offset; /* Keep this around for future use. */
|
||||
|
||||
entry = blk->entries;
|
||||
|
||||
|
|
@ -693,7 +693,7 @@ patch_common_entries (SAVED_F77_COMMON_PTR blk, CORE_ADDR offset, int secnum)
|
|||
blocks occur with relative infrequency, we simply do a linear scan on
|
||||
the name. Eventually, the best way to do this will be a
|
||||
hashed-lookup. Secnum is the section number for the .bss section
|
||||
(which is where common data lives). */
|
||||
(which is where common data lives). */
|
||||
|
||||
static void
|
||||
patch_all_commons_by_name (char *name, CORE_ADDR offset, int secnum)
|
||||
|
|
@ -731,7 +731,7 @@ patch_all_commons_by_name (char *name, CORE_ADDR offset, int secnum)
|
|||
#line pragmas sometimes cause line ranges to get messed up
|
||||
we simply create a linear list. This list can then be searched
|
||||
first by a queueing algorithm and upon failure fall back to
|
||||
a linear scan. */
|
||||
a linear scan. */
|
||||
|
||||
#if 0
|
||||
#define ADD_BF_SYMNUM(bf_sym,fcn_sym) \
|
||||
|
|
@ -760,7 +760,7 @@ else \
|
|||
}
|
||||
#endif
|
||||
|
||||
/* This function frees the entire (.bf,function) list */
|
||||
/* This function frees the entire (.bf,function) list. */
|
||||
|
||||
#if 0
|
||||
static void
|
||||
|
|
@ -791,7 +791,7 @@ get_bf_for_fcn (long the_function)
|
|||
int nprobes = 0;
|
||||
|
||||
/* First use a simple queuing algorithm (i.e. look and see if the
|
||||
item at the head of the queue is the one you want) */
|
||||
item at the head of the queue is the one you want). */
|
||||
|
||||
if (saved_bf_list == NULL)
|
||||
internal_error (__FILE__, __LINE__,
|
||||
|
|
@ -810,7 +810,7 @@ get_bf_for_fcn (long the_function)
|
|||
|
||||
/* If the above did not work (probably because #line directives were
|
||||
used in the sourcefile and they messed up our internal tables) we now do
|
||||
the ugly linear scan */
|
||||
the ugly linear scan. */
|
||||
|
||||
if (global_remote_debug)
|
||||
fprintf_unfiltered (gdb_stderr, "\ndefaulting to linear scan\n");
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue