mn10200.md (abssf2, negsf2): New expanders.

        * mn10200.md (abssf2, negsf2): New expanders.
        * mn10300.md (absdf2, abssf2, negdf2, negsf2): New expanders.

From-SVN: r24330

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index beb0b8125f08fc0f76c848191c79f6e2f3aa1eb4..5b0e3ecbae87cd091786a4e3e7c7d92cc91cb046 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+Tue Dec 15 13:49:55 1998  Jeffrey A Law  (law@cygnus.com)
+
+       * mn10200.md (abssf2, negsf2): New expanders.
+
+       * mn10300.md (absdf2, abssf2, negdf2, negsf2): New expanders.
+
 Tue Dec 15 11:55:30 1998  Nick Clifton  <nickc@cygnus.com>
 
        * integrate.c (copy_rtx_and_substitute): If a SUBREG is

diff --git a/gcc/config/mn10200/mn10200.md b/gcc/config/mn10200/mn10200.md
index 1549fa4fab5898e34a3d93fcd1a712e7054f511e..0bfdca43e82de7143bf48c77929c482a8092ca0c 100644 (file)
--- a/gcc/config/mn10200/mn10200.md
+++ b/gcc/config/mn10200/mn10200.md
@@ -1638,6 +1638,77 @@
   "asr %H0\;ror %L0"
   [(set_attr "cc" "clobber")])
 
+;; ----------------------------------------------------------------------
+;; FP INSTRUCTIONS
+;; ----------------------------------------------------------------------
+;;
+;; The mn102 series does not have floating point instructions, but since
+;; FP values are held in integer regs, we can clear the high bit easily
+;; which gives us an efficient inline floating point absolute value.
+;;
+;; Similarly for negation of a FP value.
+;;
+
+(define_expand "abssf2"
+  [(set (match_operand:SF 0 "register_operand" "")
+        (abs:SF (match_operand:SF 1 "register_operand" "")))]
+  ""
+  "
+{
+  rtx target, result, insns;
+
+  start_sequence ();
+  target = operand_subword (operands[0], 0, 1, SFmode);
+  result = expand_binop (HImode, and_optab,
+                        operand_subword_force (operands[1], 0, SFmode),
+                        GEN_INT(0x7fff), target, 0, OPTAB_WIDEN);
+
+  if (result == 0)
+    abort ();
+
+  if (result != target)
+    emit_move_insn (result, target);
+
+  emit_move_insn (operand_subword (operands[0], 1, 1, SFmode),
+                 operand_subword_force (operands[1], 1, SFmode));
+
+  insns = get_insns ();
+  end_sequence ();
+
+  emit_no_conflict_block (insns, operands[0], operands[1], 0, 0);
+  DONE;
+}")
+
+(define_expand "negsf2"
+  [(set (match_operand:SF 0 "register_operand" "")
+        (neg:SF (match_operand:SF 1 "register_operand" "")))]
+  ""
+  "
+{
+  rtx target, result, insns;
+
+  start_sequence ();
+  target = operand_subword (operands[0], 0, 1, SFmode);
+  result = expand_binop (HImode, xor_optab,
+                        operand_subword_force (operands[1], 0, SFmode),
+                        GEN_INT(0x8000), target, 0, OPTAB_WIDEN);
+
+  if (result == 0)
+    abort ();
+
+  if (result != target)
+    emit_move_insn (result, target);
+
+  emit_move_insn (operand_subword (operands[0], 1, 1, SFmode),
+                 operand_subword_force (operands[1], 1, SFmode));
+
+  insns = get_insns ();
+  end_sequence ();
+
+  emit_no_conflict_block (insns, operands[0], operands[1], 0, 0);
+  DONE;
+}")
+
 ;; ----------------------------------------------------------------------
 ;; PROLOGUE/EPILOGUE
 ;; ----------------------------------------------------------------------

diff --git a/gcc/config/mn10300/mn10300.md b/gcc/config/mn10300/mn10300.md
index d3061ad54b84367c63527cc264ace8cc59993093..0d4e522d8637acfaa297873929a5460effcff0ef 100644 (file)
--- a/gcc/config/mn10300/mn10300.md
+++ b/gcc/config/mn10300/mn10300.md
@@ -1338,6 +1338,127 @@
   "asr %S2,%0"
   [(set_attr "cc" "set_zn")])
 
+;; ----------------------------------------------------------------------
+;; FP INSTRUCTIONS
+;; ----------------------------------------------------------------------
+;;
+;; The mn103 series does not have floating point instructions, but since
+;; FP values are held in integer regs, we can clear the high bit easily
+;; which gives us an efficient inline floating point absolute value.
+;;
+;; Similarly for negation of a FP value.
+;;
+
+(define_expand "absdf2"
+  [(set (match_operand:DF 0 "register_operand" "")
+        (abs:DF (match_operand:DF 1 "register_operand" "")))]
+  ""
+  "
+{
+  rtx target, result, insns;
+
+  start_sequence ();
+  target = operand_subword (operands[0], 0, 1, DFmode);
+  result = expand_binop (SImode, and_optab,
+                        operand_subword_force (operands[1], 0, DFmode),
+                        GEN_INT(0x7fffffff), target, 0, OPTAB_WIDEN);
+
+  if (result == 0)
+    abort ();
+
+  if (result != target)
+    emit_move_insn (result, target);
+
+  emit_move_insn (operand_subword (operands[0], 1, 1, DFmode),
+                 operand_subword_force (operands[1], 1, DFmode));
+
+  insns = get_insns ();
+  end_sequence ();
+
+  emit_no_conflict_block (insns, operands[0], operands[1], 0, 0);
+  DONE;
+}")
+
+(define_expand "abssf2"
+  [(set (match_operand:SF 0 "register_operand" "")
+        (abs:SF (match_operand:SF 1 "register_operand" "")))]
+  ""
+  "
+{
+  rtx result;
+  rtx target;
+
+  target = operand_subword_force (operands[0], 0, SFmode);
+  result = expand_binop (SImode, and_optab,
+                        operand_subword_force (operands[1], 0, SFmode),
+                        GEN_INT(0x7fffffff), target, 0, OPTAB_WIDEN);
+  if (result == 0)
+    abort ();
+
+  if (result != target)
+    emit_move_insn (result, target);
+
+  /* Make a place for REG_EQUAL.  */
+  emit_move_insn (operands[0], operands[0]);
+  DONE;
+}")
+
+
+(define_expand "negdf2"
+  [(set (match_operand:DF 0 "register_operand" "")
+        (neg:DF (match_operand:DF 1 "register_operand" "")))]
+  ""
+  "
+{
+  rtx target, result, insns;
+
+  start_sequence ();
+  target = operand_subword (operands[0], 0, 1, DFmode);
+  result = expand_binop (SImode, xor_optab,
+                        operand_subword_force (operands[1], 0, DFmode),
+                        GEN_INT(0x80000000), target, 0, OPTAB_WIDEN);
+
+  if (result == 0)
+    abort ();
+
+  if (result != target)
+    emit_move_insn (result, target);
+
+  emit_move_insn (operand_subword (operands[0], 1, 1, DFmode),
+                 operand_subword_force (operands[1], 1, DFmode));
+
+  insns = get_insns ();
+  end_sequence ();
+
+  emit_no_conflict_block (insns, operands[0], operands[1], 0, 0);
+  DONE;
+}")
+
+(define_expand "negsf2"
+  [(set (match_operand:SF 0 "register_operand" "")
+        (neg:SF (match_operand:SF 1 "register_operand" "")))]
+  ""
+  "
+{
+  rtx result;
+  rtx target;
+
+  target = operand_subword_force (operands[0], 0, SFmode);
+  result = expand_binop (SImode, xor_optab,
+                        operand_subword_force (operands[1], 0, SFmode),
+                        GEN_INT(0x80000000), target, 0, OPTAB_WIDEN);
+  if (result == 0)
+    abort ();
+
+  if (result != target)
+    emit_move_insn (result, target);
+
+  /* Make a place for REG_EQUAL.  */
+  emit_move_insn (operands[0], operands[0]);
+  DONE;
+}")
+
+
 ;; ----------------------------------------------------------------------
 ;; PROLOGUE/EPILOGUE
 ;; ----------------------------------------------------------------------