diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2021-05-20 04:21:39 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-07 16:23:17 +0000 |
| commit | 9e76a063f11197aee9667b59ed8aa071e83237aa (patch) | |
| tree | 5db0ffa36458da011e97cdf9af3190acc67362e8 /gcc | |
| parent | 347d939028d648d55e72738c7500743ddcc70147 (diff) | |
| download | gcc-9e76a063f11197aee9667b59ed8aa071e83237aa.zip gcc-9e76a063f11197aee9667b59ed8aa071e83237aa.tar.gz gcc-9e76a063f11197aee9667b59ed8aa071e83237aa.tar.bz2 | |
[Ada] Minor code cleanup
gcc/ada/
* libgnat/g-debpoo.adb (Code_Address_For_Allocate_End): Default
Initialize.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/libgnat/g-debpoo.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/libgnat/g-debpoo.adb b/gcc/ada/libgnat/g-debpoo.adb index 40e5279..0092139 100644 --- a/gcc/ada/libgnat/g-debpoo.adb +++ b/gcc/ada/libgnat/g-debpoo.adb @@ -362,7 +362,7 @@ package body GNAT.Debug_Pools is -- These procedures are used as markers when computing the stacktraces, -- so that addresses in the debug pool itself are not reported to the user. - Code_Address_For_Allocate_End : System.Address; + Code_Address_For_Allocate_End : System.Address := System.Null_Address; Code_Address_For_Deallocate_End : System.Address; Code_Address_For_Dereference_End : System.Address; -- Taking the address of the above procedures will not work on some |