Index: gcc/config/s390/s390.md
===================================================================
*** gcc/config/s390/s390.md.orig	2009-01-13 15:37:00.000000000 +0100
--- gcc/config/s390/s390.md	2009-01-13 15:59:19.000000000 +0100
***************
*** 3378,3404 ****
    [(set_attr "op_type" "RI")
     (set_attr "z10prop" "z10_super_E1")])
  
! 
! (define_insn "*insv<mode>_reg_extimm"
    [(set (zero_extract:P (match_operand:P 0 "register_operand" "+d")
  			(const_int 32)
  			(match_operand 1 "const_int_operand" "n"))
  	(match_operand:P 2 "const_int_operand" "n"))]
    "TARGET_EXTIMM
!    && INTVAL (operands[1]) >= 0
!    && INTVAL (operands[1]) < BITS_PER_WORD
!    && INTVAL (operands[1]) % 32 == 0"
! {
!   switch (BITS_PER_WORD - INTVAL (operands[1]))
!     {
!       case 64: return "iihf\t%0,%o2"; break;
!       case 32: return "iilf\t%0,%o2"; break;
!       default: gcc_unreachable();
!     }
! }
    [(set_attr "op_type" "RIL")
     (set_attr "z10prop" "z10_fwd_E1")])
  
  
  ;
  ; extendsidi2 instruction pattern(s).
--- 3378,3404 ----
    [(set_attr "op_type" "RI")
     (set_attr "z10prop" "z10_super_E1")])
  
! (define_insn "*insv_h<mode>_reg_extimm"
    [(set (zero_extract:P (match_operand:P 0 "register_operand" "+d")
  			(const_int 32)
  			(match_operand 1 "const_int_operand" "n"))
  	(match_operand:P 2 "const_int_operand" "n"))]
    "TARGET_EXTIMM
!    && BITS_PER_WORD - INTVAL (operands[1]) == 64"
!   "iihf\t%0,%o2"
    [(set_attr "op_type" "RIL")
     (set_attr "z10prop" "z10_fwd_E1")])
  
+ (define_insn "*insv_l<mode>_reg_extimm"
+   [(set (zero_extract:P (match_operand:P 0 "register_operand" "+d")
+ 			(const_int 32)
+ 			(match_operand 1 "const_int_operand" "n"))
+ 	(match_operand:P 2 "const_int_operand" "n"))]
+   "TARGET_EXTIMM
+    && BITS_PER_WORD - INTVAL (operands[1]) == 32"
+   "iilf\t%0,%o2"
+   [(set_attr "op_type" "RIL")
+    (set_attr "z10prop" "z10_fwd_A1")])
  
  ;
  ; extendsidi2 instruction pattern(s).


