diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 08:12:11 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 08:12:11 +0000 |
| commit | f63b4aea4f7357a4812f9340ea74dca2856b05e4 (patch) | |
| tree | 56a3f2468cc8daed245bc41f9016ad9f88c5cbf4 /gcc/ada/i-cobol.ads | |
| parent | f95fe7a3e2a7cbb2a2e8e535a8ae579518c3b026 (diff) | |
| download | gcc-f63b4aea4f7357a4812f9340ea74dca2856b05e4.tar.gz | |
2009-07-13 Robert Dewar <dewar@adacore.com>
* i-cobol.ads: Minor code fix (2**4 instead of 16 as modulus to avoid
warning).
* par-ch4.adb: Minor reformatting
2009-07-13 Ed Schonberg <schonberg@adacore.com>
* freeze.adb, freeze.ads, exp_aggr.adb: Rename Expand_Atomic_Aggregate
=> Is_Atomic_Aggregate
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149548 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/i-cobol.ads')
| -rw-r--r-- | gcc/ada/i-cobol.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/i-cobol.ads b/gcc/ada/i-cobol.ads index 6178eb7e459..ad885e4a91a 100644 --- a/gcc/ada/i-cobol.ads +++ b/gcc/ada/i-cobol.ads @@ -55,7 +55,7 @@ package Interfaces.COBOL is Max_Digits_Binary : constant := 9; Max_Digits_Long_Binary : constant := 18; - type Decimal_Element is mod 16; + type Decimal_Element is mod 2**4; type Packed_Decimal is array (Positive range <>) of Decimal_Element; pragma Pack (Packed_Decimal); |