diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-02 15:28:12 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-02 15:28:12 +0000 |
| commit | 1d95eb48fa9e0996564cfdbbe0518f34a0bcb42b (patch) | |
| tree | 71a15c33ec39eead3557d27d7b766e39978f5307 /gcc/ada/sem_util.ads | |
| parent | 1affd91405f49099c3dc9dee20d2f2ae6b63b0c2 (diff) | |
| download | gcc-1d95eb48fa9e0996564cfdbbe0518f34a0bcb42b.tar.gz | |
2011-08-02 Yannick Moy <moy@adacore.com>
* sem_ch3.adb, sem_ch5.adb, sem_ch9.adb, sem_util.adb, sem_util.ads,
sem_res.adb, sem_ch2.adb, sem_ch4.adb, sem_ch6.adb,
sem_ch11.adb: Protect call to Current_Subprogram which might be costly
when repeated. Rename Current_Subprogram_Is_Not_In_ALFA into
Mark_Non_ALFA_Subprogram_Body.
Split body of Mark_Non_ALFA_Subprogram_Body to get body small and
inlined.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177182 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 9fcd6c1dcff..c533b1d054f 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -277,7 +277,7 @@ package Sem_Util is -- Current_Scope is returned. The returned value is Empty if this is called -- from a library package which is not within any subprogram. - procedure Current_Subprogram_Body_Is_Not_In_ALFA; + procedure Mark_Non_ALFA_Subprogram_Body; -- If Current_Subprogram is not Empty, set its flag Body_Is_In_ALFA to -- False, otherwise do nothing. |