* ada-lang.c (ada_modulus): Correct to avoid sign problem with
moduli >= 2**31.
This commit is contained in:
parent
b1f33ddde1
commit
d37209fddb
2 changed files with 7 additions and 2 deletions
|
@ -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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue