sem_util.ads, [...] (In_Subprogram): New function.
authorSamuel Tardieu <sam@rfc1149.net>
Mon, 14 Apr 2008 12:08:31 +0000 (12:08 +0000)
committerSamuel Tardieu <sam@gcc.gnu.org>
Mon, 14 Apr 2008 12:08:31 +0000 (12:08 +0000)
commit17972da719db3ced8d90b01beed66b597f07f806
treec41b3f7f63d76e906c54bbe9a251a6d3ed8f6c3a
parente965b4534fb33510b35640bcc36873d398817374
sem_util.ads, [...] (In_Subprogram): New function.

    gcc/ada/
* sem_util.ads, sem_util.adb (In_Subprogram): New function.
* sem_attr.adb (Analyze_Attribute, Attribute_Old case): Use it.

    gcc/testsuite/
* gnat.dg/deep_old.adb: New.

From-SVN: r134260
gcc/ada/ChangeLog
gcc/ada/sem_attr.adb
gcc/ada/sem_util.adb
gcc/ada/sem_util.ads
gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/deep_old.adb [new file with mode: 0644]