committed: Ada fix for convert_move ICE

[Arnaud Charlet <charlet at ACT-Europe dot FR>]

Tested on i686-linux using yesterday's tree.
Today's tree does not build with Ada.

This patch fixes an ICE in convert_move on the following test case:

  package Lists is

      type Item_T;
      type Item_P is access constant Item_T;

      type Item_T is record
         Chain : Item_P;
      end record;
      for Item_T use record
         Chain at 28 range 0 .. 31;
      end record;

      for Item_T'Size use 256;

  end Lists;

  with Lists; use Lists;

  procedure PP is
      V   : Item_T;
      Ptr : Item_P;
  begin
      V := Ptr.all;
  end;

  $ gcc -c pp.adb


2004-09-21  Olivier Hainque  <hainque@act-europe.fr>

	convert_move ICE on record assignment

	* decl.c (gnat_to_gnu_entity) <E_General_Access_Type>: Check for a
	dummy designated type via TYPE_MODE instead of COMPLETE_TYPE_P. This
	ensures proper handling of types with rep clauses, which might have
	their TYPE_SIZE set already.

Attachment: difs.gnat
Description: Text document