* [RFA] cleanup alpha convert_to_{raw,virtual}
@ 2003-06-02 5:04 Richard Henderson
2003-06-02 18:36 ` Andrew Cagney
[not found] ` <863cisa1ps.fsf@elgar.kettenis.dyndns.org>
0 siblings, 2 replies; 3+ messages in thread
From: Richard Henderson @ 2003-06-02 5:04 UTC (permalink / raw)
To: gdb-patches
Ok?
r~
* alpha-tdep.c (alpha_register_convert_to_virtual): Tidy use of
deprecated interfaces; use ALPHA_REGISTER_SIZE instead of gdbarch
macros where appropriate.
(alpha_register_convert_to_raw): Similarly. Use unpack_long.
(alpha_convert_flt_dbl, alpha_convert_dbl_flt): New.
*** alpha-tdep.c.1 Sun Jun 1 21:40:43 2003
--- alpha-tdep.c Sun Jun 1 21:51:35 2003
*************** alpha_register_virtual_size (int regno)
*** 160,183 ****
registers is different. */
static void
alpha_register_convert_to_virtual (int regnum, struct type *valtype,
char *raw_buffer, char *virtual_buffer)
{
! if (TYPE_LENGTH (valtype) >= REGISTER_RAW_SIZE (regnum))
{
! memcpy (virtual_buffer, raw_buffer, REGISTER_VIRTUAL_SIZE (regnum));
return;
}
if (TYPE_CODE (valtype) == TYPE_CODE_FLT)
! {
! double d = deprecated_extract_floating (raw_buffer, REGISTER_RAW_SIZE (regnum));
! deprecated_store_floating (virtual_buffer, TYPE_LENGTH (valtype), d);
! }
! else if (TYPE_CODE (valtype) == TYPE_CODE_INT && TYPE_LENGTH (valtype) <= 4)
{
ULONGEST l;
! l = extract_unsigned_integer (raw_buffer, REGISTER_RAW_SIZE (regnum));
l = ((l >> 32) & 0xc0000000) | ((l >> 29) & 0x3fffffff);
store_unsigned_integer (virtual_buffer, TYPE_LENGTH (valtype), l);
}
--- 160,196 ----
registers is different. */
static void
+ alpha_convert_flt_dbl (void *out, const void *in)
+ {
+ DOUBLEST d = extract_typed_floating (in, builtin_type_ieee_single_little);
+ store_typed_floating (out, builtin_type_ieee_double_little, d);
+ }
+
+ static void
+ alpha_convert_dbl_flt (void *out, const void *in)
+ {
+ DOUBLEST d = extract_typed_floating (in, builtin_type_ieee_double_little);
+ store_typed_floating (out, builtin_type_ieee_single_little, d);
+ }
+
+ static void
alpha_register_convert_to_virtual (int regnum, struct type *valtype,
char *raw_buffer, char *virtual_buffer)
{
! if (TYPE_LENGTH (valtype) >= ALPHA_REGISTER_SIZE)
{
! memcpy (virtual_buffer, raw_buffer, ALPHA_REGISTER_SIZE);
return;
}
+ /* Note that everything below is less than 8 bytes long. */
+
if (TYPE_CODE (valtype) == TYPE_CODE_FLT)
! alpha_convert_dbl_flt (virtual_buffer, raw_buffer);
! else if (TYPE_CODE (valtype) == TYPE_CODE_INT)
{
ULONGEST l;
! l = extract_unsigned_integer (raw_buffer, ALPHA_REGISTER_SIZE);
l = ((l >> 32) & 0xc0000000) | ((l >> 29) & 0x3fffffff);
store_unsigned_integer (virtual_buffer, TYPE_LENGTH (valtype), l);
}
*************** static void
*** 189,214 ****
alpha_register_convert_to_raw (struct type *valtype, int regnum,
char *virtual_buffer, char *raw_buffer)
{
! if (TYPE_LENGTH (valtype) >= REGISTER_RAW_SIZE (regnum))
{
! memcpy (raw_buffer, virtual_buffer, REGISTER_RAW_SIZE (regnum));
return;
}
if (TYPE_CODE (valtype) == TYPE_CODE_FLT)
{
! double d = deprecated_extract_floating (virtual_buffer, TYPE_LENGTH (valtype));
! deprecated_store_floating (raw_buffer, REGISTER_RAW_SIZE (regnum), d);
! }
! else if (TYPE_CODE (valtype) == TYPE_CODE_INT && TYPE_LENGTH (valtype) <= 4)
! {
! ULONGEST l;
! if (TYPE_UNSIGNED (valtype))
! l = extract_unsigned_integer (virtual_buffer, TYPE_LENGTH (valtype));
! else
! l = extract_signed_integer (virtual_buffer, TYPE_LENGTH (valtype));
l = ((l & 0xc0000000) << 32) | ((l & 0x3fffffff) << 29);
! store_unsigned_integer (raw_buffer, REGISTER_RAW_SIZE (regnum), l);
}
else
error ("Cannot store value in floating point register");
--- 202,222 ----
alpha_register_convert_to_raw (struct type *valtype, int regnum,
char *virtual_buffer, char *raw_buffer)
{
! if (TYPE_LENGTH (valtype) >= ALPHA_REGISTER_SIZE)
{
! memcpy (raw_buffer, virtual_buffer, ALPHA_REGISTER_SIZE);
return;
}
+ /* Note that everything below is less than 8 bytes long. */
+
if (TYPE_CODE (valtype) == TYPE_CODE_FLT)
+ alpha_convert_flt_dbl (raw_buffer, virtual_buffer);
+ else if (TYPE_CODE (valtype) == TYPE_CODE_INT)
{
! ULONGEST l = unpack_long (valtype, virtual_buffer);
l = ((l & 0xc0000000) << 32) | ((l & 0x3fffffff) << 29);
! store_unsigned_integer (raw_buffer, ALPHA_REGISTER_SIZE, l);
}
else
error ("Cannot store value in floating point register");
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [RFA] cleanup alpha convert_to_{raw,virtual}
2003-06-02 5:04 [RFA] cleanup alpha convert_to_{raw,virtual} Richard Henderson
@ 2003-06-02 18:36 ` Andrew Cagney
[not found] ` <863cisa1ps.fsf@elgar.kettenis.dyndns.org>
1 sibling, 0 replies; 3+ messages in thread
From: Andrew Cagney @ 2003-06-02 18:36 UTC (permalink / raw)
To: Richard Henderson; +Cc: gdb-patches
> Ok?
>
>
> r~
>
>
> * alpha-tdep.c (alpha_register_convert_to_virtual): Tidy use of
> deprecated interfaces; use ALPHA_REGISTER_SIZE instead of gdbarch
> macros where appropriate.
> (alpha_register_convert_to_raw): Similarly. Use unpack_long.
> (alpha_convert_flt_dbl, alpha_convert_dbl_flt): New.
Richard, see:
http://sources.redhat.com/ml/gdb-patches/2003-06/msg00034.html
Instead of setting register_convertible et.al., the alpha should set:
convert_register_p
register_to_value
value_to_register
and then make certain that the type returned by register_[virtual]_type
is correct for all $register variables.
The new methods are only used when doing register to/from value
conversions (as done by the alpha) where as the old methods were also
used to type cast simple register values.
If it works after that switch, commit it.
Andrew
> *** alpha-tdep.c.1 Sun Jun 1 21:40:43 2003
> --- alpha-tdep.c Sun Jun 1 21:51:35 2003
> *************** alpha_register_virtual_size (int regno)
> *** 160,183 ****
> registers is different. */
>
> static void
> alpha_register_convert_to_virtual (int regnum, struct type *valtype,
> char *raw_buffer, char *virtual_buffer)
> {
> ! if (TYPE_LENGTH (valtype) >= REGISTER_RAW_SIZE (regnum))
> {
> ! memcpy (virtual_buffer, raw_buffer, REGISTER_VIRTUAL_SIZE (regnum));
> return;
> }
>
> if (TYPE_CODE (valtype) == TYPE_CODE_FLT)
> ! {
> ! double d = deprecated_extract_floating (raw_buffer, REGISTER_RAW_SIZE (regnum));
> ! deprecated_store_floating (virtual_buffer, TYPE_LENGTH (valtype), d);
> ! }
> ! else if (TYPE_CODE (valtype) == TYPE_CODE_INT && TYPE_LENGTH (valtype) <= 4)
> {
> ULONGEST l;
> ! l = extract_unsigned_integer (raw_buffer, REGISTER_RAW_SIZE (regnum));
> l = ((l >> 32) & 0xc0000000) | ((l >> 29) & 0x3fffffff);
> store_unsigned_integer (virtual_buffer, TYPE_LENGTH (valtype), l);
> }
> --- 160,196 ----
> registers is different. */
>
> static void
> + alpha_convert_flt_dbl (void *out, const void *in)
> + {
> + DOUBLEST d = extract_typed_floating (in, builtin_type_ieee_single_little);
> + store_typed_floating (out, builtin_type_ieee_double_little, d);
> + }
> +
> + static void
> + alpha_convert_dbl_flt (void *out, const void *in)
> + {
> + DOUBLEST d = extract_typed_floating (in, builtin_type_ieee_double_little);
> + store_typed_floating (out, builtin_type_ieee_single_little, d);
> + }
> +
> + static void
> alpha_register_convert_to_virtual (int regnum, struct type *valtype,
> char *raw_buffer, char *virtual_buffer)
> {
> ! if (TYPE_LENGTH (valtype) >= ALPHA_REGISTER_SIZE)
> {
> ! memcpy (virtual_buffer, raw_buffer, ALPHA_REGISTER_SIZE);
> return;
> }
>
> + /* Note that everything below is less than 8 bytes long. */
> +
> if (TYPE_CODE (valtype) == TYPE_CODE_FLT)
> ! alpha_convert_dbl_flt (virtual_buffer, raw_buffer);
> ! else if (TYPE_CODE (valtype) == TYPE_CODE_INT)
> {
> ULONGEST l;
> ! l = extract_unsigned_integer (raw_buffer, ALPHA_REGISTER_SIZE);
> l = ((l >> 32) & 0xc0000000) | ((l >> 29) & 0x3fffffff);
> store_unsigned_integer (virtual_buffer, TYPE_LENGTH (valtype), l);
> }
> *************** static void
> *** 189,214 ****
> alpha_register_convert_to_raw (struct type *valtype, int regnum,
> char *virtual_buffer, char *raw_buffer)
> {
> ! if (TYPE_LENGTH (valtype) >= REGISTER_RAW_SIZE (regnum))
> {
> ! memcpy (raw_buffer, virtual_buffer, REGISTER_RAW_SIZE (regnum));
> return;
> }
>
> if (TYPE_CODE (valtype) == TYPE_CODE_FLT)
> {
> ! double d = deprecated_extract_floating (virtual_buffer, TYPE_LENGTH (valtype));
> ! deprecated_store_floating (raw_buffer, REGISTER_RAW_SIZE (regnum), d);
> ! }
> ! else if (TYPE_CODE (valtype) == TYPE_CODE_INT && TYPE_LENGTH (valtype) <= 4)
> ! {
> ! ULONGEST l;
> ! if (TYPE_UNSIGNED (valtype))
> ! l = extract_unsigned_integer (virtual_buffer, TYPE_LENGTH (valtype));
> ! else
> ! l = extract_signed_integer (virtual_buffer, TYPE_LENGTH (valtype));
> l = ((l & 0xc0000000) << 32) | ((l & 0x3fffffff) << 29);
> ! store_unsigned_integer (raw_buffer, REGISTER_RAW_SIZE (regnum), l);
> }
> else
> error ("Cannot store value in floating point register");
> --- 202,222 ----
> alpha_register_convert_to_raw (struct type *valtype, int regnum,
> char *virtual_buffer, char *raw_buffer)
> {
> ! if (TYPE_LENGTH (valtype) >= ALPHA_REGISTER_SIZE)
> {
> ! memcpy (raw_buffer, virtual_buffer, ALPHA_REGISTER_SIZE);
> return;
> }
>
> + /* Note that everything below is less than 8 bytes long. */
> +
> if (TYPE_CODE (valtype) == TYPE_CODE_FLT)
> + alpha_convert_flt_dbl (raw_buffer, virtual_buffer);
> + else if (TYPE_CODE (valtype) == TYPE_CODE_INT)
> {
> ! ULONGEST l = unpack_long (valtype, virtual_buffer);
> l = ((l & 0xc0000000) << 32) | ((l & 0x3fffffff) << 29);
> ! store_unsigned_integer (raw_buffer, ALPHA_REGISTER_SIZE, l);
> }
> else
> error ("Cannot store value in floating point register");
>
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [RFA] cleanup alpha convert_to_{raw,virtual}
[not found] ` <863cisa1ps.fsf@elgar.kettenis.dyndns.org>
@ 2003-06-02 22:36 ` Richard Henderson
0 siblings, 0 replies; 3+ messages in thread
From: Richard Henderson @ 2003-06-02 22:36 UTC (permalink / raw)
To: Mark Kettenis; +Cc: gdb-patches
On Mon, Jun 02, 2003 at 06:22:39PM +0200, Mark Kettenis wrote:
> I first thought there was something wrong with this patch; that you
> were converting doubles into floats. Until I noticed the:
>
> > ! if (TYPE_LENGTH (valtype) >= ALPHA_REGISTER_SIZE)
>
> So perhaps you want to put a comment there?
I've now restructured things with a switch; that should make
things quite clear. Since there are no load/store instructions
other than 4 or 8 bytes long, I guarantee the compiler will not
put 1 or 2 byte objects into these registers.
> You could have used convert_typed_floating, but your implementation is
> fine too.
Actually, I noticed that the _value_to_register case was wrong
for integral values. I decided that the absolute best way to
solve this problem is not to use the fp conversion routines at
all, but rather to emulate the LDS and STS instructions exactly.
Assuming tests pass, I'll commit the following.
r~
* alpha-tdep.c (alpha_register_type): Change from _virtual_type.
(alpha_convert_flt_dbl, alpha_convert_dbl_flt): Remove.
(alpha_lds, alpha_sts): New.
(alpha_convert_register_p): Change from _register_convertible.
(alpha_register_to_value): Change from _convert_to_virtual;
restructure and fail for type sizes other than 4 or 8.
(alpha_value_to_register): Similarly.
(alpha_extract_return_value): Use alpha_sts.
(alpha_store_return_value): Use alpha_lds.
(alpha_gdbarch_init): Update hooks.
Index: alpha-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/alpha-tdep.c,v
retrieving revision 1.106
diff -c -p -d -r1.106 alpha-tdep.c
*** alpha-tdep.c 2 Jun 2003 21:55:59 -0000 1.106
--- alpha-tdep.c 2 Jun 2003 22:02:38 -0000
*************** alpha_cannot_store_register (int regno)
*** 80,93 ****
return regno == ALPHA_ZERO_REGNUM;
}
- static int
- alpha_register_convertible (int regno)
- {
- return (regno >= FP0_REGNUM && regno <= FP0_REGNUM + 31);
- }
-
static struct type *
! alpha_register_virtual_type (int regno)
{
if (regno == ALPHA_SP_REGNUM || regno == ALPHA_GP_REGNUM)
return builtin_type_void_data_ptr;
--- 80,87 ----
return regno == ALPHA_ZERO_REGNUM;
}
static struct type *
! alpha_register_type (struct gdbarch *gdbarch, int regno)
{
if (regno == ALPHA_SP_REGNUM || regno == ALPHA_GP_REGNUM)
return builtin_type_void_data_ptr;
*************** alpha_register_virtual_size (int regno)
*** 153,225 ****
return 8;
}
/* The alpha needs a conversion between register and memory format if the
register is a floating point register and memory format is float, as the
register format must be double or memory format is an integer with 4
bytes or less, as the representation of integers in floating point
registers is different. */
! static void
! alpha_convert_flt_dbl (void *out, const void *in)
! {
! DOUBLEST d = extract_typed_floating (in, builtin_type_ieee_single_little);
! store_typed_floating (out, builtin_type_ieee_double_little, d);
! }
!
! static void
! alpha_convert_dbl_flt (void *out, const void *in)
{
! DOUBLEST d = extract_typed_floating (in, builtin_type_ieee_double_little);
! store_typed_floating (out, builtin_type_ieee_single_little, d);
}
static void
! alpha_register_convert_to_virtual (int regnum, struct type *valtype,
! char *raw_buffer, char *virtual_buffer)
{
! if (TYPE_LENGTH (valtype) >= ALPHA_REGISTER_SIZE)
! {
! memcpy (virtual_buffer, raw_buffer, ALPHA_REGISTER_SIZE);
! return;
! }
!
! /* Note that everything below is less than 8 bytes long. */
!
! if (TYPE_CODE (valtype) == TYPE_CODE_FLT)
! alpha_convert_dbl_flt (virtual_buffer, raw_buffer);
! else if (TYPE_CODE (valtype) == TYPE_CODE_INT)
{
! ULONGEST l;
! l = extract_unsigned_integer (raw_buffer, ALPHA_REGISTER_SIZE);
! l = ((l >> 32) & 0xc0000000) | ((l >> 29) & 0x3fffffff);
! store_unsigned_integer (virtual_buffer, TYPE_LENGTH (valtype), l);
}
- else
- error ("Cannot retrieve value from floating point register");
}
static void
! alpha_register_convert_to_raw (struct type *valtype, int regnum,
! char *virtual_buffer, char *raw_buffer)
{
! if (TYPE_LENGTH (valtype) >= ALPHA_REGISTER_SIZE)
! {
! memcpy (raw_buffer, virtual_buffer, ALPHA_REGISTER_SIZE);
! return;
! }
!
! /* Note that everything below is less than 8 bytes long. */
!
! if (TYPE_CODE (valtype) == TYPE_CODE_FLT)
! alpha_convert_flt_dbl (raw_buffer, virtual_buffer);
! else if (TYPE_CODE (valtype) == TYPE_CODE_INT)
{
! ULONGEST l = unpack_long (valtype, virtual_buffer);
! l = ((l & 0xc0000000) << 32) | ((l & 0x3fffffff) << 29);
! store_unsigned_integer (raw_buffer, ALPHA_REGISTER_SIZE, l);
}
- else
- error ("Cannot store value in floating point register");
}
\f
--- 147,237 ----
return 8;
}
+ /* The following represents exactly the conversion performed by
+ the LDS instruction. This applies to both single-precision
+ floating point and 32-bit integers. */
+
+ static void
+ alpha_lds (void *out, const void *in)
+ {
+ ULONGEST mem = extract_unsigned_integer (in, 4);
+ ULONGEST frac = (mem >> 0) & 0x7fffff;
+ ULONGEST sign = (mem >> 31) & 1;
+ ULONGEST exp_msb = (mem >> 30) & 1;
+ ULONGEST exp_low = (mem >> 23) & 0x7f;
+ ULONGEST exp, reg;
+
+ exp = (exp_msb << 10) | exp_low;
+ if (exp_msb)
+ {
+ if (exp_low == 0x7f)
+ exp = 0x7ff;
+ }
+ else
+ {
+ if (exp_low != 0x00)
+ exp |= 0x380;
+ }
+
+ reg = (sign << 63) | (exp << 52) | (frac << 29);
+ store_unsigned_integer (out, 8, reg);
+ }
+
+ /* Similarly, this represents exactly the conversion performed by
+ the STS instruction. */
+
+ static inline void
+ alpha_sts (void *out, const void *in)
+ {
+ ULONGEST reg, mem;
+
+ reg = extract_unsigned_integer (in, 8);
+ mem = ((reg >> 32) & 0xc0000000) | ((reg >> 29) & 0x3fffffff);
+ store_unsigned_integer (out, 4, mem);
+ }
+
/* The alpha needs a conversion between register and memory format if the
register is a floating point register and memory format is float, as the
register format must be double or memory format is an integer with 4
bytes or less, as the representation of integers in floating point
registers is different. */
! static int
! alpha_convert_register_p (int regno)
{
! return (regno >= ALPHA_FP0_REGNUM && regno < ALPHA_FP0_REGNUM + 31);
}
static void
! alpha_register_to_value (int regnum, struct type *valtype, char *in, char *out)
{
! switch (TYPE_LENGTH (valtype))
{
! case 4:
! alpha_sts (out, in);
! break;
! case 8:
! memcpy (out, in, 8);
! break;
! default:
! error ("Cannot retrieve value from floating point register");
}
}
static void
! alpha_value_to_register (struct type *valtype, int regnum, char *in, char *out)
{
! switch (TYPE_LENGTH (valtype))
{
! case 4:
! alpha_lds (out, in);
! break;
! case 8:
! memcpy (out, in, 8);
! break;
! default:
! error ("Cannot store value in floating point register");
}
}
\f
*************** alpha_extract_return_value (struct type
*** 425,431 ****
{
case 4:
regcache_cooked_read (regcache, ALPHA_FP0_REGNUM, raw_buffer);
! alpha_convert_dbl_flt (valbuf, raw_buffer);
break;
case 8:
--- 437,443 ----
{
case 4:
regcache_cooked_read (regcache, ALPHA_FP0_REGNUM, raw_buffer);
! alpha_sts (valbuf, raw_buffer);
break;
case 8:
*************** alpha_store_return_value (struct type *v
*** 502,508 ****
switch (length)
{
case 4:
! alpha_convert_flt_dbl (raw_buffer, valbuf);
regcache_cooked_write (regcache, ALPHA_FP0_REGNUM, raw_buffer);
break;
--- 514,520 ----
switch (length)
{
case 4:
! alpha_lds (raw_buffer, valbuf);
regcache_cooked_write (regcache, ALPHA_FP0_REGNUM, raw_buffer);
break;
*************** alpha_gdbarch_init (struct gdbarch_info
*** 1497,1511 ****
set_gdbarch_register_byte (gdbarch, alpha_register_byte);
set_gdbarch_register_raw_size (gdbarch, alpha_register_raw_size);
set_gdbarch_register_virtual_size (gdbarch, alpha_register_virtual_size);
! set_gdbarch_register_virtual_type (gdbarch, alpha_register_virtual_type);
set_gdbarch_cannot_fetch_register (gdbarch, alpha_cannot_fetch_register);
set_gdbarch_cannot_store_register (gdbarch, alpha_cannot_store_register);
! set_gdbarch_register_convertible (gdbarch, alpha_register_convertible);
! set_gdbarch_register_convert_to_virtual (gdbarch,
! alpha_register_convert_to_virtual);
! set_gdbarch_register_convert_to_raw (gdbarch, alpha_register_convert_to_raw);
set_gdbarch_register_reggroup_p (gdbarch, alpha_register_reggroup_p);
--- 1509,1522 ----
set_gdbarch_register_byte (gdbarch, alpha_register_byte);
set_gdbarch_register_raw_size (gdbarch, alpha_register_raw_size);
set_gdbarch_register_virtual_size (gdbarch, alpha_register_virtual_size);
! set_gdbarch_register_type (gdbarch, alpha_register_type);
set_gdbarch_cannot_fetch_register (gdbarch, alpha_cannot_fetch_register);
set_gdbarch_cannot_store_register (gdbarch, alpha_cannot_store_register);
! set_gdbarch_convert_register_p (gdbarch, alpha_convert_register_p);
! set_gdbarch_register_to_value (gdbarch, alpha_register_to_value);
! set_gdbarch_value_to_register (gdbarch, alpha_value_to_register);
set_gdbarch_register_reggroup_p (gdbarch, alpha_register_reggroup_p);
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2003-06-02 22:36 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2003-06-02 5:04 [RFA] cleanup alpha convert_to_{raw,virtual} Richard Henderson
2003-06-02 18:36 ` Andrew Cagney
[not found] ` <863cisa1ps.fsf@elgar.kettenis.dyndns.org>
2003-06-02 22:36 ` Richard Henderson
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox