diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-11-11 04:40:07 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-11-11 04:40:07 +0100 |
| commit | 15baf16d632f9425e8a955e0344a8376409db814 (patch) | |
| tree | c0366d94605524c6a5b69731e374e1c8ce9b5d3d /src/ortho/mcode/ortho_code-x86.adb | |
| parent | 8b20df13007f67f5c25a9801e917ae4feea0826b (diff) | |
| download | ghdl-15baf16d632f9425e8a955e0344a8376409db814.tar.gz ghdl-15baf16d632f9425e8a955e0344a8376409db814.tar.bz2 ghdl-15baf16d632f9425e8a955e0344a8376409db814.zip | |
mcode x86: wip: sse support.
Diffstat (limited to 'src/ortho/mcode/ortho_code-x86.adb')
| -rw-r--r-- | src/ortho/mcode/ortho_code-x86.adb | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/src/ortho/mcode/ortho_code-x86.adb b/src/ortho/mcode/ortho_code-x86.adb index 175dd7e99..3eb712957 100644 --- a/src/ortho/mcode/ortho_code-x86.adb +++ b/src/ortho/mcode/ortho_code-x86.adb @@ -68,42 +68,4 @@ package body Ortho_Code.X86 is end case; end Get_R64_Low; - function Ekind_Unsigned_To_Cc (Kind : OE_Kind_Cmp) return O_Reg is - begin - case Kind is - when OE_Eq => - return R_Eq; - when OE_Neq => - return R_Ne; - when OE_Lt => - return R_Ult; - when OE_Le => - return R_Ule; - when OE_Gt => - return R_Ugt; - when OE_Ge => - return R_Uge; - end case; - end Ekind_Unsigned_To_Cc; - - function Ekind_Signed_To_Cc (Kind : OE_Kind_Cmp) return O_Reg is - begin - case Kind is - when OE_Eq => - return R_Eq; - when OE_Neq => - return R_Ne; - when OE_Lt => - return R_Slt; - when OE_Le => - return R_Sle; - when OE_Gt => - return R_Sgt; - when OE_Ge => - return R_Sge; - end case; - end Ekind_Signed_To_Cc; - end Ortho_Code.X86; - - |