From 2e0926257dd7f472121aa9d48341d94e5b08c403 Mon Sep 17 00:00:00 2001 From: Andrew Cagney Date: Tue, 30 Sep 2003 13:29:44 +0000 Subject: [PATCH] 2003-09-29 Andrew Cagney * gdbarch.sh (DEPRECATED_REGISTER_VIRTUAL_TYPE): Rename DEPRECATED_REGISTER_VIRTUAL_TYPE. * gdbarch.h, gdbarch.c: Regenerate. * arch-utils.c, hppa-tdep.c, regcache.c, regcache.h: Update. * sh64-tdep.c, sparc-tdep.c: Update. 2003-09-30 Andrew Cagney * gdbint.texinfo (Target Architecture Definition): Rename REGISTER_VIRTUAL_TYPE to DEPRECATED_REGISTER_VIRTUAL_TYPE. --- gdb/ChangeLog | 8 +++++++- gdb/arch-utils.c | 2 +- gdb/doc/ChangeLog | 5 +++++ gdb/doc/gdbint.texinfo | 10 +++++----- gdb/gdbarch.c | 38 +++++++++++++++++++------------------- gdb/gdbarch.h | 32 ++++++++++++++++---------------- gdb/gdbarch.sh | 6 +++--- gdb/hppa-tdep.c | 4 ++-- gdb/regcache.c | 4 ++-- gdb/regcache.h | 6 +++--- gdb/sh64-tdep.c | 8 ++++---- gdb/sparc-tdep.c | 14 +++++++------- 12 files changed, 74 insertions(+), 63 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 93fbbad..e5e9775 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,4 +1,10 @@ -2003-09-30 Andrew Cagney +2003-09-29 Andrew Cagney + + * gdbarch.sh (DEPRECATED_REGISTER_VIRTUAL_TYPE): Rename + DEPRECATED_REGISTER_VIRTUAL_TYPE. + * gdbarch.h, gdbarch.c: Regenerate. + * arch-utils.c, hppa-tdep.c, regcache.c, regcache.h: Update. + * sh64-tdep.c, sparc-tdep.c: Update. * remote-vxsparc.c (vx_read_register): Replace bzero with memset. * remote-vxmips.c (vx_read_register): Ditto. diff --git a/gdb/arch-utils.c b/gdb/arch-utils.c index 6e79c55..a38a6e4 100644 --- a/gdb/arch-utils.c +++ b/gdb/arch-utils.c @@ -294,7 +294,7 @@ generic_register_size (int regnum) /* FIXME: cagney/2003-03-01: Once all architectures implement gdbarch_register_type(), this entire function can go away. It is made obsolete by register_size(). */ - return TYPE_LENGTH (REGISTER_VIRTUAL_TYPE (regnum)); /* OK */ + return TYPE_LENGTH (DEPRECATED_REGISTER_VIRTUAL_TYPE (regnum)); /* OK */ } /* Assume all registers are adjacent. */ diff --git a/gdb/doc/ChangeLog b/gdb/doc/ChangeLog index 8d83555..1099574 100644 --- a/gdb/doc/ChangeLog +++ b/gdb/doc/ChangeLog @@ -1,3 +1,8 @@ +2003-09-30 Andrew Cagney + + * gdbint.texinfo (Target Architecture Definition): Rename + REGISTER_VIRTUAL_TYPE to DEPRECATED_REGISTER_VIRTUAL_TYPE. + 2003-09-29 Andrew Cagney * gdbint.texinfo (Target Architecture Definition): Delete diff --git a/gdb/doc/gdbint.texinfo b/gdb/doc/gdbint.texinfo index 6ca1e74..844ef06 100644 --- a/gdb/doc/gdbint.texinfo +++ b/gdb/doc/gdbint.texinfo @@ -2778,7 +2778,7 @@ This is the size a @code{struct value}'s buffer will have, holding that register's value. @end deftypefn -@deftypefn {Target Macro} struct type *REGISTER_VIRTUAL_TYPE (int @var{reg}) +@deftypefn {Target Macro} struct type *DEPRECATED_REGISTER_VIRTUAL_TYPE (int @var{reg}) This is the type of the virtual representation of register number @var{reg}. Note that there is no need for a macro giving a type for the register's raw form; once the register's value has been obtained, @value{GDBN} @@ -2787,7 +2787,7 @@ always uses the virtual form. @deftypefn {Target Macro} void REGISTER_CONVERT_TO_VIRTUAL (int @var{reg}, struct type *@var{type}, char *@var{from}, char *@var{to}) Convert the value of register number @var{reg} to @var{type}, which -should always be @code{REGISTER_VIRTUAL_TYPE (@var{reg})}. The buffer +should always be @code{DEPRECATED_REGISTER_VIRTUAL_TYPE (@var{reg})}. The buffer at @var{from} holds the register's value in raw format; the macro should convert the value to virtual format, and place it at @var{to}. @@ -2802,7 +2802,7 @@ value. @deftypefn {Target Macro} void REGISTER_CONVERT_TO_RAW (struct type *@var{type}, int @var{reg}, char *@var{from}, char *@var{to}) Convert the value of register number @var{reg} to @var{type}, which -should always be @code{REGISTER_VIRTUAL_TYPE (@var{reg})}. The buffer +should always be @code{DEPRECATED_REGISTER_VIRTUAL_TYPE (@var{reg})}. The buffer at @var{from} holds the register's value in raw format; the macro should convert the value to virtual format, and place it at @var{to}. @@ -3540,7 +3540,7 @@ register's virtual type. Return the virtual size of @var{reg}. @xref{Target Architecture Definition, , Raw and Virtual Register Representations}. -@item REGISTER_VIRTUAL_TYPE (@var{reg}) +@item DEPRECATED_REGISTER_VIRTUAL_TYPE (@var{reg}) @findex REGISTER_VIRTUAL_TYPE Return the virtual type of @var{reg}. @xref{Target Architecture Definition, , Raw and Virtual Register Representations}. @@ -3548,7 +3548,7 @@ Return the virtual type of @var{reg}. @item struct type *register_type (@var{gdbarch}, @var{reg}) @findex register_type If defined, return the type of register @var{reg}. This function -superseeds @code{REGISTER_VIRTUAL_TYPE}. @xref{Target Architecture +superseeds @code{DEPRECATED_REGISTER_VIRTUAL_TYPE}. @xref{Target Architecture Definition, , Raw and Virtual Register Representations}. @item REGISTER_CONVERT_TO_VIRTUAL(@var{reg}, @var{type}, @var{from}, @var{to}) diff --git a/gdb/gdbarch.c b/gdb/gdbarch.c index 274e67c..9683f8f 100644 --- a/gdb/gdbarch.c +++ b/gdb/gdbarch.c @@ -1532,6 +1532,25 @@ gdbarch_dump (struct gdbarch *gdbarch, struct ui_file *file) "gdbarch_dump: DEPRECATED_REGISTER_SIZE = %d\n", DEPRECATED_REGISTER_SIZE); #endif +#ifdef DEPRECATED_REGISTER_VIRTUAL_TYPE_P + fprintf_unfiltered (file, + "gdbarch_dump: %s # %s\n", + "DEPRECATED_REGISTER_VIRTUAL_TYPE_P()", + XSTRING (DEPRECATED_REGISTER_VIRTUAL_TYPE_P ())); + fprintf_unfiltered (file, + "gdbarch_dump: DEPRECATED_REGISTER_VIRTUAL_TYPE_P() = %d\n", + DEPRECATED_REGISTER_VIRTUAL_TYPE_P ()); +#endif +#ifdef DEPRECATED_REGISTER_VIRTUAL_TYPE + fprintf_unfiltered (file, + "gdbarch_dump: %s # %s\n", + "DEPRECATED_REGISTER_VIRTUAL_TYPE(reg_nr)", + XSTRING (DEPRECATED_REGISTER_VIRTUAL_TYPE (reg_nr))); + fprintf_unfiltered (file, + "gdbarch_dump: DEPRECATED_REGISTER_VIRTUAL_TYPE = <0x%08lx>\n", + (long) current_gdbarch->deprecated_register_virtual_type + /*DEPRECATED_REGISTER_VIRTUAL_TYPE ()*/); +#endif #ifdef DEPRECATED_REG_STRUCT_HAS_ADDR_P fprintf_unfiltered (file, "gdbarch_dump: %s # %s\n", @@ -2115,25 +2134,6 @@ gdbarch_dump (struct gdbarch *gdbarch, struct ui_file *file) (long) current_gdbarch->deprecated_register_virtual_size /*REGISTER_VIRTUAL_SIZE ()*/); #endif -#ifdef REGISTER_VIRTUAL_TYPE_P - fprintf_unfiltered (file, - "gdbarch_dump: %s # %s\n", - "REGISTER_VIRTUAL_TYPE_P()", - XSTRING (REGISTER_VIRTUAL_TYPE_P ())); - fprintf_unfiltered (file, - "gdbarch_dump: REGISTER_VIRTUAL_TYPE_P() = %d\n", - REGISTER_VIRTUAL_TYPE_P ()); -#endif -#ifdef REGISTER_VIRTUAL_TYPE - fprintf_unfiltered (file, - "gdbarch_dump: %s # %s\n", - "REGISTER_VIRTUAL_TYPE(reg_nr)", - XSTRING (REGISTER_VIRTUAL_TYPE (reg_nr))); - fprintf_unfiltered (file, - "gdbarch_dump: REGISTER_VIRTUAL_TYPE = <0x%08lx>\n", - (long) current_gdbarch->deprecated_register_virtual_type - /*REGISTER_VIRTUAL_TYPE ()*/); -#endif fprintf_unfiltered (file, "gdbarch_dump: remote_translate_xfer_address = 0x%08lx\n", (long) current_gdbarch->remote_translate_xfer_address); diff --git a/gdb/gdbarch.h b/gdb/gdbarch.h index a328cfb..b005f1e 100644 --- a/gdb/gdbarch.h +++ b/gdb/gdbarch.h @@ -454,7 +454,7 @@ extern void set_gdbarch_register_name (struct gdbarch *gdbarch, gdbarch_register #define REGISTER_NAME(regnr) (gdbarch_register_name (current_gdbarch, regnr)) #endif -/* REGISTER_TYPE is a direct replacement for REGISTER_VIRTUAL_TYPE. */ +/* REGISTER_TYPE is a direct replacement for DEPRECATED_REGISTER_VIRTUAL_TYPE. */ extern int gdbarch_register_type_p (struct gdbarch *gdbarch); @@ -462,31 +462,31 @@ typedef struct type * (gdbarch_register_type_ftype) (struct gdbarch *gdbarch, in extern struct type * gdbarch_register_type (struct gdbarch *gdbarch, int reg_nr); extern void set_gdbarch_register_type (struct gdbarch *gdbarch, gdbarch_register_type_ftype *register_type); -/* REGISTER_TYPE is a direct replacement for REGISTER_VIRTUAL_TYPE. */ +/* REGISTER_TYPE is a direct replacement for DEPRECATED_REGISTER_VIRTUAL_TYPE. */ -#if defined (REGISTER_VIRTUAL_TYPE) -/* Legacy for systems yet to multi-arch REGISTER_VIRTUAL_TYPE */ -#if !defined (REGISTER_VIRTUAL_TYPE_P) -#define REGISTER_VIRTUAL_TYPE_P() (1) +#if defined (DEPRECATED_REGISTER_VIRTUAL_TYPE) +/* Legacy for systems yet to multi-arch DEPRECATED_REGISTER_VIRTUAL_TYPE */ +#if !defined (DEPRECATED_REGISTER_VIRTUAL_TYPE_P) +#define DEPRECATED_REGISTER_VIRTUAL_TYPE_P() (1) #endif #endif extern int gdbarch_deprecated_register_virtual_type_p (struct gdbarch *gdbarch); -#if (GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL) && defined (REGISTER_VIRTUAL_TYPE_P) -#error "Non multi-arch definition of REGISTER_VIRTUAL_TYPE" +#if (GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL) && defined (DEPRECATED_REGISTER_VIRTUAL_TYPE_P) +#error "Non multi-arch definition of DEPRECATED_REGISTER_VIRTUAL_TYPE" #endif -#if (GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL) || !defined (REGISTER_VIRTUAL_TYPE_P) -#define REGISTER_VIRTUAL_TYPE_P() (gdbarch_deprecated_register_virtual_type_p (current_gdbarch)) +#if (GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL) || !defined (DEPRECATED_REGISTER_VIRTUAL_TYPE_P) +#define DEPRECATED_REGISTER_VIRTUAL_TYPE_P() (gdbarch_deprecated_register_virtual_type_p (current_gdbarch)) #endif typedef struct type * (gdbarch_deprecated_register_virtual_type_ftype) (int reg_nr); extern struct type * gdbarch_deprecated_register_virtual_type (struct gdbarch *gdbarch, int reg_nr); extern void set_gdbarch_deprecated_register_virtual_type (struct gdbarch *gdbarch, gdbarch_deprecated_register_virtual_type_ftype *deprecated_register_virtual_type); -#if (GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL) && defined (REGISTER_VIRTUAL_TYPE) -#error "Non multi-arch definition of REGISTER_VIRTUAL_TYPE" +#if (GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL) && defined (DEPRECATED_REGISTER_VIRTUAL_TYPE) +#error "Non multi-arch definition of DEPRECATED_REGISTER_VIRTUAL_TYPE" #endif -#if !defined (REGISTER_VIRTUAL_TYPE) -#define REGISTER_VIRTUAL_TYPE(reg_nr) (gdbarch_deprecated_register_virtual_type (current_gdbarch, reg_nr)) +#if !defined (DEPRECATED_REGISTER_VIRTUAL_TYPE) +#define DEPRECATED_REGISTER_VIRTUAL_TYPE(reg_nr) (gdbarch_deprecated_register_virtual_type (current_gdbarch, reg_nr)) #endif /* DEPRECATED_REGISTER_BYTES can be deleted. The value is computed @@ -2044,7 +2044,7 @@ extern void set_gdbarch_addr_bits_remove (struct gdbarch *gdbarch, gdbarch_addr_ #define ADDR_BITS_REMOVE(addr) (gdbarch_addr_bits_remove (current_gdbarch, addr)) #endif -/* It is not at all clear why SMASH_TEXT_ADDRESS is not folded into +/* It is not at all clear why SMASH_TEXT_ADDRESS is not folded into ADDR_BITS_REMOVE. */ typedef CORE_ADDR (gdbarch_smash_text_address_ftype) (CORE_ADDR addr); @@ -2338,7 +2338,7 @@ typedef int (gdbarch_register_reggroup_p_ftype) (struct gdbarch *gdbarch, int re extern int gdbarch_register_reggroup_p (struct gdbarch *gdbarch, int regnum, struct reggroup *reggroup); extern void set_gdbarch_register_reggroup_p (struct gdbarch *gdbarch, gdbarch_register_reggroup_p_ftype *register_reggroup_p); -/* Fetch the pointer to the ith function argument. */ +/* Fetch the pointer to the ith function argument. */ #if defined (FETCH_POINTER_ARGUMENT) /* Legacy for systems yet to multi-arch FETCH_POINTER_ARGUMENT */ diff --git a/gdb/gdbarch.sh b/gdb/gdbarch.sh index ce05a8c..85d8d47 100755 --- a/gdb/gdbarch.sh +++ b/gdb/gdbarch.sh @@ -467,10 +467,10 @@ f:2:SDB_REG_TO_REGNUM:int:sdb_reg_to_regnum:int sdb_regnr:sdb_regnr:::no_op_reg_ f:2:DWARF2_REG_TO_REGNUM:int:dwarf2_reg_to_regnum:int dwarf2_regnr:dwarf2_regnr:::no_op_reg_to_regnum::0 f::REGISTER_NAME:const char *:register_name:int regnr:regnr -# REGISTER_TYPE is a direct replacement for REGISTER_VIRTUAL_TYPE. +# REGISTER_TYPE is a direct replacement for DEPRECATED_REGISTER_VIRTUAL_TYPE. M:2:REGISTER_TYPE:struct type *:register_type:int reg_nr:reg_nr -# REGISTER_TYPE is a direct replacement for REGISTER_VIRTUAL_TYPE. -F:2:REGISTER_VIRTUAL_TYPE:struct type *:deprecated_register_virtual_type:int reg_nr:reg_nr +# REGISTER_TYPE is a direct replacement for DEPRECATED_REGISTER_VIRTUAL_TYPE. +F:2:DEPRECATED_REGISTER_VIRTUAL_TYPE:struct type *:deprecated_register_virtual_type:int reg_nr:reg_nr # DEPRECATED_REGISTER_BYTES can be deleted. The value is computed # from REGISTER_TYPE. v::DEPRECATED_REGISTER_BYTES:int:deprecated_register_bytes diff --git a/gdb/hppa-tdep.c b/gdb/hppa-tdep.c index 9caf227..e82d736 100644 --- a/gdb/hppa-tdep.c +++ b/gdb/hppa-tdep.c @@ -2986,7 +2986,7 @@ pa_print_fp_reg (int i) print_spaces_filtered (8 - strlen (REGISTER_NAME (i)), gdb_stdout); fputs_filtered ("(single precision) ", gdb_stdout); - val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0, gdb_stdout, 0, + val_print (DEPRECATED_REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0, gdb_stdout, 0, 1, 0, Val_pretty_default); printf_filtered ("\n"); @@ -3045,7 +3045,7 @@ pa_strcat_fp_reg (int i, struct ui_file *stream, enum precision_type precision) } else { - val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0, stream, 0, + val_print (DEPRECATED_REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0, stream, 0, 1, 0, Val_pretty_default); } diff --git a/gdb/regcache.c b/gdb/regcache.c index 7fc35ad..42280ff 100644 --- a/gdb/regcache.c +++ b/gdb/regcache.c @@ -167,11 +167,11 @@ init_regcache_descr (struct gdbarch *gdbarch) { if (gdbarch_register_type_p (gdbarch)) { - gdb_assert (!REGISTER_VIRTUAL_TYPE_P ()); /* OK */ + gdb_assert (!DEPRECATED_REGISTER_VIRTUAL_TYPE_P ()); /* OK */ descr->register_type[i] = gdbarch_register_type (gdbarch, i); } else - descr->register_type[i] = REGISTER_VIRTUAL_TYPE (i); /* OK */ + descr->register_type[i] = DEPRECATED_REGISTER_VIRTUAL_TYPE (i); /* OK */ } /* Construct a strictly RAW register cache. Don't allow pseudo's diff --git a/gdb/regcache.h b/gdb/regcache.h index c89570d..69ed4e62 100644 --- a/gdb/regcache.h +++ b/gdb/regcache.h @@ -121,9 +121,9 @@ extern int register_offset_hack (struct gdbarch *gdbarch, int regnum); value stored in a table. NOTE: cagney/2002-08-17: The original macro was called - REGISTER_VIRTUAL_TYPE. This was because the register could have - different raw and cooked (nee virtual) representations. The - CONVERTABLE methods being used to convert between the two + DEPRECATED_REGISTER_VIRTUAL_TYPE. This was because the register + could have different raw and cooked (nee virtual) representations. + The CONVERTABLE methods being used to convert between the two representations. Current code does not do this. Instead, the first [0..NUM_REGS) registers are 1:1 raw:cooked, and the type exactly describes the register's representation. Consequently, the diff --git a/gdb/sh64-tdep.c b/gdb/sh64-tdep.c index f61223f..ae76ee9 100644 --- a/gdb/sh64-tdep.c +++ b/gdb/sh64-tdep.c @@ -2158,7 +2158,7 @@ sh64_pseudo_register_read (struct gdbarch *gdbarch, struct regcache *regcache, + REGISTER_RAW_SIZE (base_regnum) * portion)); /* We must pay attention to the endiannes. */ - sh_sh64_register_convert_to_virtual (reg_nr, REGISTER_VIRTUAL_TYPE (reg_nr), + sh_sh64_register_convert_to_virtual (reg_nr, DEPRECATED_REGISTER_VIRTUAL_TYPE (reg_nr), temp_buffer, buffer); } @@ -2228,7 +2228,7 @@ sh64_pseudo_register_read (struct gdbarch *gdbarch, struct regcache *regcache, + REGISTER_RAW_SIZE (base_regnum) * portion)); /* We must pay attention to the endiannes. */ - sh_sh64_register_convert_to_virtual (reg_nr, REGISTER_VIRTUAL_TYPE (reg_nr), + sh_sh64_register_convert_to_virtual (reg_nr, DEPRECATED_REGISTER_VIRTUAL_TYPE (reg_nr), temp_buffer, buffer); } @@ -2314,7 +2314,7 @@ sh64_pseudo_register_write (struct gdbarch *gdbarch, struct regcache *regcache, { base_regnum = dr_reg_base_num (reg_nr); /* We must pay attention to the endiannes. */ - sh_sh64_register_convert_to_raw (REGISTER_VIRTUAL_TYPE (reg_nr), reg_nr, + sh_sh64_register_convert_to_raw (DEPRECATED_REGISTER_VIRTUAL_TYPE (reg_nr), reg_nr, buffer, temp_buffer); @@ -2385,7 +2385,7 @@ sh64_pseudo_register_write (struct gdbarch *gdbarch, struct regcache *regcache, for (portion = 0; portion < 2; portion++) { /* We must pay attention to the endiannes. */ - sh_sh64_register_convert_to_raw (REGISTER_VIRTUAL_TYPE (reg_nr), reg_nr, + sh_sh64_register_convert_to_raw (DEPRECATED_REGISTER_VIRTUAL_TYPE (reg_nr), reg_nr, buffer, temp_buffer); regcache_raw_write (regcache, base_regnum + portion, diff --git a/gdb/sparc-tdep.c b/gdb/sparc-tdep.c index 46b0414..6062a67 100644 --- a/gdb/sparc-tdep.c +++ b/gdb/sparc-tdep.c @@ -2032,9 +2032,9 @@ sparc_print_registers (struct gdbarch *gdbarch, { if (!print_all) { - if (TYPE_CODE (REGISTER_VIRTUAL_TYPE (i)) == TYPE_CODE_FLT) + if (TYPE_CODE (DEPRECATED_REGISTER_VIRTUAL_TYPE (i)) == TYPE_CODE_FLT) continue; - if (TYPE_VECTOR (REGISTER_VIRTUAL_TYPE (i))) + if (TYPE_VECTOR (DEPRECATED_REGISTER_VIRTUAL_TYPE (i))) continue; } } @@ -2063,11 +2063,11 @@ sparc_print_registers (struct gdbarch *gdbarch, /* If virtual format is floating, print it that way, and in raw hex. */ - if (TYPE_CODE (REGISTER_VIRTUAL_TYPE (i)) == TYPE_CODE_FLT) + if (TYPE_CODE (DEPRECATED_REGISTER_VIRTUAL_TYPE (i)) == TYPE_CODE_FLT) { int j; - val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0, + val_print (DEPRECATED_REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0, file, 0, 1, 0, Val_pretty_default); fprintf_filtered (file, "\t(raw 0x"); @@ -2085,14 +2085,14 @@ sparc_print_registers (struct gdbarch *gdbarch, else { /* Print the register in hex. */ - val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0, + val_print (DEPRECATED_REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0, file, 'x', 1, 0, Val_pretty_default); /* If not a vector register, print it also according to its natural format. */ - if (TYPE_VECTOR (REGISTER_VIRTUAL_TYPE (i)) == 0) + if (TYPE_VECTOR (DEPRECATED_REGISTER_VIRTUAL_TYPE (i)) == 0) { fprintf_filtered (file, "\t"); - val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0, + val_print (DEPRECATED_REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0, file, 0, 1, 0, Val_pretty_default); } } -- 2.7.4