diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-01-22 04:41:03 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-01-22 04:41:03 +0100 |
| commit | 7bd624acc9a4b1c3e8b362e3eb586e4a66b28a5d (patch) | |
| tree | 551b083ac958d03dc025f87711c555e09e2c32a9 /src/ortho/mcode | |
| parent | b8043a3082ea11d891024f5527a02592ec9d9457 (diff) | |
| download | ghdl-7bd624acc9a4b1c3e8b362e3eb586e4a66b28a5d.tar.gz ghdl-7bd624acc9a4b1c3e8b362e3eb586e4a66b28a5d.tar.bz2 ghdl-7bd624acc9a4b1c3e8b362e3eb586e4a66b28a5d.zip | |
ortho_code-x86-abi: display intrinsic names.
Diffstat (limited to 'src/ortho/mcode')
| -rw-r--r-- | src/ortho/mcode/ortho_code-x86-abi.adb | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/ortho/mcode/ortho_code-x86-abi.adb b/src/ortho/mcode/ortho_code-x86-abi.adb index 7903c9650..81e3b2099 100644 --- a/src/ortho/mcode/ortho_code-x86-abi.adb +++ b/src/ortho/mcode/ortho_code-x86-abi.adb @@ -471,6 +471,25 @@ package body Ortho_Code.X86.Abi is New_Line; when OE_Intrinsic => Disp_Reg_Op_Name ("intrinsic"); + Put (" "); + case Get_Intrinsic_Operation (Stmt) is + when Intrinsic_Mul_Ov_U64 => + Put ("mul_ov_U64"); + when Intrinsic_Div_Ov_U64 => + Put ("div_ov_U64"); + when Intrinsic_Mod_Ov_U64 => + Put ("mod_ov_U64"); + when Intrinsic_Mul_Ov_I64 => + Put ("mul_ov_I64"); + when Intrinsic_Div_Ov_I64 => + Put ("div_ov_I64"); + when Intrinsic_Mod_Ov_I64 => + Put ("mod_ov_I64"); + when Intrinsic_Rem_Ov_I64 => + Put ("rem_ov_I64"); + when others => + Put ("??"); + end case; --Disp_Decl_Name (Get_Call_Subprg (Stmt)); New_Line; when OE_Conv => |