diff options
| author | Tristan Gingold <gingold@adacore.com> | 2016-01-05 06:44:53 +0100 |
|---|---|---|
| committer | Tristan Gingold <gingold@adacore.com> | 2016-01-06 18:38:37 +0100 |
| commit | b5797a5cef6d25817da7998f6263afa53e196d25 (patch) | |
| tree | ad3b67a93d16e8a06fab2d7a8c4d8993ff101b8a /src/ortho/mcode/elf32.adb | |
| parent | 955e964b024de556c4c0db8fd745c6abdb8052fe (diff) | |
| download | ghdl-b5797a5cef6d25817da7998f6263afa53e196d25.tar.gz ghdl-b5797a5cef6d25817da7998f6263afa53e196d25.tar.bz2 ghdl-b5797a5cef6d25817da7998f6263afa53e196d25.zip | |
mcode: add support for x86-64
Diffstat (limited to 'src/ortho/mcode/elf32.adb')
| -rw-r--r-- | src/ortho/mcode/elf32.adb | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/ortho/mcode/elf32.adb b/src/ortho/mcode/elf32.adb index ef58fe64b..02c9791f5 100644 --- a/src/ortho/mcode/elf32.adb +++ b/src/ortho/mcode/elf32.adb @@ -16,21 +16,6 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. package body Elf32 is - function Elf32_St_Bind (Info : Elf32_Uchar) return Elf32_Uchar is - begin - return Shift_Right (Info, 4); - end Elf32_St_Bind; - - function Elf32_St_Type (Info : Elf32_Uchar) return Elf32_Uchar is - begin - return Info and 16#0F#; - end Elf32_St_Type; - - function Elf32_St_Info (B, T : Elf32_Uchar) return Elf32_Uchar is - begin - return Shift_Left (B, 4) or T; - end Elf32_St_Info; - function Elf32_R_Sym (I : Elf32_Word) return Elf32_Word is begin return Shift_Right (I, 8); |