diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-18 10:48:33 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-18 10:48:33 +0000 |
| commit | 582f02f41fc95911fa17ee46823814d6cdad61a5 (patch) | |
| tree | 2c662c1707d15631c783d9d9a863a520b4ba13c7 /gcc/ada/exp_intr.adb | |
| parent | c175273ca62fb80a836f098794d4cfd64c517dec (diff) | |
| download | gcc-582f02f41fc95911fa17ee46823814d6cdad61a5.tar.gz | |
2016-04-18 Bob Duff <duff@adacore.com>
* sinput.ads, sinput.adb (Build_Location_String): Take a
parameter instead of using a global variable. The function
version no longer destroys the Name_Buffer.
* stringt.ads, stringt.adb (String_From_Name_Buffer): Take a
parameter, which defaults to the Global_Name_Buffer, so some
calls can avoid the global.
* exp_ch11.adb, exp_intr.adb: Use new interfaces above
to avoid using globals. All but one call to Build_Location_String
avoids the global. Only one call to String_From_Name_Buffer
avoids it.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235126 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_intr.adb')
| -rw-r--r-- | gcc/ada/exp_intr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb index f0307821c08..8b2d1f2bdb7 100644 --- a/gcc/ada/exp_intr.adb +++ b/gcc/ada/exp_intr.adb @@ -145,7 +145,7 @@ package body Exp_Intr is (Reference_Name (Get_Source_File_Index (Loc))); when Name_Source_Location => - Build_Location_String (Loc); + Build_Location_String (Global_Name_Buffer, Loc); when Name_Enclosing_Entity => |