From 4375ee57b1587b85e46a10d1f615f66fab403487 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sat, 26 Jun 2021 20:50:58 +0200 Subject: [PATCH] [Ada] Adjust latest change for ELF platforms gcc/ada/ * libgnat/s-objrea.adb (Get_Load_Address): Return 0 for ELF. --- gcc/ada/libgnat/s-objrea.adb | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/gcc/ada/libgnat/s-objrea.adb b/gcc/ada/libgnat/s-objrea.adb index e46c4700d921..e1bc677b6bbb 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; ----------------- -- 2.47.3