diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-06-26 20:50:58 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-20 12:31:33 +0000 |
| commit | 4375ee57b1587b85e46a10d1f615f66fab403487 (patch) | |
| tree | dc795f9a45b368b261618e6f711852313d4c1b10 /gcc/ada/libgnat/s-objrea.adb | |
| parent | aaddaf82ede448cc67e279ad5585eb313a2bef19 (diff) | |
| download | gcc-4375ee57b1587b85e46a10d1f615f66fab403487.zip gcc-4375ee57b1587b85e46a10d1f615f66fab403487.tar.gz gcc-4375ee57b1587b85e46a10d1f615f66fab403487.tar.bz2 | |
[Ada] Adjust latest change for ELF platforms
gcc/ada/
* libgnat/s-objrea.adb (Get_Load_Address): Return 0 for ELF.
Diffstat (limited to 'gcc/ada/libgnat/s-objrea.adb')
| -rw-r--r-- | gcc/ada/libgnat/s-objrea.adb | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/ada/libgnat/s-objrea.adb b/gcc/ada/libgnat/s-objrea.adb index e46c470..e1bc677 100644 --- a/gcc/ada/libgnat/s-objrea.adb +++ b/gcc/ada/libgnat/s-objrea.adb @@ -1656,12 +1656,11 @@ package body System.Object_Reader is function Get_Load_Address (Obj : Object_File) return uint64 is begin - if Obj.Format in Any_PECOFF then - return Obj.ImageBase; - - else - raise Format_Error with "Get_Load_Address not implemented"; - end if; + case Obj.Format is + when ELF => return 0; + when Any_PECOFF => return Obj.ImageBase; + when XCOFF32 => raise Format_Error; + end case; end Get_Load_Address; ----------------- |