Index: gcc-interface/decl.c
===================================================================
--- gcc-interface/decl.c	(revision 172166)
+++ gcc-interface/decl.c	(working copy)
@@ -4226,6 +4226,9 @@ gnat_to_gnu_entity (Entity_Id gnat_entit
 		  = create_field_decl (gnu_param_name, gnu_param_type,
 				       gnu_return_type, NULL_TREE, NULL_TREE,
 				       0, 0);
+		/* Set a minimum alignment to speed up accesses.  */
+		if (DECL_ALIGN (gnu_field) < TYPE_ALIGN (gnu_return_type))
+		  DECL_ALIGN (gnu_field) = TYPE_ALIGN (gnu_return_type);
 		Sloc_to_locus (Sloc (gnat_param),
 			       &DECL_SOURCE_LOCATION (gnu_field));
 		DECL_CHAIN (gnu_field) = gnu_field_list;