Re: 3.1 branch Ada cross report

[Jim Wilson <wilson@redhat.com>]

>i960-rtems - 
>	../../../gcc-to-merge/gcc/ada/utils.c: In function
>`finish_record_type':
>	../../../gcc-to-merge/gcc/ada/utils.c:868: `record_size' undeclared
>(first use in this function)

This is an Ada front end bug.  You will get this error on most any target that
defines ROUND_TYPE_SIZE, as it is using the undeclared record_size variable
inside a section of code surrounded by #ifdef ROUND_TYPE_SIZE.

This looks like a simple typo.  I think the correct fix is this.
I have made no attempt to verify this fix.

2002-05-01  Jim Wilson  <wilson@redhat.com>

	* ada/utils.c (finish_record_type): Change record_size to record_type.

Index: utils.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/utils.c,v
retrieving revision 1.17
diff -p -r1.17 utils.c
*** utils.c	18 Apr 2002 17:53:47 -0000	1.17
--- utils.c	1 May 2002 21:03:33 -0000
*************** finish_record_type (record_type, fieldli
*** 853,859 ****
  
  #ifdef ROUND_TYPE_SIZE
    size = ROUND_TYPE_SIZE (record_type, size, TYPE_ALIGN (record_type));
!   size_unit = ROUND_TYPE_SIZE_UNIT (record_size, size_unit,
  				    TYPE_ALIGN (record_type) / BITS_PER_UNIT);
  #else
    size = round_up (size, TYPE_ALIGN (record_type));
--- 853,859 ----
  
  #ifdef ROUND_TYPE_SIZE
    size = ROUND_TYPE_SIZE (record_type, size, TYPE_ALIGN (record_type));
!   size_unit = ROUND_TYPE_SIZE_UNIT (record_type, size_unit,
  				    TYPE_ALIGN (record_type) / BITS_PER_UNIT);
  #else
    size = round_up (size, TYPE_ALIGN (record_type));