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_ch2.adb | |
| 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_ch2.adb')
| -rw-r--r-- | gcc/ada/sem_ch2.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch2.adb b/gcc/ada/sem_ch2.adb index 2a021d2d787..38003e22262 100644 --- a/gcc/ada/sem_ch2.adb +++ b/gcc/ada/sem_ch2.adb @@ -81,7 +81,7 @@ package body Sem_Ch2 is and then Is_Object (Entity (N)) and then not Is_In_ALFA (Entity (N)) then - Current_Subprogram_Body_Is_Not_In_ALFA; + Mark_Non_ALFA_Subprogram_Body; end if; end if; end Analyze_Identifier; |