mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-06-11 19:03:32 +08:00
* ada-lang.c (ada_modulus): Correct to avoid sign problem with
moduli >= 2**31.
This commit is contained in:
@ -1,4 +1,9 @@
|
|||||||
2008-09-30 Paul Hilfinger <brobecker@adacore.com>
|
2008-09-30 Paul Hilfinger <hilfinger@adacore.com>
|
||||||
|
|
||||||
|
* ada-lang.c (ada_modulus): Correct to avoid sign problem with
|
||||||
|
moduli >= 2**31.
|
||||||
|
|
||||||
|
2008-09-30 Paul Hilfinger <hilfinger@adacore.com>
|
||||||
|
|
||||||
* ada-lang.c (ada_lookup_struct_elt_type): Handle case of a "naked"
|
* ada-lang.c (ada_lookup_struct_elt_type): Handle case of a "naked"
|
||||||
variant branch.
|
variant branch.
|
||||||
|
@ -9626,7 +9626,7 @@ ada_is_modular_type (struct type *type)
|
|||||||
ULONGEST
|
ULONGEST
|
||||||
ada_modulus (struct type * type)
|
ada_modulus (struct type * type)
|
||||||
{
|
{
|
||||||
return (ULONGEST) TYPE_HIGH_BOUND (type) + 1;
|
return (ULONGEST) (unsigned int) TYPE_HIGH_BOUND (type) + 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user