2011-01-05 Michael Snyder <msnyder@vmware.com>
* addrmap.c: Shorten lines of >= 80 columns. * arch-utils.c: Ditto. * arch-utils.h: Ditto. * ax-gdb.c: Ditto. * ax-general.c: Ditto. * bcache.c: Ditto. * blockframe.c: Ditto. * breakpoint.c: Ditto. * buildsym.c: Ditto. * c-lang.c: Ditto. * c-typeprint.c: Ditto. * charset.c: Ditto. * coffread.c: Ditto. * command.h: Ditto. * corelow.c: Ditto. * cp-abi.c: Ditto. * cp-namespace.c: Ditto. * cp-support.c: Ditto. * dbug-rom.c: Ditto. * dbxread.c: Ditto. * defs.h: Ditto. * dfp.c: Ditto. * dfp.h: Ditto. * dictionary.c: Ditto. * disasm.c: Ditto. * doublest.c: Ditto. * dwarf2-frame.c: Ditto. * dwarf2expr.c: Ditto. * dwarf2loc.c: Ditto. * dwarf2read.c: Ditto. * elfread.c: Ditto. * eval.c: Ditto. * event-loop.c: Ditto. * event-loop.h: Ditto. * exceptions.h: Ditto. * exec.c: Ditto. * expprint.c: Ditto. * expression.h: Ditto. * f-lang.c: Ditto. * f-valprint.c: Ditto. * findcmd.c: Ditto. * frame-base.c: Ditto. * frame-unwind.c: Ditto. * frame-unwind.h: Ditto. * frame.c: Ditto. * frame.h: Ditto. * gcore.c: Ditto. * gdb-stabs.h: Ditto. * gdb_assert.h: Ditto. * gdb_dirent.h: Ditto. * gdb_obstack.h: Ditto. * gdbcore.h: Ditto. * gdbtypes.c: Ditto. * gdbtypes.h: Ditto. * inf-ttrace.c: Ditto. * infcall.c: Ditto. * infcmd.c: Ditto. * inflow.c: Ditto. * infrun.c: Ditto. * inline-frame.h: Ditto. * language.c: Ditto. * language.h: Ditto. * libunwind-frame.c: Ditto. * libunwind-frame.h: Ditto. * linespec.c: Ditto. * linux-nat.c: Ditto. * linux-nat.h: Ditto. * linux-thread-db.c: Ditto. * machoread.c: Ditto. * macroexp.c: Ditto. * macrotab.c: Ditto. * main.c: Ditto. * maint.c: Ditto. * mdebugread.c: Ditto. * memattr.c: Ditto. * minsyms.c: Ditto. * monitor.c: Ditto. * monitor.h: Ditto. * objfiles.c: Ditto. * objfiles.h: Ditto. * osabi.c: Ditto. * p-typeprint.c: Ditto. * p-valprint.c: Ditto. * parse.c: Ditto. * printcmd.c: Ditto. * proc-events.c: Ditto. * procfs.c: Ditto. * progspace.c: Ditto. * progspace.h: Ditto. * psympriv.h: Ditto. * psymtab.c: Ditto. * record.c: Ditto. * regcache.c: Ditto. * regcache.h: Ditto. * remote-fileio.c: Ditto. * remote.c: Ditto. * ser-mingw.c: Ditto. * ser-tcp.c: Ditto. * ser-unix.c: Ditto. * serial.c: Ditto. * serial.h: Ditto. * solib-frv.c: Ditto. * solib-irix.c: Ditto. * solib-osf.c: Ditto. * solib-pa64.c: Ditto. * solib-som.c: Ditto. * solib-sunos.c: Ditto. * solib-svr4.c: Ditto. * solib-target.c: Ditto. * solib.c: Ditto. * somread.c: Ditto. * source.c: Ditto. * stabsread.c: Ditto. * stabsread.c: Ditto. * stack.c: Ditto. * stack.h: Ditto. * symfile-mem.c: Ditto. * symfile.c: Ditto. * symfile.h: Ditto. * symmisc.c: Ditto. * symtab.c: Ditto. * symtab.h: Ditto. * target-descriptions.c: Ditto. * target-memory.c: Ditto. * target.c: Ditto. * target.h: Ditto. * terminal.h: Ditto. * thread.c: Ditto. * top.c: Ditto. * tracepoint.c: Ditto. * tracepoint.h: Ditto. * ui-file.c: Ditto. * ui-file.h: Ditto. * ui-out.h: Ditto. * user-regs.c: Ditto. * user-regs.h: Ditto. * utils.c: Ditto. * valarith.c: Ditto. * valops.c: Ditto. * valprint.c: Ditto. * valprint.h: Ditto. * value.c: Ditto. * varobj.c: Ditto. * varobj.h: Ditto. * vec.h: Ditto. * xcoffread.c: Ditto. * xcoffsolib.c: Ditto. * xcoffsolib.h: Ditto. * xml-syscall.c: Ditto. * xml-tdesc.c: Ditto.
This commit is contained in:
Michael Snyder
parent
9689e3a3a7
commit
3e43a32aaa
151 changed files with 2974 additions and 1820 deletions
|
|
@ -36,11 +36,14 @@
|
|||
#include <errno.h>
|
||||
#include <ctype.h>
|
||||
|
||||
static void pascal_type_print_varspec_suffix (struct type *, struct ui_file *, int, int, int);
|
||||
static void pascal_type_print_varspec_suffix (struct type *, struct ui_file *,
|
||||
int, int, int);
|
||||
|
||||
static void pascal_type_print_derivation_info (struct ui_file *, struct type *);
|
||||
static void pascal_type_print_derivation_info (struct ui_file *,
|
||||
struct type *);
|
||||
|
||||
void pascal_type_print_varspec_prefix (struct type *, struct ui_file *, int, int);
|
||||
void pascal_type_print_varspec_prefix (struct type *, struct ui_file *,
|
||||
int, int);
|
||||
|
||||
|
||||
/* LEVEL is the depth to indent lines by. */
|
||||
|
|
@ -219,7 +222,8 @@ pascal_type_print_varspec_prefix (struct type *type, struct ui_file *stream,
|
|||
case TYPE_CODE_PTR:
|
||||
fprintf_filtered (stream, "^");
|
||||
pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 1);
|
||||
break; /* pointer should be handled normally in pascal */
|
||||
break; /* pointer should be handled normally
|
||||
in pascal */
|
||||
|
||||
case TYPE_CODE_METHOD:
|
||||
if (passed_a_ptr)
|
||||
|
|
@ -236,7 +240,8 @@ pascal_type_print_varspec_prefix (struct type *type, struct ui_file *stream,
|
|||
if (passed_a_ptr)
|
||||
{
|
||||
fprintf_filtered (stream, " ");
|
||||
pascal_type_print_base (TYPE_DOMAIN_TYPE (type), stream, 0, passed_a_ptr);
|
||||
pascal_type_print_base (TYPE_DOMAIN_TYPE (type),
|
||||
stream, 0, passed_a_ptr);
|
||||
fprintf_filtered (stream, "::");
|
||||
}
|
||||
break;
|
||||
|
|
@ -319,7 +324,8 @@ pascal_print_func_args (struct type *type, struct ui_file *stream)
|
|||
{
|
||||
fprintf_filtered (stream, "var ");
|
||||
} */
|
||||
pascal_print_type (TYPE_FIELD_TYPE (type, i), "" /* TYPE_FIELD_NAME seems invalid ! */
|
||||
pascal_print_type (TYPE_FIELD_TYPE (type, i), "" /* TYPE_FIELD_NAME
|
||||
seems invalid! */
|
||||
,stream, -1, 0);
|
||||
}
|
||||
if (len)
|
||||
|
|
@ -361,7 +367,8 @@ pascal_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
|
|||
if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID)
|
||||
{
|
||||
fprintf_filtered (stream, " : ");
|
||||
pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0);
|
||||
pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),
|
||||
stream, 0, 0);
|
||||
pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, 0);
|
||||
pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0,
|
||||
passed_a_ptr, 0);
|
||||
|
|
@ -370,7 +377,8 @@ pascal_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
|
|||
|
||||
case TYPE_CODE_PTR:
|
||||
case TYPE_CODE_REF:
|
||||
pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 1, 0);
|
||||
pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type),
|
||||
stream, 0, 1, 0);
|
||||
break;
|
||||
|
||||
case TYPE_CODE_FUNC:
|
||||
|
|
@ -381,7 +389,8 @@ pascal_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
|
|||
if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID)
|
||||
{
|
||||
fprintf_filtered (stream, " : ");
|
||||
pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0);
|
||||
pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),
|
||||
stream, 0, 0);
|
||||
pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, 0);
|
||||
pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0,
|
||||
passed_a_ptr, 0);
|
||||
|
|
@ -451,7 +460,8 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
|
|||
}
|
||||
|
||||
/* void pointer */
|
||||
if ((TYPE_CODE (type) == TYPE_CODE_PTR) && (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_VOID))
|
||||
if ((TYPE_CODE (type) == TYPE_CODE_PTR)
|
||||
&& (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_VOID))
|
||||
{
|
||||
fputs_filtered (TYPE_NAME (type) ? TYPE_NAME (type) : "pointer",
|
||||
stream);
|
||||
|
|
@ -480,9 +490,12 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
|
|||
break;
|
||||
|
||||
case TYPE_CODE_ARRAY:
|
||||
/* pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0);
|
||||
pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);
|
||||
pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0, 0); */
|
||||
/* pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),
|
||||
stream, 0, 0);
|
||||
pascal_type_print_base (TYPE_TARGET_TYPE (type),
|
||||
stream, show, level);
|
||||
pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type),
|
||||
stream, 0, 0, 0); */
|
||||
pascal_print_type (TYPE_TARGET_TYPE (type), NULL, stream, 0, 0);
|
||||
break;
|
||||
|
||||
|
|
@ -741,7 +754,8 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
|
|||
fputs_filtered (TYPE_FIELD_NAME (type, i), stream);
|
||||
if (lastval != TYPE_FIELD_BITPOS (type, i))
|
||||
{
|
||||
fprintf_filtered (stream, " := %d", TYPE_FIELD_BITPOS (type, i));
|
||||
fprintf_filtered (stream,
|
||||
" := %d", TYPE_FIELD_BITPOS (type, i));
|
||||
lastval = TYPE_FIELD_BITPOS (type, i);
|
||||
}
|
||||
lastval++;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue