diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index f2cb5a31f155..05261bc0ef0c 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,8 +1,13 @@
+Wed Sep 10 14:58:40 1997  Jim Wilson  <wilson@cygnus.com>
+
+	* emit-rtl.c (gen_lowpart_common): For a SUBREG, add in word when
+	create new subreg.
+
 Wed Sep 10 15:19:22 1997  Jeffrey A Law  (law@cygnus.com)
 
 	* config.sub: Accept 'amigados' for backward compatability.
 
-Wed Sep 10 14:05:08 1997  Jim Wilson  <wilson@cygnus.com>
+Wed Sep 10 14:05:08 1997  H.J. Lu  (hjl@gnu.ai.mit.edu)
 
 	* Makefile.in (testsuite/site.exp): New target.
 	(check-gcc, check-g++): Depend on testsuite/site.exp.
diff --git a/gcc/emit-rtl.c b/gcc/emit-rtl.c
index 86948de9905d..cc2834be1beb 100644
--- a/gcc/emit-rtl.c
+++ b/gcc/emit-rtl.c
@@ -664,7 +664,7 @@ gen_lowpart_common (mode, x)
 	       || GET_MODE_SIZE (mode) == GET_MODE_UNIT_SIZE (GET_MODE (x))))
     return (GET_MODE (SUBREG_REG (x)) == mode && SUBREG_WORD (x) == 0
 	    ? SUBREG_REG (x)
-	    : gen_rtx (SUBREG, mode, SUBREG_REG (x), SUBREG_WORD (x)));
+	    : gen_rtx (SUBREG, mode, SUBREG_REG (x), SUBREG_WORD (x) + word));
   else if (GET_CODE (x) == REG)
     {
       /* If the register is not valid for MODE, return 0.  If we don't