===================================================================
@@ -27,6 +27,7 @@ along with GCC; see the file COPYING3.
#include "c-ada-spec.h"
#include "fold-const.h"
#include "c-pragma.h"
+#include "diagnostic.h"
#include "stringpool.h"
#include "attribs.h"
@@ -2700,6 +2701,16 @@ dump_ada_declaration (pretty_printer *bu
return 1;
}
+ /* ??? Packed record layout is not supported. */
+ if (TYPE_PACKED (TREE_TYPE (t)))
+ {
+ warning_at (DECL_SOURCE_LOCATION (t), 0,
+ "unsupported record layout");
+ pp_string (buffer, "pragma Compile_Time_Warning (True, ");
+ pp_string (buffer, "\"probably incorrect record layout\");");
+ newline_and_indent (buffer, spc);
+ }
+
if (orig && TYPE_NAME (orig))
pp_string (buffer, "subtype ");
else