(FPSCR_REG 151)
+ ;; Virtual FPSCR - bits that are used by FP ops.
+ (FPSCR_MODES_REG 154)
+
+ ;; Virtual FPSCR - bits that are updated by FP ops.
+ (FPSCR_STAT_REG 155)
+
(PIC_REG 12)
(FP_REG 14)
(SP_REG 15)
(TR2_REG 130)
(XD0_REG 136)
+
+ (FPSCR_PR 524288)
+ (FPSCR_SZ 1048576)
])
(define_c_enum "unspec" [
UNSPECV_GBR
UNSPECV_SP_SWITCH_B
UNSPECV_SP_SWITCH_E
+
+ UNSPECV_FPSCR_MODES
+ UNSPECV_FPSCR_STAT
])
;; -------------------------------------------------------------------------
(clobber (reg:SI R1_REG))
(clobber (reg:SI R4_REG))
(clobber (reg:SI R5_REG))
- (use (reg:PSI FPSCR_REG))
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(use (match_operand:SI 1 "arith_reg_operand" "r"))]
"TARGET_FPU_DOUBLE && ! TARGET_FPU_SINGLE"
"jsr @%1%#"
(clobber (reg:SI PR_REG))
(clobber (reg:DF DR0_REG))
(clobber (reg:DF DR2_REG))
- (use (reg:PSI FPSCR_REG))
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(use (match_operand:SI 1 "arith_reg_operand" "r"))]
"TARGET_FPU_DOUBLE && ! TARGET_FPU_SINGLE"
"jsr @%1%#"
(define_expand "push_e"
[(parallel [(set (mem:SF (pre_dec:SI (reg:SI SP_REG)))
(match_operand:SF 0 "" ""))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (scratch:SI))])]
"TARGET_SH1 && ! TARGET_SH5"
"")
(define_expand "push_4"
[(parallel [(set (mem:DF (pre_dec:SI (reg:SI SP_REG)))
(match_operand:DF 0 "" ""))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (scratch:SI))])]
"TARGET_SH1 && ! TARGET_SH5"
"")
(define_expand "pop_e"
[(parallel [(set (match_operand:SF 0 "" "")
(mem:SF (post_inc:SI (reg:SI SP_REG))))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (scratch:SI))])]
"TARGET_SH1 && ! TARGET_SH5"
"")
(define_expand "pop_4"
[(parallel [(set (match_operand:DF 0 "" "")
(mem:DF (post_inc:SI (reg:SI SP_REG))))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (scratch:SI))])]
"TARGET_SH1 && ! TARGET_SH5"
"")
(define_insn "movdf_i4"
[(set (match_operand:DF 0 "general_movdst_operand" "=d,r,d,d,m,r,r,m,!??r,!???d")
(match_operand:DF 1 "general_movsrc_operand" "d,r,F,m,d,FQ,m,r,d,r"))
- (use (match_operand:PSI 2 "fpscr_operand" "c,c,c,c,c,c,c,c,c,c"))
- (clobber (match_scratch:SI 3 "=X,X,&z,X,X,X,X,X,X,X"))]
+ (use (reg:SI FPSCR_MODES_REG))
+ (clobber (match_scratch:SI 2 "=X,X,&z,X,X,X,X,X,X,X"))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)
&& (arith_reg_operand (operands[0], DFmode)
|| arith_reg_operand (operands[1], DFmode))"
(define_split
[(set (match_operand:DF 0 "register_operand")
(match_operand:DF 1 "register_operand"))
- (use (match_operand:PSI 2 "fpscr_operand"))
- (clobber (match_scratch:SI 3))]
+ (use (reg:SI FPSCR_MODES_REG))
+ (clobber (match_scratch:SI 2))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE) && reload_completed
&& (true_regnum (operands[0]) < 16) != (true_regnum (operands[1]) < 16)"
[(const_int 0)]
else
tos = gen_tmp_stack_mem (DFmode,
gen_rtx_PRE_DEC (Pmode, stack_pointer_rtx));
- insn = emit_insn (gen_movdf_i4 (tos, operands[1], operands[2]));
+ insn = emit_insn (gen_movdf_i4 (tos, operands[1]));
if (! (TARGET_SH5 && true_regnum (operands[1]) < 16))
add_reg_note (insn, REG_INC, stack_pointer_rtx);
if (TARGET_SH5 && true_regnum (operands[0]) < 16)
else
tos = gen_tmp_stack_mem (DFmode,
gen_rtx_POST_INC (Pmode, stack_pointer_rtx));
- insn = emit_insn (gen_movdf_i4 (operands[0], tos, operands[2]));
+ insn = emit_insn (gen_movdf_i4 (operands[0], tos));
if (TARGET_SH5 && true_regnum (operands[0]) < 16)
emit_move_insn (stack_pointer_rtx,
plus_constant (Pmode, stack_pointer_rtx, 8));
(define_split
[(set (match_operand:DF 0 "general_movdst_operand" "")
(match_operand:DF 1 "general_movsrc_operand" ""))
- (use (match_operand:PSI 2 "fpscr_operand" ""))
- (clobber (match_scratch:SI 3 ""))]
+ (use (reg:SI FPSCR_MODES_REG))
+ (clobber (match_scratch:SI 2))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)
&& reload_completed
&& true_regnum (operands[0]) < 16
(define_split
[(set (match_operand:DF 0 "register_operand" "")
(match_operand:DF 1 "memory_operand" ""))
- (use (match_operand:PSI 2 "fpscr_operand" ""))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI R0_REG))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE) && reload_completed"
[(parallel [(set (match_dup 0) (match_dup 1))
- (use (match_dup 2))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (scratch:SI))])]
"")
(define_expand "reload_indf__frn"
[(parallel [(set (match_operand:DF 0 "register_operand" "=a")
(match_operand:DF 1 "immediate_operand" "FQ"))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (match_operand:SI 2 "register_operand" "=&z"))])]
"TARGET_SH1"
"")
(define_split
[(set (match_operand:SF 0 "register_operand" "")
(match_operand:SF 1 "register_operand" ""))
- (use (match_operand:PSI 2 "fpscr_operand" ""))
- (clobber (match_scratch:SI 3 ""))]
+ (use (reg:SI FPSCR_MODES_REG))
+ (clobber (match_scratch:SI 2))]
"TARGET_SH2E && reload_completed
&& true_regnum (operands[0]) == true_regnum (operands[1])"
[(set (match_dup 0) (match_dup 0))]
(define_split
[(set (match_operand:DF 0 "register_operand" "")
(match_operand:DF 1 "register_operand" ""))
- (use (match_operand:PSI 2 "fpscr_operand" ""))
- (clobber (match_scratch:SI 3 ""))]
+ (use (reg:SI FPSCR_MODES_REG))
+ (clobber (match_scratch:SI 2))]
"TARGET_SH4 && ! TARGET_FMOVD && reload_completed
&& FP_OR_XD_REGISTER_P (true_regnum (operands[0]))
&& FP_OR_XD_REGISTER_P (true_regnum (operands[1]))"
{
int dst = true_regnum (operands[0]), src = true_regnum (operands[1]);
emit_insn (gen_movsf_ie (gen_rtx_REG (SFmode, dst),
- gen_rtx_REG (SFmode, src), operands[2]));
+ gen_rtx_REG (SFmode, src)));
emit_insn (gen_movsf_ie (gen_rtx_REG (SFmode, dst + 1),
- gen_rtx_REG (SFmode, src + 1), operands[2]));
+ gen_rtx_REG (SFmode, src + 1)));
DONE;
})
(define_split
[(set (match_operand:DF 0 "register_operand" "")
(mem:DF (match_operand:SI 1 "register_operand" "")))
- (use (match_operand:PSI 2 "fpscr_operand" ""))
- (clobber (match_scratch:SI 3 ""))]
+ (use (reg:SI FPSCR_MODES_REG))
+ (clobber (match_scratch:SI 2))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE) && ! TARGET_FMOVD && reload_completed
&& FP_OR_XD_REGISTER_P (true_regnum (operands[0]))
&& find_regno_note (insn, REG_DEAD, true_regnum (operands[1]))"
= change_address (mem, SFmode, gen_rtx_POST_INC (Pmode, operands[1]));
insn = emit_insn (gen_movsf_ie (gen_rtx_REG (SFmode,
regno + SH_REG_MSW_OFFSET),
- mem2, operands[2]));
+ mem2));
add_reg_note (insn, REG_INC, operands[1]);
insn = emit_insn (gen_movsf_ie (gen_rtx_REG (SFmode,
regno + SH_REG_LSW_OFFSET),
- change_address (mem, SFmode, NULL_RTX),
- operands[2]));
+ change_address (mem, SFmode, NULL_RTX)));
DONE;
})
(define_split
[(set (match_operand:DF 0 "register_operand" "")
(match_operand:DF 1 "memory_operand" ""))
- (use (match_operand:PSI 2 "fpscr_operand" ""))
- (clobber (match_scratch:SI 3 ""))]
+ (use (reg:SI FPSCR_MODES_REG))
+ (clobber (match_scratch:SI 2))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE) && ! TARGET_FMOVD && reload_completed
&& FP_OR_XD_REGISTER_P (true_regnum (operands[0]))"
[(const_int 0)]
if (! arith_reg_operand (operands[1], SFmode))
{
XEXP (mem2, 0) = addr = gen_rtx_POST_INC (SImode, addr);
- insn = emit_insn (gen_movsf_ie (reg0, mem2, operands[2]));
+ insn = emit_insn (gen_movsf_ie (reg0, mem2));
add_reg_note (insn, REG_INC, XEXP (addr, 0));
- emit_insn (gen_movsf_ie (reg1, operands[1], operands[2]));
+ emit_insn (gen_movsf_ie (reg1, operands[1]));
/* If we have modified the stack pointer, the value that we have
read with post-increment might be modified by an interrupt,
/* Fall through. */
case PLUS:
- emit_insn (gen_movsf_ie (reg0, operands[1], operands[2]));
+ emit_insn (gen_movsf_ie (reg0, operands[1]));
operands[1] = copy_rtx (operands[1]);
XEXP (operands[1], 0) = plus_constant (Pmode, addr, 4);
- emit_insn (gen_movsf_ie (reg1, operands[1], operands[2]));
+ emit_insn (gen_movsf_ie (reg1, operands[1]));
break;
case POST_INC:
- insn = emit_insn (gen_movsf_ie (reg0, operands[1], operands[2]));
+ insn = emit_insn (gen_movsf_ie (reg0, operands[1]));
add_reg_note (insn, REG_INC, XEXP (addr, 0));
- insn = emit_insn (gen_movsf_ie (reg1, operands[1], operands[2]));
+ insn = emit_insn (gen_movsf_ie (reg1, operands[1]));
add_reg_note (insn, REG_INC, XEXP (addr, 0));
break;
(define_split
[(set (match_operand:DF 0 "memory_operand" "")
(match_operand:DF 1 "register_operand" ""))
- (use (match_operand:PSI 2 "fpscr_operand" ""))
- (clobber (match_scratch:SI 3 ""))]
+ (use (reg:SI FPSCR_MODES_REG))
+ (clobber (match_scratch:SI 2))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE) && ! TARGET_FMOVD && reload_completed
&& FP_OR_XD_REGISTER_P (true_regnum (operands[1]))"
[(const_int 0)]
if (! arith_reg_operand (operands[0], SFmode))
{
emit_insn (gen_addsi3 (addr, addr, GEN_INT (4)));
- emit_insn (gen_movsf_ie (operands[0], reg1, operands[2]));
+ emit_insn (gen_movsf_ie (operands[0], reg1));
operands[0] = copy_rtx (operands[0]);
XEXP (operands[0], 0) = addr = gen_rtx_PRE_DEC (SImode, addr);
- insn = emit_insn (gen_movsf_ie (operands[0], reg0, operands[2]));
+ insn = emit_insn (gen_movsf_ie (operands[0], reg0));
add_reg_note (insn, REG_INC, XEXP (addr, 0));
break;
}
register component of the address. Just emit the lower numbered
register first, to the lower address, then the higher numbered
register to the higher address. */
- emit_insn (gen_movsf_ie (operands[0], reg0, operands[2]));
+ emit_insn (gen_movsf_ie (operands[0], reg0));
operands[0] = copy_rtx (operands[0]);
XEXP (operands[0], 0) = plus_constant (Pmode, addr, 4);
- emit_insn (gen_movsf_ie (operands[0], reg1, operands[2]));
+ emit_insn (gen_movsf_ie (operands[0], reg1));
break;
case PRE_DEC:
first (ie the word in the higher numbered register) then the
word to go to the lower address. */
- insn = emit_insn (gen_movsf_ie (operands[0], reg1, operands[2]));
+ insn = emit_insn (gen_movsf_ie (operands[0], reg1));
add_reg_note (insn, REG_INC, XEXP (addr, 0));
- insn = emit_insn (gen_movsf_ie (operands[0], reg0, operands[2]));
+ insn = emit_insn (gen_movsf_ie (operands[0], reg0));
add_reg_note (insn, REG_INC, XEXP (addr, 0));
break;
}
if (TARGET_SH4 || TARGET_SH2A_DOUBLE)
{
- emit_df_insn (gen_movdf_i4 (operands[0], operands[1], get_fpscr_rtx ()));
+ emit_insn (gen_movdf_i4 (operands[0], operands[1]));
DONE;
}
})
"=f,r,f,f,fy,f,m,r,r,m,f,y,y,rf,r,y,<,y,y")
(match_operand:SF 1 "general_movsrc_operand"
"f,r,G,H,FQ,mf,f,FQ,mr,r,y,f,>,fr,y,r,y,>,y"))
- (use (match_operand:PSI 2 "fpscr_operand" "c,c,c,c,c,c,c,c,c,c,c,c,c,c,c,c,c,c,c"))
- (clobber (match_scratch:SI 3 "=X,X,Bsc,Bsc,&z,X,X,X,X,X,X,X,X,y,X,X,X,X,X"))]
+ (use (reg:SI FPSCR_MODES_REG))
+ (clobber (match_scratch:SI 2 "=X,X,Bsc,Bsc,&z,X,X,X,X,X,X,X,X,y,X,X,X,X,X"))]
"TARGET_SH2E
&& (arith_reg_operand (operands[0], SFmode) || fpul_operand (operands[0], SFmode)
|| arith_reg_operand (operands[1], SFmode) || fpul_operand (operands[1], SFmode)
- || arith_reg_operand (operands[3], SImode))"
+ || arith_reg_operand (operands[2], SImode))"
"@
fmov %1,%0
mov %1,%0
(define_split
[(set (match_operand:SF 0 "register_operand" "")
(match_operand:SF 1 "register_operand" ""))
- (use (match_operand:PSI 2 "fpscr_operand" ""))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI FPUL_REG))]
"TARGET_SH1"
[(parallel [(set (reg:SF FPUL_REG) (match_dup 1))
- (use (match_dup 2))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (scratch:SI))])
(parallel [(set (match_dup 0) (reg:SF FPUL_REG))
- (use (match_dup 2))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (scratch:SI))])]
"")
}
if (TARGET_SH2E)
{
- emit_sf_insn (gen_movsf_ie (operands[0], operands[1], get_fpscr_rtx ()));
+ emit_insn (gen_movsf_ie (operands[0], operands[1]));
DONE;
}
})
(define_expand "reload_insf__frn"
[(parallel [(set (match_operand:SF 0 "register_operand" "=a")
(match_operand:SF 1 "immediate_operand" "FQ"))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (match_operand:SI 2 "register_operand" "=&z"))])]
"TARGET_SH1"
"")
})
(define_insn "force_mode_for_call"
- [(use (reg:PSI FPSCR_REG))]
+ [(use (reg:SI FPSCR_MODES_REG))]
"TARGET_SHCOMPACT"
""
[(set_attr "length" "0")
(define_insn "calli"
[(call (mem:SI (match_operand:SI 0 "arith_reg_operand" "r"))
(match_operand 1 "" ""))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI PR_REG))]
"TARGET_SH1"
{
(define_insn "calli_tbr_rel"
[(call (mem (match_operand:SI 0 "symbol_ref_operand" ""))
(match_operand 1 "" ""))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI PR_REG))]
"TARGET_SH2A && sh2a_is_function_vector_call (operands[0])"
{
(define_insn "calli_pcrel"
[(call (mem:SI (match_operand:SI 0 "arith_reg_operand" "r"))
(match_operand 1 "" ""))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(use (reg:SI PIC_REG))
(use (match_operand 2 "" ""))
(clobber (reg:SI PR_REG))]
(define_insn_and_split "call_pcrel"
[(call (mem:SI (match_operand:SI 0 "symbol_ref_operand" ""))
(match_operand 1 "" ""))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(use (reg:SI PIC_REG))
(clobber (reg:SI PR_REG))
(clobber (match_scratch:SI 2 "=r"))]
(match_operand 2 "immediate_operand" "n")
(use (reg:SI R0_REG))
(use (reg:SI R1_REG))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI PR_REG))]
"TARGET_SHCOMPACT && ! (INTVAL (operands[2]) & CALL_COOKIE_RET_TRAMP (1))"
"jsr @%0%#"
(match_operand 2 "immediate_operand" "n")
(use (reg:SI R0_REG))
(use (reg:SI R1_REG))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI R10_REG))
(clobber (reg:SI PR_REG))]
"TARGET_SHCOMPACT && (INTVAL (operands[2]) & CALL_COOKIE_RET_TRAMP (1))"
[(set (match_operand 0 "" "=rf")
(call (mem:SI (match_operand:SI 1 "arith_reg_operand" "r"))
(match_operand 2 "" "")))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI PR_REG))]
"TARGET_SH1"
{
[(set (match_operand 0 "" "=rf")
(call (mem:SI (match_operand:SI 1 "symbol_ref_operand" ""))
(match_operand 2 "" "")))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI PR_REG))]
"TARGET_SH2A && sh2a_is_function_vector_call (operands[1])"
{
[(set (match_operand 0 "" "=rf")
(call (mem:SI (match_operand:SI 1 "arith_reg_operand" "r"))
(match_operand 2 "" "")))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(use (reg:SI PIC_REG))
(use (match_operand 3 "" ""))
(clobber (reg:SI PR_REG))]
[(set (match_operand 0 "" "=rf")
(call (mem:SI (match_operand:SI 1 "symbol_ref_operand" ""))
(match_operand 2 "" "")))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(use (reg:SI PIC_REG))
(clobber (reg:SI PR_REG))
(clobber (match_scratch:SI 3 "=r"))]
(match_operand 3 "immediate_operand" "n")
(use (reg:SI R0_REG))
(use (reg:SI R1_REG))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI PR_REG))]
"TARGET_SHCOMPACT && ! (INTVAL (operands[3]) & CALL_COOKIE_RET_TRAMP (1))"
"jsr @%1%#"
(match_operand 3 "immediate_operand" "n")
(use (reg:SI R0_REG))
(use (reg:SI R1_REG))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI R10_REG))
(clobber (reg:SI PR_REG))]
"TARGET_SHCOMPACT && (INTVAL (operands[3]) & CALL_COOKIE_RET_TRAMP (1))"
[(parallel [(call (mem:SI (match_operand 0 "arith_reg_operand" ""))
(match_operand 1 "" ""))
(match_operand 2 "" "")
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI PR_REG))])]
""
{
(match_operand 3 "immediate_operand" "n")))
(use (reg:SI R0_REG))
(use (reg:SI R1_REG))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI PR_REG))]
"TARGET_SHCOMPACT && ! (INTVAL (operands[2]) & CALL_COOKIE_RET_TRAMP (1))"
"jsr @%0%#"
(match_operand 3 "immediate_operand" "n")))
(use (reg:SI R0_REG))
(use (reg:SI R1_REG))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI R10_REG))
(clobber (reg:SI PR_REG))]
"TARGET_SHCOMPACT && (INTVAL (operands[2]) & CALL_COOKIE_RET_TRAMP (1))"
(call (mem:SI (match_operand 1 "arith_reg_operand" ""))
(match_operand 2 "" "")))
(match_operand 3 "" "")
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI PR_REG))])]
""
{
(define_insn "sibcalli"
[(call (mem:SI (match_operand:SI 0 "register_operand" "k"))
(match_operand 1 "" ""))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(return)]
"TARGET_SH1"
"jmp @%0%#"
[(call (mem:SI (match_operand:SI 0 "arith_reg_operand" "k"))
(match_operand 1 "" ""))
(use (match_operand 2 "" ""))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(return)]
"TARGET_SH2"
{
[(call (mem:SI (unspec:SI [(match_operand:SI 0 "symbol_ref_operand" "")]
UNSPEC_THUNK))
(match_operand 1 "" ""))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(return)]
"TARGET_SH1"
"bra %O0"
(define_insn_and_split "sibcall_pcrel"
[(call (mem:SI (match_operand:SI 0 "symbol_ref_operand" ""))
(match_operand 1 "" ""))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (match_scratch:SI 2 "=k"))
(return)]
"TARGET_SH2"
(return)
(use (match_operand:SI 2 "register_operand" "z,x"))
(use (reg:SI R1_REG))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
;; We want to make sure the `x' above will only match MACH_REG
;; because sibcall_epilogue may clobber MACL_REG.
(clobber (reg:SI MACL_REG))]
[(call (mem:SI (match_operand 0 "arith_reg_operand" ""))
(match_operand 1 "" ""))
(match_operand 2 "" "")
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(return)])]
""
{
[(set (match_operand 0 "" "=rf")
(call (mem:SI (match_operand:SI 1 "register_operand" "k"))
(match_operand 2 "" "")))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(return)]
"TARGET_SH1"
"jmp @%1%#"
(call (mem:SI (match_operand:SI 1 "arith_reg_operand" "k"))
(match_operand 2 "" "")))
(use (match_operand 3 "" ""))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(return)]
"TARGET_SH2"
{
[(set (match_operand 0 "" "=rf")
(call (mem:SI (match_operand:SI 1 "symbol_ref_operand" ""))
(match_operand 2 "" "")))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (match_scratch:SI 3 "=k"))
(return)]
"TARGET_SH2"
(return)
(use (match_operand:SI 3 "register_operand" "z,x"))
(use (reg:SI R1_REG))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
;; We want to make sure the `x' above will only match MACH_REG
;; because sibcall_epilogue may clobber MACL_REG.
(clobber (reg:SI MACL_REG))]
(call (mem:SI (match_operand 1 "arith_reg_operand" ""))
(match_operand 2 "" "")))
(match_operand 3 "" "")
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(return)])]
""
{
(match_operand 3 "immediate_operand" "n")
(use (reg:SI R0_REG))
(use (reg:SI R1_REG))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI PR_REG))]
"TARGET_SHCOMPACT && ! (INTVAL (operands[3]) & CALL_COOKIE_RET_TRAMP (1))"
"jsr @%1%#"
(match_operand 3 "immediate_operand" "n")
(use (reg:SI R0_REG))
(use (reg:SI R1_REG))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(clobber (reg:SI R10_REG))
(clobber (reg:SI PR_REG))]
"TARGET_SHCOMPACT && (INTVAL (operands[3]) & CALL_COOKIE_RET_TRAMP (1))"
(call:SI (mem:SI (unspec:SI [(match_operand:SI 1 "" "")]
UNSPEC_TLSGD))
(const_int 0)))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(use (reg:SI PIC_REG))
(clobber (reg:SI PR_REG))
(clobber (scratch:SI))]
(call:SI (mem:SI (unspec:SI [(match_operand:SI 1 "" "")]
UNSPEC_TLSLDM))
(const_int 0)))
- (use (reg:PSI FPSCR_REG))
+ (use (reg:SI FPSCR_MODES_REG))
(use (reg:SI PIC_REG))
(clobber (reg:SI PR_REG))
(clobber (scratch:SI))]
(define_expand "movpsi"
[(set (match_operand:PSI 0 "register_operand" "")
(match_operand:PSI 1 "general_movsrc_operand" ""))]
- "(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
- "")
+ "TARGET_FPU_ANY"
+{
+ emit_insn (gen_fpu_switch (operands[0], operands[1]));
+ DONE;
+})
;; The c / m alternative is a fake to guide reload to load directly into
;; fpscr, since reload doesn't know how to use post-increment.
;; like a mac -> gpr move.
(define_insn "fpu_switch"
[(set (match_operand:PSI 0 "general_movdst_operand" "=c,c,r,c,c,r,m,r,<")
- (match_operand:PSI 1 "general_movsrc_operand" "c,>,m,m,r,r,r,!c,c"))]
- "TARGET_SH2E
+ (match_operand:PSI 1 "general_movsrc_operand" " c,>,m,m,r,r,r,!c,c"))
+ (use (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))
+ (set (reg:SI FPSCR_STAT_REG)
+ (unspec_volatile:SI [(const_int 0)] UNSPECV_FPSCR_STAT))
+ (set (reg:SI FPSCR_MODES_REG)
+ (unspec_volatile:SI [(const_int 0)] UNSPECV_FPSCR_MODES))]
+ "TARGET_FPU_ANY
&& (! reload_completed
|| true_regnum (operands[0]) != FPSCR_REG
|| !MEM_P (operands[1])
(set_attr "type" "nil,mem_fpscr,load,mem_fpscr,gp_fpscr,move,store,
mac_gp,fstore")])
-(define_peephole2
+(define_split
[(set (reg:PSI FPSCR_REG)
- (mem:PSI (match_operand:SI 0 "register_operand" "")))]
- "(TARGET_SH4 || TARGET_SH2A_DOUBLE) && peep2_reg_dead_p (1, operands[0])"
+ (match_operand:PSI 0 "simple_mem_operand"))
+ (use (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))
+ (set (reg:SI FPSCR_STAT_REG)
+ (unspec_volatile:SI [(const_int 0)] UNSPECV_FPSCR_STAT))
+ (set (reg:SI FPSCR_MODES_REG)
+ (unspec_volatile:SI [(const_int 0)] UNSPECV_FPSCR_MODES))]
+ "TARGET_FPU_ANY && reload_completed"
[(const_int 0)]
{
- rtx fpscr, mem, new_insn;
+ rtx addrreg = XEXP (operands[0], 0);
+ rtx mem = replace_equiv_address (operands[0],
+ gen_rtx_POST_INC (Pmode, addrreg));
- fpscr = SET_DEST (PATTERN (curr_insn));
- mem = SET_SRC (PATTERN (curr_insn));
- mem = replace_equiv_address (mem, gen_rtx_POST_INC (Pmode, operands[0]));
+ add_reg_note (emit_insn (gen_fpu_switch (get_fpscr_rtx (), mem)),
+ REG_INC, addrreg);
- new_insn = emit_insn (gen_fpu_switch (fpscr, mem));
- add_reg_note (new_insn, REG_INC, operands[0]);
- DONE;
+ /* Modify the address reg to compensate for the forced post-inc mode.
+ If the address reg becomes dead afterwards, the add will be eliminated
+ automatically. */
+ emit_insn (gen_addsi3 (addrreg, addrreg, GEN_INT (-4)));
})
-(define_split
- [(set (reg:PSI FPSCR_REG)
- (mem:PSI (match_operand:SI 0 "register_operand" "")))]
- "(TARGET_SH4 || TARGET_SH2A_DOUBLE)
- && (flag_peephole2 ? epilogue_completed : reload_completed)"
- [(const_int 0)]
-{
- rtx fpscr, mem, new_insn;
-
- fpscr = SET_DEST (PATTERN (curr_insn));
- mem = SET_SRC (PATTERN (curr_insn));
- mem = replace_equiv_address (mem, gen_rtx_POST_INC (Pmode, operands[0]));
+;; The 'extend_psi_si' and 'truncate_si_psi' insns are needed since we can't
+;; do logic on PSImode. Adding PSImode logic patterns works, but loading
+;; a PSImode constant causes a double indirection, since the SH constant pool
+;; is not aware of it.
+;; FIXME: We could treat the FPSCR reg as SImode, but currently this causes
+;; additional troubles.
+(define_insn "extend_psi_si"
+ [(set (match_operand:SI 0 "arith_reg_dest" "=r")
+ (zero_extend:SI (match_operand:PSI 1 "arith_reg_operand" "0")))]
+ "TARGET_SH1"
+ ""
+ [(set_attr "length" "0")])
- new_insn = emit_insn (gen_fpu_switch (fpscr, mem));
- add_reg_note (new_insn, REG_INC, operands[0]);
+(define_insn "truncate_si_psi"
+ [(set (match_operand:PSI 0 "arith_reg_dest" "=r")
+ (truncate:PSI (match_operand:SI 1 "arith_reg_operand" "0")))]
+ "TARGET_SH1"
+ ""
+ [(set_attr "length" "0")])
- if (!find_regno_note (curr_insn, REG_DEAD, true_regnum (operands[0])))
- emit_insn (gen_addsi3 (operands[0], operands[0], GEN_INT (-4)));
- DONE;
-})
;; ??? This uses the fp unit, but has no type indicating that.
;; If we did that, this would either give a bogus latency or introduce
;; current setting.
(define_insn "toggle_sz"
[(set (reg:PSI FPSCR_REG)
- (xor:PSI (reg:PSI FPSCR_REG) (const_int 1048576)))]
+ (xor:PSI (reg:PSI FPSCR_REG) (const_int FPSCR_SZ)))
+ (set (reg:SI FPSCR_MODES_REG)
+ (unspec_volatile:SI [(const_int 0)] UNSPECV_FPSCR_MODES))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
"fschg"
[(set_attr "type" "fpscr_toggle") (set_attr "fp_set" "unknown")])
(define_insn "toggle_pr"
[(set (reg:PSI FPSCR_REG)
- (xor:PSI (reg:PSI FPSCR_REG) (const_int 524288)))]
+ (xor:PSI (reg:PSI FPSCR_REG) (const_int FPSCR_PR)))
+ (set (reg:SI FPSCR_MODES_REG)
+ (unspec_volatile:SI [(const_int 0)] UNSPECV_FPSCR_MODES))]
"TARGET_SH4A_FP"
"fpchg"
[(set_attr "type" "fpscr_toggle")])
{
if (TARGET_SH2E)
{
- expand_sf_binop (&gen_addsf3_i, operands);
+ emit_insn (gen_addsf3_i (operands[0], operands[1], operands[2]));
DONE;
}
})
[(set (match_operand:SF 0 "fp_arith_reg_operand" "=f")
(plus:SF (match_operand:SF 1 "fp_arith_reg_operand" "%0")
(match_operand:SF 2 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 3 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"TARGET_SH2E"
"fadd %2,%0"
[(set_attr "type" "fp")
{
if (TARGET_SH2E)
{
- expand_sf_binop (&gen_subsf3_i, operands);
+ emit_insn (gen_subsf3_i (operands[0], operands[1], operands[2]));
DONE;
}
})
[(set (match_operand:SF 0 "fp_arith_reg_operand" "=f")
(minus:SF (match_operand:SF 1 "fp_arith_reg_operand" "0")
(match_operand:SF 2 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 3 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"TARGET_SH2E"
"fsub %2,%0"
[(set_attr "type" "fp")
{
if (TARGET_SH2E)
{
- emit_insn (gen_mulsf3_i (operands[0], operands[1], operands[2],
- get_fpscr_rtx ()));
+ emit_insn (gen_mulsf3_i (operands[0], operands[1], operands[2]));
DONE;
}
})
[(set (match_operand:SF 0 "fp_arith_reg_operand" "=f")
(mult:SF (match_operand:SF 1 "fp_arith_reg_operand" "%0")
(match_operand:SF 2 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 3 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"TARGET_SH2E"
"fmul %2,%0"
[(set_attr "type" "fp")
{
if (TARGET_SH2E)
{
- emit_sf_insn (gen_fmasf4_i (operands[0], operands[1], operands[2],
- operands[3], get_fpscr_rtx ()));
+ emit_insn (gen_fmasf4_i (operands[0], operands[1], operands[2],
+ operands[3]));
DONE;
}
})
(fma:SF (match_operand:SF 1 "fp_arith_reg_operand" "w")
(match_operand:SF 2 "fp_arith_reg_operand" "f")
(match_operand:SF 3 "fp_arith_reg_operand" "0")))
- (use (match_operand:PSI 4 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"TARGET_SH2E"
"fmac %1,%2,%0"
[(set_attr "type" "fp")
(plus:SF (mult:SF (match_operand:SF 1 "fp_arith_reg_operand" "%w")
(match_operand:SF 2 "fp_arith_reg_operand" "f"))
(match_operand:SF 3 "arith_reg_operand" "0")))
- (use (match_operand:PSI 4 "fpscr_operand"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"TARGET_SH2E && flag_fp_contract_mode != FP_CONTRACT_OFF"
"fmac %1,%2,%0"
"&& can_create_pseudo_p ()"
[(parallel [(set (match_dup 0)
(fma:SF (match_dup 1) (match_dup 2) (match_dup 3)))
- (use (match_dup 4))])]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))])]
{
/* Change 'b * a + a' into 'a * b + a'.
This is better for register allocation. */
{
if (TARGET_SH2E)
{
- expand_sf_binop (&gen_divsf3_i, operands);
+ emit_insn (gen_divsf3_i (operands[0], operands[1], operands[2]));
DONE;
}
})
[(set (match_operand:SF 0 "fp_arith_reg_dest" "=f")
(div:SF (match_operand:SF 1 "fp_arith_reg_operand" "0")
(match_operand:SF 2 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 3 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"TARGET_SH2E"
"fdiv %2,%0"
[(set_attr "type" "fdiv")
(float:SF (match_operand:SI 1 "fpul_operand" "")))]
"TARGET_SH2E || TARGET_SHMEDIA_FPU"
{
- if (TARGET_SH4 || TARGET_SH2A_SINGLE)
+ if (!TARGET_SHMEDIA_FPU)
{
- emit_sf_insn (gen_floatsisf2_i4 (operands[0], operands[1],
- get_fpscr_rtx ()));
+ emit_insn (gen_floatsisf2_i4 (operands[0], operands[1]));
DONE;
}
})
(define_insn "floatsisf2_i4"
[(set (match_operand:SF 0 "fp_arith_reg_operand" "=f")
(float:SF (match_operand:SI 1 "fpul_operand" "y")))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
- "(TARGET_SH4 || TARGET_SH2A_SINGLE)"
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
+ "TARGET_SH2E"
"float %1,%0"
[(set_attr "type" "fp")
(set_attr "fp_mode" "single")])
-(define_insn "*floatsisf2_ie"
- [(set (match_operand:SF 0 "fp_arith_reg_operand" "=f")
- (float:SF (match_operand:SI 1 "fpul_operand" "y")))]
- "TARGET_SH2E && ! (TARGET_SH4 || TARGET_SH2A_SINGLE)"
- "float %1,%0"
- [(set_attr "type" "fp")])
-
(define_insn "fix_truncsfdi2"
[(set (match_operand:DI 0 "fp_arith_reg_dest" "=f")
(fix:DI (match_operand:SF 1 "fp_arith_reg_operand" "f")))]
(fix:SI (match_operand:SF 1 "fp_arith_reg_operand" "f")))]
"TARGET_SH2E || TARGET_SHMEDIA_FPU"
{
- if (TARGET_SH4 || TARGET_SH2A_SINGLE)
+ if (!TARGET_SHMEDIA_FPU)
{
- emit_sf_insn (gen_fix_truncsfsi2_i4 (operands[0], operands[1],
- get_fpscr_rtx ()));
+ emit_insn (gen_fix_truncsfsi2_i4 (operands[0], operands[1]));
DONE;
}
})
(define_insn "fix_truncsfsi2_i4"
[(set (match_operand:SI 0 "fpul_operand" "=y")
(fix:SI (match_operand:SF 1 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
- "(TARGET_SH4 || TARGET_SH2A_SINGLE)"
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
+ "TARGET_SH2E"
"ftrc %1,%0"
[(set_attr "type" "ftrc_s")
(set_attr "fp_mode" "single")])
-;; ??? This pattern is used nowhere. fix_truncsfsi2 always expands to
-;; fix_truncsfsi2_i4.
-;; (define_insn "fix_truncsfsi2_i4_2"
-;; [(set (match_operand:SI 0 "arith_reg_operand" "=r")
-;; (fix:SI (match_operand:SF 1 "arith_reg_operand" "f")))
-;; (use (reg:PSI FPSCR_REG))
-;; (clobber (reg:SI FPUL_REG))]
-;; "TARGET_SH4"
-;; "#"
-;; [(set_attr "length" "4")
-;; (set_attr "fp_mode" "single")])
-
-;;(define_split
-;; [(set (match_operand:SI 0 "arith_reg_operand" "=r")
-;; (fix:SI (match_operand:SF 1 "arith_reg_operand" "f")))
-;; (use (match_operand:PSI 2 "fpscr_operand" "c"))
-;; (clobber (reg:SI FPUL_REG))]
-;; "TARGET_SH4"
-;; [(parallel [(set (reg:SI FPUL_REG) (fix:SI (match_dup 1)))
-;; (use (match_dup 2))])
-;; (set (match_dup 0) (reg:SI FPUL_REG))])
-
-(define_insn "*fixsfsi"
- [(set (match_operand:SI 0 "fpul_operand" "=y")
- (fix:SI (match_operand:SF 1 "fp_arith_reg_operand" "f")))]
- "TARGET_SH2E && ! (TARGET_SH4 || TARGET_SH2A_SINGLE)"
- "ftrc %1,%0"
- [(set_attr "type" "fp")])
-
(define_insn "cmpgtsf_t"
- [(set (reg:SI T_REG)
- (gt:SI (match_operand:SF 0 "fp_arith_reg_operand" "f")
- (match_operand:SF 1 "fp_arith_reg_operand" "f")))]
- "TARGET_SH2E && ! (TARGET_SH4 || TARGET_SH2A_SINGLE)"
- "fcmp/gt %1,%0"
- [(set_attr "type" "fp_cmp")
- (set_attr "fp_mode" "single")])
-
-(define_insn "cmpeqsf_t"
- [(set (reg:SI T_REG)
- (eq:SI (match_operand:SF 0 "fp_arith_reg_operand" "f")
- (match_operand:SF 1 "fp_arith_reg_operand" "f")))]
- "TARGET_SH2E && ! (TARGET_SH4 || TARGET_SH2A_SINGLE)"
- "fcmp/eq %1,%0"
- [(set_attr "type" "fp_cmp")
- (set_attr "fp_mode" "single")])
-
-(define_insn "ieee_ccmpeqsf_t"
- [(set (reg:SI T_REG)
- (ior:SI (reg:SI T_REG)
- (eq:SI (match_operand:SF 0 "fp_arith_reg_operand" "f")
- (match_operand:SF 1 "fp_arith_reg_operand" "f"))))]
- "TARGET_SH2E && TARGET_IEEE && ! (TARGET_SH4 || TARGET_SH2A_SINGLE)"
-{
- return output_ieee_ccmpeq (insn, operands);
-}
- [(set_attr "length" "4")])
-
-
-(define_insn "cmpgtsf_t_i4"
[(set (reg:SI T_REG)
(gt:SI (match_operand:SF 0 "fp_arith_reg_operand" "f")
(match_operand:SF 1 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
- "(TARGET_SH4 || TARGET_SH2A_SINGLE)"
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
+ "TARGET_SH2E || TARGET_SH4 || TARGET_SH2A_SINGLE"
"fcmp/gt %1,%0"
[(set_attr "type" "fp_cmp")
(set_attr "fp_mode" "single")])
-(define_insn "cmpeqsf_t_i4"
+(define_insn "cmpeqsf_t"
[(set (reg:SI T_REG)
(eq:SI (match_operand:SF 0 "fp_arith_reg_operand" "f")
(match_operand:SF 1 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
- "(TARGET_SH4 || TARGET_SH2A_SINGLE)"
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
+ "TARGET_SH2E || TARGET_SH4 || TARGET_SH2A_SINGLE"
"fcmp/eq %1,%0"
[(set_attr "type" "fp_cmp")
(set_attr "fp_mode" "single")])
-(define_insn "*ieee_ccmpeqsf_t_4"
+(define_insn "ieee_ccmpeqsf_t"
[(set (reg:SI T_REG)
(ior:SI (reg:SI T_REG)
(eq:SI (match_operand:SF 0 "fp_arith_reg_operand" "f")
(match_operand:SF 1 "fp_arith_reg_operand" "f"))))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
- "TARGET_IEEE && (TARGET_SH4 || TARGET_SH2A_SINGLE)"
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
+ "TARGET_IEEE && TARGET_SH2E"
{
return output_ieee_ccmpeq (insn, operands);
}
{
if (TARGET_SH3E)
{
- expand_sf_unop (&gen_sqrtsf2_i, operands);
+ emit_insn (gen_sqrtsf2_i (operands[0], operands[1]));
DONE;
}
})
(define_insn "sqrtsf2_i"
[(set (match_operand:SF 0 "fp_arith_reg_operand" "=f")
(sqrt:SF (match_operand:SF 1 "fp_arith_reg_operand" "0")))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"TARGET_SH3E"
"fsqrt %0"
[(set_attr "type" "fdiv")
[(set (match_operand:SF 0 "fp_arith_reg_operand" "=f")
(div:SF (match_operand:SF 1 "immediate_operand" "i")
(sqrt:SF (match_operand:SF 2 "fp_arith_reg_operand" "0"))))
- (use (match_operand:PSI 3 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"TARGET_FPU_ANY && TARGET_FSRRA
&& operands[1] == CONST1_RTX (SFmode)"
"fsrra %0"
rtx fsca = gen_reg_rtx (V2SFmode);
rtx scale_reg = force_reg (SFmode, sh_fsca_sf2int ());
- emit_sf_insn (gen_mulsf3 (scaled, operands[2], scale_reg));
- emit_sf_insn (gen_fix_truncsfsi2 (truncated, scaled));
- emit_sf_insn (gen_fsca (fsca, truncated, sh_fsca_int2sf (),
- get_fpscr_rtx ()));
+ emit_insn (gen_mulsf3 (scaled, operands[2], scale_reg));
+ emit_insn (gen_fix_truncsfsi2 (truncated, scaled));
+ emit_insn (gen_fsca (fsca, truncated, sh_fsca_int2sf ()));
emit_move_insn (operands[0], gen_rtx_SUBREG (SFmode, fsca, 4));
emit_move_insn (operands[1], gen_rtx_SUBREG (SFmode, fsca, 0));
] UNSPEC_FSINA)
(unspec:SF [(mult:SF (float:SF (match_dup 1)) (match_dup 2))
] UNSPEC_FCOSA)))
- (use (match_operand:PSI 3 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"TARGET_FPU_ANY && TARGET_FSCA"
"fsca fpul,%d0"
"&& !fpul_operand (operands[1], SImode)"
gcc_assert (GET_CODE (x) == FIX || GET_CODE (x) == FLOAT);
x = XEXP (x, 0);
}
-
gcc_assert (x != NULL_RTX && fpul_operand (x, SImode));
- emit_insn (gen_fsca (operands[0], x, operands[2], operands[3]));
+ emit_insn (gen_fsca (operands[0], x, operands[2]));
DONE;
}
[(set_attr "type" "fsca")
{
if (TARGET_SH4 || TARGET_SH2A_DOUBLE)
{
- expand_df_binop (&gen_adddf3_i, operands);
+ emit_insn (gen_adddf3_i (operands[0], operands[1], operands[2]));
DONE;
}
})
[(set (match_operand:DF 0 "fp_arith_reg_operand" "=f")
(plus:DF (match_operand:DF 1 "fp_arith_reg_operand" "%0")
(match_operand:DF 2 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 3 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
"fadd %2,%0"
[(set_attr "type" "dfp_arith")
{
if (TARGET_SH4 || TARGET_SH2A_DOUBLE)
{
- expand_df_binop (&gen_subdf3_i, operands);
+ emit_insn (gen_subdf3_i (operands[0], operands[1], operands[2]));
DONE;
}
})
[(set (match_operand:DF 0 "fp_arith_reg_operand" "=f")
(minus:DF (match_operand:DF 1 "fp_arith_reg_operand" "0")
(match_operand:DF 2 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 3 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
"fsub %2,%0"
[(set_attr "type" "dfp_arith")
{
if (TARGET_SH4 || TARGET_SH2A_DOUBLE)
{
- expand_df_binop (&gen_muldf3_i, operands);
+ emit_insn (gen_muldf3_i (operands[0], operands[1], operands[2]));
DONE;
}
})
[(set (match_operand:DF 0 "fp_arith_reg_operand" "=f")
(mult:DF (match_operand:DF 1 "fp_arith_reg_operand" "%0")
(match_operand:DF 2 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 3 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
"fmul %2,%0"
[(set_attr "type" "dfp_mul")
{
if (TARGET_SH4 || TARGET_SH2A_DOUBLE)
{
- expand_df_binop (&gen_divdf3_i, operands);
+ emit_insn (gen_divdf3_i (operands[0], operands[1], operands[2]));
DONE;
}
})
[(set (match_operand:DF 0 "fp_arith_reg_operand" "=f")
(div:DF (match_operand:DF 1 "fp_arith_reg_operand" "0")
(match_operand:DF 2 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 3 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
"fdiv %2,%0"
[(set_attr "type" "dfdiv")
{
if (TARGET_SH4 || TARGET_SH2A_DOUBLE)
{
- emit_df_insn (gen_floatsidf2_i (operands[0], operands[1],
- get_fpscr_rtx ()));
+ emit_insn (gen_floatsidf2_i (operands[0], operands[1]));
DONE;
}
})
(define_insn "floatsidf2_i"
[(set (match_operand:DF 0 "fp_arith_reg_operand" "=f")
(float:DF (match_operand:SI 1 "fpul_operand" "y")))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
"float %1,%0"
[(set_attr "type" "dfp_conv")
{
if (TARGET_SH4 || TARGET_SH2A_DOUBLE)
{
- emit_df_insn (gen_fix_truncdfsi2_i (operands[0], operands[1],
- get_fpscr_rtx ()));
+ emit_insn (gen_fix_truncdfsi2_i (operands[0], operands[1]));
DONE;
}
})
(define_insn "fix_truncdfsi2_i"
[(set (match_operand:SI 0 "fpul_operand" "=y")
(fix:SI (match_operand:DF 1 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
"ftrc %1,%0"
[(set_attr "type" "dfp_conv")
(set_attr "dfp_comp" "no")
(set_attr "fp_mode" "double")])
-;; ??? This pattern is used nowhere. fix_truncdfsi2 always expands to
-;; fix_truncdfsi2_i.
-;; (define_insn "fix_truncdfsi2_i4"
-;; [(set (match_operand:SI 0 "arith_reg_operand" "=r")
-;; (fix:SI (match_operand:DF 1 "arith_reg_operand" "f")))
-;; (use (match_operand:PSI 2 "fpscr_operand" "c"))
-;; (clobber (reg:SI FPUL_REG))]
-;; "TARGET_SH4"
-;; "#"
-;; [(set_attr "length" "4")
-;; (set_attr "fp_mode" "double")])
-;;
-;; (define_split
-;; [(set (match_operand:SI 0 "arith_reg_operand" "=r")
-;; (fix:SI (match_operand:DF 1 "arith_reg_operand" "f")))
-;; (use (match_operand:PSI 2 "fpscr_operand" "c"))
-;; (clobber (reg:SI FPUL_REG))]
-;; "TARGET_SH4"
-;; [(parallel [(set (reg:SI FPUL_REG) (fix:SI (match_dup 1)))
-;; (use (match_dup 2))])
-;; (set (match_dup 0) (reg:SI FPUL_REG))])
-
(define_insn "cmpgtdf_t"
[(set (reg:SI T_REG)
(gt:SI (match_operand:DF 0 "fp_arith_reg_operand" "f")
(match_operand:DF 1 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
"fcmp/gt %1,%0"
[(set_attr "type" "dfp_cmp")
[(set (reg:SI T_REG)
(eq:SI (match_operand:DF 0 "fp_arith_reg_operand" "f")
(match_operand:DF 1 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
"fcmp/eq %1,%0"
[(set_attr "type" "dfp_cmp")
(ior:SI (reg:SI T_REG)
(eq:SI (match_operand:DF 0 "fp_arith_reg_operand" "f")
(match_operand:DF 1 "fp_arith_reg_operand" "f"))))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"TARGET_IEEE && (TARGET_SH4 || TARGET_SH2A_DOUBLE)"
{
return output_ieee_ccmpeq (insn, operands);
{
if (TARGET_SH4 || TARGET_SH2A_DOUBLE)
{
- expand_df_unop (&gen_sqrtdf2_i, operands);
+ emit_insn (gen_sqrtdf2_i (operands[0], operands[1]));
DONE;
}
})
(define_insn "sqrtdf2_i"
[(set (match_operand:DF 0 "fp_arith_reg_operand" "=f")
(sqrt:DF (match_operand:DF 1 "fp_arith_reg_operand" "0")))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
"fsqrt %0"
[(set_attr "type" "dfdiv")
{
if (TARGET_SH4 || TARGET_SH2A_DOUBLE)
{
- emit_df_insn (gen_extendsfdf2_i4 (operands[0], operands[1],
- get_fpscr_rtx ()));
+ emit_insn (gen_extendsfdf2_i4 (operands[0], operands[1]));
DONE;
}
})
(define_insn "extendsfdf2_i4"
[(set (match_operand:DF 0 "fp_arith_reg_operand" "=f")
(float_extend:DF (match_operand:SF 1 "fpul_operand" "y")))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
"fcnvsd %1,%0"
[(set_attr "type" "fp")
{
if (TARGET_SH4 || TARGET_SH2A_DOUBLE)
{
- emit_df_insn (gen_truncdfsf2_i4 (operands[0], operands[1],
- get_fpscr_rtx ()));
+ emit_insn (gen_truncdfsf2_i4 (operands[0], operands[1]));
DONE;
}
})
(define_insn "truncdfsf2_i4"
[(set (match_operand:SF 0 "fpul_operand" "=y")
(float_truncate:SF (match_operand:DF 1 "fp_arith_reg_operand" "f")))
- (use (match_operand:PSI 2 "fpscr_operand" "c"))]
+ (clobber (reg:SI FPSCR_STAT_REG))
+ (use (reg:SI FPSCR_MODES_REG))]
"(TARGET_SH4 || TARGET_SH2A_DOUBLE)"
"fcnvds %1,%0"
[(set_attr "type" "fp")
projects / gcc.git / commitdiff