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-insns.ads | |
| 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-insns.ads')
| -rw-r--r-- | src/ortho/mcode/ortho_code-x86-insns.ads | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/ortho/mcode/ortho_code-x86-insns.ads b/src/ortho/mcode/ortho_code-x86-insns.ads index fc20ed522..2c3331b72 100644 --- a/src/ortho/mcode/ortho_code-x86-insns.ads +++ b/src/ortho/mcode/ortho_code-x86-insns.ads @@ -18,7 +18,12 @@ with Ortho_Code.Exprs; use Ortho_Code.Exprs; package Ortho_Code.X86.Insns is - function Reg_Used (Reg : Regs_R32) return Boolean; + -- Return True iff OBJ is in a different module. + -- This applies to x86-64 only as in that case RIP relative addressing + -- cannot be used. + function Is_External_Object (Obj : O_Dnode) return Boolean; + + function Reg_Used (Reg : Regs_R64) return Boolean; -- Split enodes of SUBPRG into instructions. procedure Gen_Subprg_Insns (Subprg : Subprogram_Data_Acc); |