diff options
| author | Bob Duff <duff@adacore.com> | 2016-04-18 10:48:33 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-18 12:48:33 +0200 |
| commit | ea1027992d9cc5786beb54439cf310c647e416c5 (patch) | |
| tree | 2c662c1707d15631c783d9d9a863a520b4ba13c7 /gcc/ada/stringt.adb | |
| parent | bd717ec9b7edb898ec138f58a14821e776bb4fa3 (diff) | |
| download | gcc-ea1027992d9cc5786beb54439cf310c647e416c5.zip gcc-ea1027992d9cc5786beb54439cf310c647e416c5.tar.gz gcc-ea1027992d9cc5786beb54439cf310c647e416c5.tar.bz2 | |
sinput.ads, sinput.adb (Build_Location_String): Take a parameter instead of using a global variable.
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.
From-SVN: r235126
Diffstat (limited to 'gcc/ada/stringt.adb')
| -rw-r--r-- | gcc/ada/stringt.adb | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/gcc/ada/stringt.adb b/gcc/ada/stringt.adb index 5a0c89c..b4d8562 100644 --- a/gcc/ada/stringt.adb +++ b/gcc/ada/stringt.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -30,7 +30,6 @@ ------------------------------------------------------------------------------ with Alloc; -with Namet; use Namet; with Output; use Output; with Table; @@ -307,14 +306,11 @@ package body Stringt is -- String_From_Name_Buffer -- ----------------------------- - function String_From_Name_Buffer return String_Id is + function String_From_Name_Buffer + (Buf : Bounded_String := Global_Name_Buffer) return String_Id is begin Start_String; - - for J in 1 .. Name_Len loop - Store_String_Char (Get_Char_Code (Name_Buffer (J))); - end loop; - + Store_String_Chars (+Buf); return End_String; end String_From_Name_Buffer; |