diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index fc72b012312..21613b52ef7 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-18  Roger Sayle  <roger@eyesopen.com>
+
+	* config/pa/pa.md (muldi3): Avoid invalid sharing of SUBREG RTXs.
+
 2003-01-17  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* ra-build.c (undef_to_size_word): Avoid `switch' warning.
diff --git a/gcc/config/pa/pa.md b/gcc/config/pa/pa.md
index 00ea6e9b49d..8949a1abc74 100644
--- a/gcc/config/pa/pa.md
+++ b/gcc/config/pa/pa.md
@@ -4135,7 +4135,7 @@
   emit_insn (gen_umulsidi3 (cross_product2, op2l, op1r));
 
   /* Emit a multiply for the low sub-word.  */
-  emit_insn (gen_umulsidi3 (low_product, op2r, op1r));
+  emit_insn (gen_umulsidi3 (low_product, copy_rtx (op2r), copy_rtx (op1r)));
 
   /* Sum the cross products and shift them into proper position.  */
   emit_insn (gen_adddi3 (cross_scratch, cross_product1, cross_product2));