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/ortho_code-x86.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/ortho_code-x86.adb')
| -rw-r--r-- | src/ortho/mcode/ortho_code-x86.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/ortho/mcode/ortho_code-x86.adb b/src/ortho/mcode/ortho_code-x86.adb index 3eb712957..965043860 100644 --- a/src/ortho/mcode/ortho_code-x86.adb +++ b/src/ortho/mcode/ortho_code-x86.adb @@ -44,7 +44,7 @@ package body Ortho_Code.X86 is end case; end Inverse_Cc; - function Get_R64_High (Reg : Regs_R64) return Regs_R32 is + function Get_Pair_High (Reg : Regs_Pair) return Regs_R32 is begin case Reg is when R_Edx_Eax => @@ -54,9 +54,9 @@ package body Ortho_Code.X86 is when R_Esi_Edi => return R_Si; end case; - end Get_R64_High; + end Get_Pair_High; - function Get_R64_Low (Reg : Regs_R64) return Regs_R32 is + function Get_Pair_Low (Reg : Regs_Pair) return Regs_R32 is begin case Reg is when R_Edx_Eax => @@ -66,6 +66,6 @@ package body Ortho_Code.X86 is when R_Esi_Edi => return R_Di; end case; - end Get_R64_Low; + end Get_Pair_Low; end Ortho_Code.X86; |