diff options
| author | Martin Liska <mliska@suse.cz> | 2017-01-05 15:25:06 +0100 |
|---|---|---|
| committer | Martin Liska <marxin@gcc.gnu.org> | 2017-01-05 14:25:06 +0000 |
| commit | 38a49b3cd93a857ecf22ad203a5742fce6a45f5e (patch) | |
| tree | 7d4b2dc7fe1043a171e117adfdb3bb3ee9fd6dde /gcc | |
| parent | cd445b543ce675338249055ee7493cc54777307a (diff) | |
| download | gcc-38a49b3cd93a857ecf22ad203a5742fce6a45f5e.zip gcc-38a49b3cd93a857ecf22ad203a5742fce6a45f5e.tar.gz gcc-38a49b3cd93a857ecf22ad203a5742fce6a45f5e.tar.bz2 | |
HSA: implement DIVMOD internal function call
2017-01-05 Martin Liska <mliska@suse.cz>
* hsa-gen.c (gen_hsa_divmod): New function.
(gen_hsa_insn_for_internal_fn_call): Use the function
for IFN_DIVMOD.
From-SVN: r244104
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/hsa-gen.c | 38 |
2 files changed, 44 insertions, 0 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 28b46e4..62884e8 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,5 +1,11 @@ 2017-01-05 Martin Liska <mliska@suse.cz> + * hsa-gen.c (gen_hsa_divmod): New function. + (gen_hsa_insn_for_internal_fn_call): Use the function + for IFN_DIVMOD. + +2017-01-05 Martin Liska <mliska@suse.cz> + PR pch/78970 * gcc.c (lookup_compiler): Reject '-' filename for a precompiled header. diff --git a/gcc/hsa-gen.c b/gcc/hsa-gen.c index f2843b3..632561d 100644 --- a/gcc/hsa-gen.c +++ b/gcc/hsa-gen.c @@ -4345,6 +4345,40 @@ gen_hsa_popcount (gcall *call, hsa_bb *hbb) gen_hsa_popcount_to_dest (dest, arg, hbb); } +/* Emit instructions that implement DIVMOD builtin STMT. + Instructions are appended to basic block HBB. */ + +static void +gen_hsa_divmod (gcall *call, hsa_bb *hbb) +{ + tree lhs = gimple_call_lhs (call); + if (lhs == NULL_TREE) + return; + + tree rhs0 = gimple_call_arg (call, 0); + tree rhs1 = gimple_call_arg (call, 1); + + hsa_op_with_type *arg0 = hsa_reg_or_immed_for_gimple_op (rhs0, hbb); + hsa_op_with_type *arg1 = hsa_reg_or_immed_for_gimple_op (rhs1, hbb); + + hsa_op_reg *dest0 = new hsa_op_reg (arg0->m_type); + hsa_op_reg *dest1 = new hsa_op_reg (arg1->m_type); + + hsa_insn_basic *insn = new hsa_insn_basic (3, BRIG_OPCODE_DIV, dest0->m_type, + dest0, arg0, arg1); + hbb->append_insn (insn); + insn = new hsa_insn_basic (3, BRIG_OPCODE_REM, dest1->m_type, dest1, arg0, + arg1); + hbb->append_insn (insn); + + hsa_op_reg *dest = hsa_cfun->reg_for_gimple_ssa (lhs); + BrigType16_t src_type = hsa_bittype_for_type (dest0->m_type); + + insn = new hsa_insn_packed (3, BRIG_OPCODE_COMBINE, dest->m_type, + src_type, dest, dest0, dest1); + hbb->append_insn (insn); +} + /* Set VALUE to a shadow kernel debug argument and append a new instruction to HBB basic block. */ @@ -5050,6 +5084,10 @@ gen_hsa_insn_for_internal_fn_call (gcall *stmt, hsa_bb *hbb) gen_hsa_popcount (stmt, hbb); break; + case IFN_DIVMOD: + gen_hsa_divmod (stmt, hbb); + break; + case IFN_ACOS: case IFN_ASIN: case IFN_ATAN: |