diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-01-13 12:51:34 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-01-13 12:51:34 +0100 |
| commit | 9bc43c535ec8533339eccf3b17f0126874cd5a9d (patch) | |
| tree | 6815f7bd6ae4c52b808b0e67e421256c4df38f67 /gcc/ada/exp_ch4.adb | |
| parent | 0115e4700b7956d1a125fe88114989cc173e293e (diff) | |
| download | gcc-9bc43c535ec8533339eccf3b17f0126874cd5a9d.zip gcc-9bc43c535ec8533339eccf3b17f0126874cd5a9d.tar.gz gcc-9bc43c535ec8533339eccf3b17f0126874cd5a9d.tar.bz2 | |
[multiple changes]
2004-01-13 Ed Schonberg <schonberg@gnat.com>
* exp_ch3.adb (Build_Assignment): Fix bug in handling of controlled
components that are initialized with aggregates.
2004-01-13 Vincent Celier <celier@gnat.com>
* gnatlink.adb (Process_Binder_File): To find directory of shared
libgcc, if "gcc-lib" is not a subdirectory, look for the last
subdirectory "lib" in the path of the shared libgnat or libgnarl.
* make.adb (Gnatmake): If GCC version is at least 3, link with
-shared-libgcc, when there is at least one shared library project.
* opt.ads (GCC_Version): New integer constant.
* adaint.c (get_gcc_version): New function.
2004-01-13 Robert Dewar <dewar@gnat.com>
* sem_dist.adb, sem_res.adb, sem_util.adb,
sprint.adb, 3zsocthi.adb, einfo.adb, cstand.adb,
exp_ch4.adb, exp_ch9.adb, exp_dist.adb: Minor reformatting
2004-01-13 Thomas Quinot <quinot@act-europe.fr>
* s-interr.adb, s-stache.adb, s-taenca.adb, g-regpat.adb,
g-spitbo.adb, 5itaprop.adb: Add missing 'constant' keywords in object
declarations.
From-SVN: r75802
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index cc78eef..1f2640d 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -654,7 +654,8 @@ package body Exp_Ch4 is Comp : RE_Id; - Stg_Unit_Is_Byte : constant Boolean := System_Storage_Unit = Byte'Size; + Byte_Addressable : constant Boolean := System_Storage_Unit = Byte'Size; + -- True for byte addressable target function Length_Less_Than_4 (Opnd : Node_Id) return Boolean; -- Returns True if the length of the given operand is known to be @@ -707,7 +708,7 @@ package body Exp_Ch4 is -- addressing of array components. if not Is_Bit_Packed_Array (Typ1) - and then Stg_Unit_Is_Byte + and then Byte_Addressable and then not Java_VM then -- The call we generate is: |