diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b2aecad6bf2f..dce151b45cd1 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+Thu Nov 15 18:16:17 2001  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
+
+	* trans.c, utils2.c: Remove PALIGN parameter to get_inner_reference.
+
 2001-11-15  Neil Booth  <neil@daikokuya.demon.co.uk>
 
 	* misc.c (gnat_init): Change prototype.  Include the
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index daa2469dc94b..7db952eb4d9c 100644
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -6,7 +6,7 @@
  *                                                                          *
  *                          C Implementation File                           *
  *                                                                          *
- *                            $Revision$
+ *                            $Revision: 1.4 $
  *                                                                          *
  *          Copyright (C) 1992-2001, Free Software Foundation, Inc.         *
  *                                                                          *
@@ -1421,7 +1421,6 @@ tree_transform (gnat_node)
 	      tree gnu_inner;
 	      enum machine_mode mode;
 	      int unsignedp, volatilep;
-	      unsigned int alignment;
 
 	      gnu_result_type = get_unpadded_type (Etype (gnat_node));
 	      gnu_prefix = remove_conversions (gnu_prefix);
@@ -1444,7 +1443,7 @@ tree_transform (gnat_node)
 		gigi_abort (310);
 
 	      get_inner_reference (gnu_prefix, &bitsize, &bitpos, &gnu_offset,
-				   &mode, &unsignedp, &volatilep, &alignment);
+				   &mode, &unsignedp, &volatilep);
 
 
 	      if (TREE_CODE (gnu_prefix) == COMPONENT_REF)
diff --git a/gcc/ada/utils2.c b/gcc/ada/utils2.c
index a5363a71af34..e9b5429520bc 100644
--- a/gcc/ada/utils2.c
+++ b/gcc/ada/utils2.c
@@ -6,7 +6,7 @@
  *                                                                          *
  *                          C Implementation File                           *
  *                                                                          *
- *                            $Revision$
+ *                            $Revision: 1.3 $
  *                                                                          *
  *          Copyright (C) 1992-2001, Free Software Foundation, Inc.         *
  *                                                                          *
@@ -1164,11 +1164,9 @@ build_unary_op (op_code, result_type, operand)
 	      tree offset, inner;
 	      enum machine_mode mode;
 	      int unsignedp, volatilep;
-	      unsigned int alignment;
 
 	      inner = get_inner_reference (operand, &bitsize, &bitpos, &offset,
-					   &mode, &unsignedp, &volatilep,
-					   &alignment);
+					   &mode, &unsignedp, &volatilep);
 
 	      /* If INNER is a padding type whose field has a self-referential
 		 size, convert to that inner type.  We know the offset is zero