From d1ee1a0fe6d7772d46af972e5d126e3f6c74b457 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 2bd69292331a..b6a87a20dd38 100644 --- a/gcc/ada/libgnat/s-objrea.adb +++ b/gcc/ada/libgnat/s-objrea.adb @@ -1652,12 +1652,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.2