[Ada] fix bug box with inlining

[Arnaud Charlet <charlet at adacore dot com>]

Tested under i686-linux, committed on mainline.

Fix a bug box when compiling with inlining
Test case: gcc -c -gnatn t.adb
--
package S is
   type S_Type is new String;
   function "&" (Left  : Boolean; Right : String) return S_Type;
end S;
package body T is
   use S;
   function P (B : Boolean; I : String) return S_Type renames "&";
   function Q (B : Boolean; I : String) return S_Type is
   begin
      return P (B, I);
   end Q;
end T;
with S;
package T is
   function P (B : Boolean; I : String) return S.S_Type;
   pragma Inline (P);
   function Q (B : Boolean; I : String) return S.S_Type;
end T;

2005-03-17  Ed Schonberg  <schonberg@adacore.com>

	* exp_ch6.adb (Expand_Inlined_Call): handle the case when the renamed
	entity is an operator.

Attachment: difs.8
Description: Text document