diff options
| author | Doug Rupp <rupp@adacore.com> | 2020-11-30 11:09:58 -0800 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-16 08:01:04 -0500 |
| commit | aa44eaca60245cda7913543e3a7848800b79b955 (patch) | |
| tree | 4a7bb737642a1ebfd58b7586b1cc62465a43954c /gcc/ada/libgnat/s-objrea.adb | |
| parent | 29cd42e01912a748bac0b483462e4373c0207870 (diff) | |
| download | gcc-aa44eaca60245cda7913543e3a7848800b79b955.zip gcc-aa44eaca60245cda7913543e3a7848800b79b955.tar.gz gcc-aa44eaca60245cda7913543e3a7848800b79b955.tar.bz2 | |
[Ada] armhf-linux: symbolic tracebacks
gcc/ada/
* libgnat/s-objrea.ads (Object_Arch): Add ARM enum
* libgnat/s-objrea.adb (Initialize): Add EM_ARM case.
(Read_Address): Add ARM case to 32bit read.
* Makefile.rtl: Add trasym units to the runtime for armhf-linux.
Diffstat (limited to 'gcc/ada/libgnat/s-objrea.adb')
| -rw-r--r-- | gcc/ada/libgnat/s-objrea.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/libgnat/s-objrea.adb b/gcc/ada/libgnat/s-objrea.adb index d64e285..0cfa522 100644 --- a/gcc/ada/libgnat/s-objrea.adb +++ b/gcc/ada/libgnat/s-objrea.adb @@ -645,6 +645,9 @@ package body System.Object_Reader is when EM_X86_64 => Res.Arch := x86_64; + when EM_ARM => + Res.Arch := ARM; + when others => raise Format_Error with "unrecognized architecture"; end case; @@ -2030,6 +2033,7 @@ package body System.Object_Reader is | MIPS | PPC | SPARC + | ARM => Address_32 := Read (S); return uint64 (Address_32); |