diff options
| author | Bob Duff <duff@adacore.com> | 2021-05-17 06:28:18 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-06 14:46:59 +0000 |
| commit | 5db3ea9d748f00e55ddcb72d0720526824eeb4a9 (patch) | |
| tree | bf0fa76e12d329b076af5a14c89aa3ed7eaa4aac /gcc | |
| parent | 09768159b3f4b5343848d12d6cd5e95b574d8cca (diff) | |
| download | gcc-5db3ea9d748f00e55ddcb72d0720526824eeb4a9.zip gcc-5db3ea9d748f00e55ddcb72d0720526824eeb4a9.tar.gz gcc-5db3ea9d748f00e55ddcb72d0720526824eeb4a9.tar.bz2 | |
[Ada] Initialize Current_Error_Node
gcc/ada/
* atree.ads (Current_Error_Node): Initialize to Empty.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/atree.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index 0995b94..42df950 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -130,7 +130,7 @@ package Atree is -- Current_Error_Node is also used for other purposes. See, for example, -- Rtsfind. - Current_Error_Node : Node_Id; + Current_Error_Node : Node_Id := Empty; -- Node to place compiler abort messages ------------------ |