Subversion Repositories openrisc_me

;;  Machine Description for Renesas RX processors

;;  Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc.

;;  Contributed by Red Hat.

;; This file is part of GCC.

;; GCC is free software; you can redistribute it and/or modify

;; it under the terms of the GNU General Public License as published by

;; the Free Software Foundation; either version 3, or (at your option)

;; any later version.

;; GCC is distributed in the hope that it will be useful,

;; but WITHOUT ANY WARRANTY; without even the implied warranty of

;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License

;; along with GCC; see the file COPYING3.  If not see

;; .

;; This code iterator allows all branch instructions to

;; be generated from a single define_expand template.

(define_code_iterator most_cond [eq ne gt ge lt le gtu geu ltu leu

                                 unordered ordered ])

;; Likewise, but only the ones that use Z or S.

(define_code_iterator zs_cond [eq ne gtu geu ltu leu ])

;; This code iterator is used for sign- and zero- extensions.

(define_mode_iterator small_int_modes [(HI "") (QI "")])

;; We do not handle DFmode here because it is either

;; the same as SFmode, or if -m64bit-doubles is active

;; then all operations on doubles have to be handled by

;; library functions.

(define_mode_iterator register_modes

  [(SF "ALLOW_RX_FPU_INSNS") (SI "") (HI "") (QI "")])

;; Used to map RX condition names to GCC

;; condition names for builtin instructions.

(define_code_iterator gcc_conds [eq ne gt ge lt le gtu geu ltu leu

                                unge unlt uneq ltgt])

(define_code_attr rx_conds [(eq "eq") (ne "ne") (gt "gt") (ge "ge") (lt "lt")

                            (le "le") (gtu "gtu") (geu "geu") (ltu "ltu")

                            (leu "leu") (unge "pz") (unlt "n") (uneq "o")

                            (ltgt "no")])

(define_constants

  [

   (SP_REG 0)

   (CC_REG                 16)

   (UNSPEC_LOW_REG         0)

   (UNSPEC_HIGH_REG        1)

   (UNSPEC_RTE             10)

   (UNSPEC_RTFI            11)

   (UNSPEC_NAKED           12)

   (UNSPEC_MOVSTR          20)

   (UNSPEC_MOVMEM          21)

   (UNSPEC_SETMEM          22)

   (UNSPEC_STRLEN          23)

   (UNSPEC_CMPSTRN         24)

   (UNSPEC_BUILTIN_BRK     30)

   (UNSPEC_BUILTIN_CLRPSW  31)

   (UNSPEC_BUILTIN_INT     32)

   (UNSPEC_BUILTIN_MACHI   33)

   (UNSPEC_BUILTIN_MACLO   34)

   (UNSPEC_BUILTIN_MULHI   35)

   (UNSPEC_BUILTIN_MULLO   36)

   (UNSPEC_BUILTIN_MVFACHI 37)

   (UNSPEC_BUILTIN_MVFACMI 38)

   (UNSPEC_BUILTIN_MVFC    39)

   (UNSPEC_BUILTIN_MVFCP   40)

   (UNSPEC_BUILTIN_MVTACHI 41)

   (UNSPEC_BUILTIN_MVTACLO 42)

   (UNSPEC_BUILTIN_MVTC    43)

   (UNSPEC_BUILTIN_MVTIPL  44)

   (UNSPEC_BUILTIN_RACW    45)

   (UNSPEC_BUILTIN_REVW    46)

   (UNSPEC_BUILTIN_RMPA    47)

   (UNSPEC_BUILTIN_ROUND   48)

   (UNSPEC_BUILTIN_SAT     49)

   (UNSPEC_BUILTIN_SETPSW  50)

   (UNSPEC_BUILTIN_WAIT    51)

  ]

)

(define_attr "length" "" (const_int 8))

(include "predicates.md")

(include "constraints.md")

;; Pipeline description.

;; The RX only has a single pipeline.  It has five stages (fetch,

;; decode, execute, memory access, writeback) each of which normally

;; takes a single CPU clock cycle.

;; The timings attribute consists of two numbers, the first is the

;; throughput, which is the number of cycles the instruction takes

;; to execute and generate a result.  The second is the latency

;; which is the effective number of cycles the instruction takes to

;; execute if its result is used by the following instruction.  The

;; latency is always greater than or equal to the throughput.

;; These values were taken from tables 2.13 and 2.14 in section 2.8

;; of the RX610 Group Hardware Manual v0.11

;; Note - it would be nice to use strings rather than integers for

;; the possible values of this attribute, so that we can have the

;; gcc build mechanism check for values that are not supported by

;; the reservations below.  But this will not work because the code

;; in rx_adjust_sched_cost() needs integers not strings.

(define_attr "timings" "" (const_int 11))

(define_automaton "pipelining")

(define_cpu_unit "throughput" "pipelining")

(define_insn_reservation "throughput__1_latency__1"  1

  (eq_attr "timings" "11") "throughput")

(define_insn_reservation "throughput__1_latency__2"  2

  (eq_attr "timings" "12") "throughput,nothing")

(define_insn_reservation "throughput__2_latency__2"  1

  (eq_attr "timings" "22") "throughput*2")

(define_insn_reservation "throughput__3_latency__3"  1

  (eq_attr "timings" "33") "throughput*3")

(define_insn_reservation "throughput__3_latency__4"  2

  (eq_attr "timings" "34") "throughput*3,nothing")

(define_insn_reservation "throughput__4_latency__4"  1

  (eq_attr "timings" "44") "throughput*4")

(define_insn_reservation "throughput__4_latency__5"  2

  (eq_attr "timings" "45") "throughput*4,nothing")

(define_insn_reservation "throughput__5_latency__5"  1

  (eq_attr "timings" "55") "throughput*5")

(define_insn_reservation "throughput__5_latency__6"  2

  (eq_attr "timings" "56") "throughput*5,nothing")

(define_insn_reservation "throughput__6_latency__6"  1

  (eq_attr "timings" "66") "throughput*6")

(define_insn_reservation "throughput_10_latency_10"  1

  (eq_attr "timings" "1010") "throughput*10")

(define_insn_reservation "throughput_11_latency_11"  1

  (eq_attr "timings" "1111") "throughput*11")

(define_insn_reservation "throughput_16_latency_16"  1

  (eq_attr "timings" "1616") "throughput*16")

(define_insn_reservation "throughput_18_latency_18"  1

  (eq_attr "timings" "1818") "throughput*18")

;; Comparisons

;; Note - we do not specify the two instructions necessary to perform

;; a compare-and-branch in the cbranchsi4 pattern because that would

;; allow the comparison to be moved away from the jump before the reload

;; pass has completed.  That would be problematical because reload can

;; generate ADDSI3 instructions which would corrupt the PSW flags.

(define_expand "cbranchsi4"

  [(set (pc)

        (if_then_else (match_operator 0 "comparison_operator"

                                      [(match_operand:SI 1 "register_operand")

                                       (match_operand:SI 2 "rx_source_operand")])

                      (label_ref (match_operand 3 ""))

                      (pc)))

   ]

  ""

  ""

)

(define_insn_and_split "*cbranchsi4_"

  [(set (pc)

        (if_then_else (most_cond (match_operand:SI  0 "register_operand"  "r")

                                    (match_operand:SI  1 "rx_source_operand" "riQ"))

                      (label_ref (match_operand        2 "" ""))

                      (pc)))

   ]

  ""

  "#"

  "reload_completed"

  [(const_int 0)]

  "

  /* We contstruct the split by hand as otherwise the JUMP_LABEL

     attribute is not set correctly on the jump insn.  */

  emit_insn (gen_cmpsi (operands[0], operands[1]));

  emit_jump_insn (gen_conditional_branch (operands[2],

                 gen_rtx_fmt_ee (, CCmode,

                                 gen_rtx_REG (CCmode, CC_REG), const0_rtx)));

  "

)

;; -----------------------------------------------------------------------------

;; These two are the canonical TST/branch insns.  However, GCC

;; generates a wide variety of tst-like patterns, we catch those

;; below.

(define_insn_and_split "*tstbranchsi4_"

  [(set (pc)

        (if_then_else (zs_cond (and:SI (match_operand:SI  0 "register_operand"  "r")

                                       (match_operand:SI  1 "rx_source_operand" "riQ"))

                               (const_int 0))

                      (label_ref (match_operand 2 "" ""))

                      (pc)))

   ]

  ""

  "#"

  "reload_completed"

  [(const_int 0)]

  "

  emit_insn (gen_tstsi (operands[0], operands[1]));

  emit_jump_insn (gen_conditional_branch (operands[2],

                 gen_rtx_fmt_ee (, CCmode,

                                 gen_rtx_REG (CCmode, CC_REG), const0_rtx)));

  "

)

;; Inverse of above

(define_insn_and_split "*tstbranchsi4_"

  [(set (pc)

        (if_then_else (zs_cond (and:SI (match_operand:SI  0 "register_operand"  "r")

                                       (match_operand:SI  1 "rx_source_operand" "riQ"))

                               (const_int 0))

                      (pc)

                      (label_ref (match_operand 2 "" ""))))

   ]

  ""

  "#"

  "reload_completed"

  [(const_int 0)]

  "

  emit_insn (gen_tstsi (operands[0], operands[1]));

  emit_jump_insn (gen_conditional_branch (operands[2],

                 gen_rtx_fmt_ee (reverse_condition (), CCmode,

                                 gen_rtx_REG (CCmode, CC_REG), const0_rtx)));

  "

)

;; Various other ways that GCC codes "var & const"

(define_insn_and_split "*tstbranchsi4m_eq"

  [(set (pc)

        (if_then_else (eq (zero_extract:SI (match_operand:SI  0 "register_operand"  "r")

                                           (match_operand  1 "rx_constshift_operand" "i")

                                           (match_operand  2 "rx_constshift_operand" "i"))

                          (const_int 0))

                      (label_ref (match_operand        3 "" ""))

                      (pc)))

   ]

  ""

  "#"

  ""

  [(set (pc)

        (if_then_else (eq (and:SI (match_dup  0)

                                  (match_dup 4))

                          (const_int 0))

                      (label_ref (match_dup 3))

                      (pc)))

   ]

  "operands[4] = GEN_INT (((1 << INTVAL (operands[1]))-1) << INTVAL (operands[2]));"

)

(define_insn_and_split "*tstbranchsi4m_ne"

  [(set (pc)

        (if_then_else (ne (zero_extract:SI (match_operand:SI  0 "register_operand"  "r")

                                           (match_operand  1 "rx_constshift_operand" "i")

                                           (match_operand  2 "rx_constshift_operand" "i"))

                          (const_int 0))

                      (label_ref (match_operand        3 "" ""))

                      (pc)))

   ]

  ""

  "#"

  ""

  [(set (pc)

        (if_then_else (ne (and:SI (match_dup  0)

                                  (match_dup 4))

                          (const_int 0))

                      (label_ref (match_dup 3))

                      (pc)))

   ]

  "operands[4] = GEN_INT (((1 << INTVAL (operands[1]))-1) << INTVAL (operands[2]));"

)

;; -----------------------------------------------------------------------------

(define_expand "cbranchsf4"

  [(set (pc)

        (if_then_else (match_operator 0 "comparison_operator"

                                      [(match_operand:SF 1 "register_operand")

                                       (match_operand:SF 2 "rx_source_operand")])

                      (label_ref (match_operand 3 ""))

                      (pc)))

   ]

  "ALLOW_RX_FPU_INSNS"

  ""

)

(define_insn_and_split "*cbranchsf4_"

  [(set (pc)

        (if_then_else (most_cond (match_operand:SF  0 "register_operand"  "r")

                                 (match_operand:SF  1 "rx_source_operand" "rFiQ"))

                      (label_ref (match_operand        2 "" ""))

                      (pc)))

   ]

  "ALLOW_RX_FPU_INSNS"

  "#"

  "&& reload_completed"

  [(const_int 0)]

  "

  /* We contstruct the split by hand as otherwise the JUMP_LABEL

     attribute is not set correctly on the jump insn.  */

  emit_insn (gen_cmpsf (operands[0], operands[1]));

  emit_jump_insn (gen_conditional_branch (operands[2],

                 gen_rtx_fmt_ee (, CCmode,

                                 gen_rtx_REG (CCmode, CC_REG), const0_rtx)));

  "

)

(define_insn "tstsi"

  [(set (reg:CC_ZS CC_REG)

        (compare:CC_ZS (and:SI (match_operand:SI 0 "register_operand"  "r,r,r")

                               (match_operand:SI 1 "rx_source_operand" "r,i,Q"))

                       (const_int 0)))]

  ""

  {

    rx_float_compare_mode = false;

    return "tst\t%Q1, %0";

  }

  [(set_attr "timings" "11,11,33")

   (set_attr "length"   "3,7,6")]

)

(define_insn "cmpsi"

  [(set (reg:CC CC_REG)

        (compare:CC (match_operand:SI 0 "register_operand"  "r,r,r,r,r,r,r")

                    (match_operand:SI 1 "rx_source_operand" "r,Uint04,Int08,Sint16,Sint24,i,Q")))]

  ""

  {

    rx_float_compare_mode = false;

    if (rx_compare_redundant (insn))

      return "; Compare Eliminated: cmp %Q1, %0";

    return "cmp\t%Q1, %0";

  }

  [(set_attr "timings" "11,11,11,11,11,11,33")

   (set_attr "length"  "2,2,3,4,5,6,5")]

)

;; This pattern is disabled when -fnon-call-exceptions is active because

;; it could generate a floating point exception, which would introduce an

;; edge into the flow graph between this insn and the conditional branch

;; insn to follow, thus breaking the cc0 relationship.  Run the g++ test

;; g++.dg/eh/080514-1.C to see this happen.

(define_insn "cmpsf"

  [(set (reg:CC_ZSO CC_REG)

        (compare:CC_ZSO (match_operand:SF 0 "register_operand"  "r,r,r")

                        (match_operand:SF 1 "rx_source_operand" "r,iF,Q")))]

  "ALLOW_RX_FPU_INSNS"

  {

    rx_float_compare_mode = true;

    return "fcmp\t%1, %0";

  }

  [(set_attr "timings" "11,11,33")

   (set_attr "length" "3,7,5")]

)

;; Flow Control Instructions:

(define_expand "b"

  [(set (pc)

        (if_then_else (most_cond (reg:CC CC_REG) (const_int 0))

                      (label_ref (match_operand 0))

                      (pc)))]

  ""

  ""

)

(define_insn "conditional_branch"

  [(set (pc)

        (if_then_else (match_operator           1 "comparison_operator"

                                                [(reg:CC CC_REG) (const_int 0)])

                      (label_ref (match_operand 0 "" ""))

                      (pc)))]

  ""

  {

    return rx_gen_cond_branch_template (operands[1], false);

  }

  [(set_attr "length" "8")    ;; This length is wrong, but it is

                              ;; too hard to compute statically.

   (set_attr "timings" "33")] ;; The timing assumes that the branch is taken.

)

(define_insn "*reveresed_conditional_branch"

  [(set (pc)

        (if_then_else (match_operator 1 "comparison_operator"

                                      [(reg:CC CC_REG) (const_int 0)])

                      (pc)

                      (label_ref (match_operand 0 "" ""))))]

  ""

  {

    return rx_gen_cond_branch_template (operands[1], true);

  }

  [(set_attr "length" "8")    ;; This length is wrong, but it is

                              ;; too hard to compute statically.

   (set_attr "timings" "33")] ;; The timing assumes that the branch is taken.

)

(define_insn "jump"

  [(set (pc)

        (label_ref (match_operand 0 "" "")))]

  ""

  "bra\t%0"

  [(set_attr "length" "4")

   (set_attr "timings" "33")]

)

(define_insn "indirect_jump"

  [(set (pc)

        (match_operand:SI 0 "register_operand" "r"))]

  ""

  "jmp\t%0"

  [(set_attr "length" "2")

   (set_attr "timings" "33")]

)

(define_insn "tablejump"

  [(set (pc)

        (match_operand:SI          0 "register_operand" "r"))

   (use (label_ref (match_operand  1 "" "")))]

  ""

  { return flag_pic ? (TARGET_AS100_SYNTAX ? "\n?:\tbra\t%0"

                                           : "\n1:\tbra\t%0")

                                           : "jmp\t%0";

  }

  [(set_attr "timings" "33")

   (set_attr "length" "2")]

)

(define_insn "simple_return"

  [(return)]

  ""

  "rts"

  [(set_attr "length" "1")

   (set_attr "timings" "55")]

)

(define_insn "deallocate_and_return"

  [(set (reg:SI SP_REG)

        (plus:SI (reg:SI SP_REG)

                 (match_operand:SI 0 "immediate_operand" "i")))

   (return)]

  ""

  "rtsd\t%0"

  [(set_attr "length" "2")

   (set_attr "timings" "55")]

)

(define_insn "pop_and_return"

  [(match_parallel 1 "rx_rtsd_vector"

                   [(set:SI (reg:SI SP_REG)

                            (plus:SI (reg:SI SP_REG)

                                     (match_operand:SI 0 "const_int_operand" "n")))])]

  "reload_completed"

  {

    rx_emit_stack_popm (operands, false);

    return "";

  }

  [(set_attr "length" "3")

   (set_attr "timings" "56")]

)

(define_insn "fast_interrupt_return"

  [(unspec_volatile [(return)] UNSPEC_RTFI) ]

  ""

  "rtfi"

  [(set_attr "length" "2")

   (set_attr "timings" "33")]

)

(define_insn "exception_return"

  [(unspec_volatile [(return)] UNSPEC_RTE) ]

  ""

  "rte"

  [(set_attr "length" "2")

   (set_attr "timings" "66")]

)

(define_insn "naked_return"

  [(unspec_volatile [(return)] UNSPEC_NAKED) ]

  ""

  "; Naked function: epilogue provided by programmer."

)

;; Note - the following set of patterns do not use the "memory_operand"

;; predicate or an "m" constraint because we do not allow symbol_refs

;; or label_refs as legitmate memory addresses.  This matches the

;; behaviour of most of the RX instructions.  Only the call/branch

;; instructions are allowed to refer to symbols/labels directly.

;; The call operands are in QImode because that is the value of

;; FUNCTION_MODE

(define_expand "call"

  [(call (match_operand:QI 0 "general_operand")

         (match_operand:SI 1 "general_operand"))]

  ""

  {

    rtx dest = XEXP (operands[0], 0);

    if (! rx_call_operand (dest, Pmode))

      dest = force_reg (Pmode, dest);

    emit_call_insn (gen_call_internal (dest, operands[1]));

    DONE;

  }

)

(define_insn "call_internal"

  [(call (mem:QI (match_operand:SI 0 "rx_call_operand" "r,Symbol"))

         (match_operand:SI         1 "general_operand" "g,g"))

   (clobber (reg:CC CC_REG))]

  ""

  "@

  jsr\t%0

  bsr\t%A0"

  [(set_attr "length" "2,4")

   (set_attr "timings" "33")]

)

(define_expand "call_value"

  [(set (match_operand          0 "register_operand")

        (call (match_operand:QI 1 "general_operand")

              (match_operand:SI 2 "general_operand")))]

  ""

  {

    rtx dest = XEXP (operands[1], 0);

    if (! rx_call_operand (dest, Pmode))

      dest = force_reg (Pmode, dest);

    emit_call_insn (gen_call_value_internal (operands[0], dest, operands[2]));

    DONE;

  }

)

(define_insn "call_value_internal"

  [(set (match_operand                  0 "register_operand" "=r,r")

        (call (mem:QI (match_operand:SI 1 "rx_call_operand"   "r,Symbol"))

              (match_operand:SI         2 "general_operand"   "g,g")))

   (clobber (reg:CC CC_REG))]

  ""

  "@

  jsr\t%1

  bsr\t%A1"

  [(set_attr "length" "2,4")

   (set_attr "timings" "33")]

)

;; Note - we do not allow indirect sibcalls (with the address

;; held in a register) because we cannot guarantee that the register

;; chosen will be a call-used one.  If it is a call-saved register,

;; then the epilogue code will corrupt it by popping the saved value

;; off of the stack.

(define_expand "sibcall"

  [(parallel

    [(call (mem:QI (match_operand:SI 0 "rx_symbolic_call_operand"))

           (match_operand:SI         1 "general_operand"))

     (return)])]

  ""

  {

    if (MEM_P (operands[0]))

      operands[0] = XEXP (operands[0], 0);

  }

)

(define_insn "sibcall_internal"

  [(call (mem:QI (match_operand:SI 0 "rx_symbolic_call_operand" "Symbol"))

         (match_operand:SI         1 "general_operand"          "g"))

   (return)]

  ""

  "bra\t%A0"

  [(set_attr "length"  "4")

   (set_attr "timings" "33")]

)

(define_expand "sibcall_value"

 [(parallel

   [(set (match_operand                  0 "register_operand")

         (call (mem:QI (match_operand:SI 1 "rx_symbolic_call_operand"))

               (match_operand:SI         2 "general_operand")))

    (return)])]

  ""

  {

    if (MEM_P (operands[1]))

      operands[1] = XEXP (operands[1], 0);

  }

)

(define_insn "sibcall_value_internal"

 [(set (match_operand                  0 "register_operand"         "=r")

       (call (mem:QI (match_operand:SI 1 "rx_symbolic_call_operand" "Symbol"))

             (match_operand:SI         2 "general_operand"          "g")))

  (return)]

  ""

  "bra\t%A1"

  [(set_attr "length"  "4")

   (set_attr "timings" "33")]

)

;; Function Prologue/Epilogue Instructions

(define_expand "prologue"

  [(const_int 0)]

  ""

  "rx_expand_prologue (); DONE;"

)

(define_expand "epilogue"

  [(return)]

  ""

  "rx_expand_epilogue (false); DONE;"

)

(define_expand "sibcall_epilogue"

  [(return)]

  ""

  "rx_expand_epilogue (true); DONE;"

)

;; Move Instructions

;; Note - we do not allow memory to memory moves, even though the ISA

;; supports them.  The reason is that the conditions on such moves are

;; too restrictive, specifically the source addressing mode is limited

;; by the destination addressing mode and vice versa.  (For example it

;; is not possible to use indexed register indirect addressing for one

;; of the operands if the other operand is anything other than a register,

;; but it is possible to use register relative addressing when the other

;; operand also uses register relative or register indirect addressing).

;;

;; GCC does not support computing legitimate addresses based on the

;; nature of other operands involved in the instruction, and reload is

;; not smart enough to cope with a whole variety of different memory

;; addressing constraints, so it is simpler and safer to just refuse

;; to support memory to memory moves.

(define_expand "mov"

  [(set (match_operand:register_modes 0 "general_operand")

        (match_operand:register_modes 1 "general_operand"))]

  ""

  {

    if (MEM_P (operand0) && MEM_P (operand1))

      operands[1] = copy_to_mode_reg (mode, operand1);

  }

)

(define_insn "*mov_internal"

  [(set (match_operand:register_modes

        (match_operand:register_modes

         1 "general_operand" "Int08,Sint16,Sint24,i,r,m,r,Int08,Sint16,Sint24,i"))]

  ""

  { return rx_gen_move_template (operands, false); }

  [(set_attr "length" "3,4,5,6,2,4,6,5,6,7,8")

   (set_attr "timings" "11,11,11,11,11,12,11,11,11,11,11")]

)

(define_insn "extendsi2"

  [(set (match_operand:SI 0 "register_operand"    "=r,r")

        (sign_extend:SI (match_operand:small_int_modes

                          1 "nonimmediate_operand" "r,m")))]

  ""

  { return rx_gen_move_template (operands, false); }

  [(set_attr "length" "2,6")

   (set_attr "timings" "11,12")]

)

(define_insn "zero_extendsi2"

  [(set (match_operand:SI 0 "register_operand"     "=r,r")

        (zero_extend:SI (match_operand:small_int_modes

                          1 "nonimmediate_operand"  "r,m")))]

  ""

  { return rx_gen_move_template (operands, true); }

  [(set_attr "length" "2,4")

   (set_attr "timings" "11,12")]

)

(define_insn "stack_push"

  [(set:SI (reg:SI SP_REG)

           (minus:SI (reg:SI SP_REG)

                     (const_int 4)))

   (set:SI (mem:SI (reg:SI SP_REG))

           (match_operand:SI 0 "register_operand" "r"))]

  ""

  "push.l\t%0"

  [(set_attr "length" "2")]

)

(define_insn "stack_pushm"

  [(match_parallel 1 "rx_store_multiple_vector"

                   [(set:SI (reg:SI SP_REG)

                            (minus:SI (reg:SI SP_REG)

                                      (match_operand:SI 0 "const_int_operand" "n")))])]

  "reload_completed"

  {

    rx_emit_stack_pushm (operands);

    return "";

  }

  [(set_attr "length" "2")

   (set_attr "timings" "44")] ;; The timing is a guesstimate average timing.

)

(define_insn "stack_pop"

  [(set:SI (match_operand:SI 0 "register_operand" "=r")

           (mem:SI (reg:SI SP_REG)))

   (set:SI (reg:SI SP_REG)

           (plus:SI (reg:SI SP_REG)

                    (const_int 4)))]

  ""

  "pop\t%0"

  [(set_attr "length" "2")

   (set_attr "timings" "12")]

)

(define_insn "stack_popm"

  [(match_parallel 1 "rx_load_multiple_vector"

                   [(set:SI (reg:SI SP_REG)

                            (plus:SI (reg:SI SP_REG)

                                     (match_operand:SI 0 "const_int_operand" "n")))])]

  "reload_completed"

  {

    rx_emit_stack_popm (operands, true);

    return "";

  }

  [(set_attr "length" "2")

   (set_attr "timings" "45")] ;; The timing is a guesstimate average timing.

)

;; FIXME: Add memory destination options ?

(define_insn "cstoresi4"

  [(set (match_operand:SI   0 "register_operand" "=r,r,r,r,r,r,r")

        (match_operator:SI  1 "comparison_operator"

         [(match_operand:SI 2 "register_operand"  "r,r,r,r,r,r,r")

          (match_operand:SI 3 "rx_source_operand" "r,Uint04,Int08,Sint16,Sint24,i,Q")]))

   (clobber (reg:CC CC_REG))] ;; Because the cc flags are set based on comparing ops 2 & 3 not the value in op 0.

  ""

  {

    rx_float_compare_mode = false;

    return "cmp\t%Q3, %Q2\n\tsc%B1.L\t%0";

  }

  [(set_attr "timings" "22,22,22,22,22,22,44")

   (set_attr "length"  "5,5,6,7,8,9,8")]

)

(define_expand "movsicc"

  [(parallel

    [(set (match_operand:SI                  0 "register_operand")

          (if_then_else:SI (match_operand:SI 1 "comparison_operator")

                           (match_operand:SI 2 "nonmemory_operand")

                           (match_operand:SI 3 "immediate_operand")))

     (clobber (reg:CC CC_REG))])] ;; See cstoresi4

  ""

  {

    if (GET_CODE (operands[1]) != EQ && GET_CODE (operands[1]) != NE)

      FAIL;

    if (! CONST_INT_P (operands[3]))

      FAIL;

  }

)

(define_insn "*movsieq"

  [(set (match_operand:SI                      0 "register_operand" "=r,r,r")

        (if_then_else:SI (eq (match_operand:SI 3 "register_operand"  "r,r,r")

                             (match_operand:SI 4 "rx_source_operand" "riQ,riQ,riQ"))

                         (match_operand:SI     1 "nonmemory_operand" "0,i,r")

                         (match_operand:SI     2 "immediate_operand" "i,i,i")))

   (clobber (reg:CC CC_REG))] ;; See cstoresi4

  ""

  "@

  cmp\t%Q4, %Q3\n\tstnz\t%2, %0

  cmp\t%Q4, %Q3\n\tmov.l\t%2, %0\n\tstz\t%1, %0

  cmp\t%Q4, %Q3\n\tmov.l\t%1, %0\n\tstnz\t%2, %0"

  [(set_attr "length"  "13,19,15")

   (set_attr "timings" "22,33,33")]

)

(define_insn "*movsine"

  [(set (match_operand:SI                      0 "register_operand" "=r,r,r")

        (if_then_else:SI (ne (match_operand:SI 3 "register_operand"  "r,r,r")

                             (match_operand:SI 4 "rx_source_operand" "riQ,riQ,riQ"))

                         (match_operand:SI     1 "nonmemory_operand" "0,i,r")

                         (match_operand:SI     2 "immediate_operand" "i,i,i")))

   (clobber (reg:CC CC_REG))] ;; See cstoresi4

  ""

  "@

  cmp\t%Q4, %Q3\n\tstz\t%2, %0

  cmp\t%Q4, %Q3\n\tmov.l\t%2, %0\n\tstnz\t%1, %0

  cmp\t%Q4, %Q3\n\tmov.l\t%1, %0\n\tstz\t%2, %0"

  [(set_attr "length"  "13,19,15")

   (set_attr "timings" "22,33,33")]

)

;; Arithmetic Instructions

(define_insn "abssi2"

  [(set (match_operand:SI         0 "register_operand" "=r,r")

        (abs:SI (match_operand:SI 1 "register_operand"  "0,r")))

   (set (reg:CC_ZSO CC_REG)

        (compare:CC_ZSO (abs:SI (match_dup 1))

                        (const_int 0)))]

  ""

  "@

  abs\t%0

  abs\t%1, %0"

  [(set_attr "length" "2,3")]

)

(define_insn "addsi3"

  [(set (match_operand:SI          0 "register_operand"  "=r,r,r,r,r,r,r,r,r,r,r,r,r,r")

        (plus:SI (match_operand:SI 1 "register_operand"  "%0,0,0,0,0,0,0,r,r,r,r,r,r,0")

                 (match_operand:SI 2 "rx_source_operand" "r,Uint04,NEGint4,Sint08,Sint16,Sint24,i,0,r,Sint08,Sint16,Sint24,i,Q")))

   (set (reg:CC_ZSC CC_REG) ;; See subsi3

        (compare:CC_ZSC (plus:SI (match_dup 1) (match_dup 2))

                        (const_int 0)))]

  ""

  "@

  add\t%2, %0

  add\t%2, %0

  sub\t%N2, %0

  add\t%2, %0

  add\t%2, %0

  add\t%2, %0

  add\t%2, %0

  add\t%1, %0

  add\t%2, %1, %0

  add\t%2, %1, %0

  add\t%2, %1, %0

  add\t%2, %1, %0

  add\t%2, %1, %0

  add\t%Q2, %0"

  [(set_attr "timings" "11,11,11,11,11,11,11,11,11,11,11,11,11,33")

   (set_attr "length"   "2,2,2,3,4,5,6,2,3,3,4,5,6,5")]

)

(define_insn "adddi3"

  [(set (match_operand:DI          0 "register_operand" "=r,r,r,r,r,r")

        (plus:DI (match_operand:DI 1 "register_operand" "%0,0,0,0,0,0")

                 (match_operand:DI 2 "rx_source_operand"

                                   "r,Sint08,Sint16,Sint24,i,Q")))

   (set (reg:CC_ZSC CC_REG) ;; See subsi3

        (compare:CC_ZSC (plus:DI (match_dup 1) (match_dup 2))

                        (const_int 0)))]

  ""

  "add\t%L2, %L0\n\tadc\t%H2, %H0"

  [(set_attr "timings" "22,22,22,22,22,44")

   (set_attr "length" "5,7,9,11,13,11")]

)

(define_insn "andsi3"

  [(set (match_operand:SI         0 "register_operand"  "=r,r,r,r,r,r,r,r,r")

        (and:SI (match_operand:SI 1 "register_operand"  "%0,0,0,0,0,0,r,r,0")

                (match_operand:SI 2 "rx_source_operand" "r,Uint04,Sint08,Sint16,Sint24,i,0,r,Q")))

   (set (reg:CC_ZS CC_REG)

        (compare:CC_ZS (and:SI (match_dup 1) (match_dup 2))

                       (const_int 0)))]

  ""

  "@

  and\t%2, %0

  and\t%2, %0

  and\t%2, %0

  and\t%2, %0

  and\t%2, %0

  and\t%2, %0

  and\t%1, %0

  and\t%2, %1, %0

  and\t%Q2, %0"

  [(set_attr "timings" "11,11,11,11,11,11,11,33,33")

   (set_attr "length" "2,2,3,4,5,6,2,5,5")]

)

;; Byte swap (single 32-bit value).

(define_insn "bswapsi2"

  [(set (match_operand:SI           0 "register_operand" "+r")

        (bswap:SI (match_operand:SI 1 "register_operand"  "r")))]

  ""

  "revl\t%1, %0"

  [(set_attr "length" "3")]

)

;; Byte swap (single 16-bit value).  Note - we ignore the swapping of the high 16-bits.

(define_insn "bswaphi2"

  [(set (match_operand:HI           0 "register_operand" "+r")

        (bswap:HI (match_operand:HI 1 "register_operand"  "r")))]

  ""

  "revw\t%1, %0"

  [(set_attr "length" "3")]

)

(define_insn "divsi3"

  [(set (match_operand:SI         0 "register_operand" "=r,r,r,r,r,r")

        (div:SI (match_operand:SI 1 "register_operand"  "0,0,0,0,0,0")

                (match_operand:SI 2 "rx_source_operand" "r,Sint08,Sint16,Sint24,i,Q")))

   (clobber (reg:CC CC_REG))]

  ""

  "div\t%Q2, %0"

  [(set_attr "timings" "1111") ;; Strictly speaking the timing should be

                               ;; 2222, but that is a worst case sceanario.

   (set_attr "length" "3,4,5,6,7,6")]

)

(define_insn "udivsi3"

  [(set (match_operand:SI          0 "register_operand"  "=r,r,r,r,r,r")

        (udiv:SI (match_operand:SI 1 "register_operand"   "0,0,0,0,0,0")

                 (match_operand:SI 2 "rx_source_operand"  "r,Sint08,Sint16,Sint24,i,Q")))

   (clobber (reg:CC CC_REG))]

  ""

  "divu\t%Q2, %0"

  [(set_attr "timings" "1010") ;; Strictly speaking the timing should be

                               ;; 2020, but that is a worst case sceanario.

   (set_attr "length" "3,4,5,6,7,6")]

)

;; Note - these patterns are suppressed in big-endian mode because they

;; generate a little endian result.  ie the most significant word of the

;; result is placed in the higher numbered register of the destination

;; register pair.

(define_insn "mulsidi3"

  [(set (match_operand:DI          0 "register_operand"  "=r,r,r,r,r,r")

        (mult:DI (sign_extend:DI (match_operand:SI

                                  1 "register_operand"  "%0,0,0,0,0,0"))