diff options
Diffstat (limited to 'gcc/ada/errout.ads')
-rw-r--r-- | gcc/ada/errout.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index e9c4eb47f7f..d3de0ad9ff3 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -68,6 +68,10 @@ package Errout is -- error message tag. The -gnatw.d switch sets this flag True, -gnatw.D -- sets this flag False. + Current_Node : Node_Id := Empty; + -- Used by Error_Msg as a default Node_Id. + -- Relevant only when Opt.Include_Subprogram_In_Messages is set. + ----------------------------------- -- Suppression of Error Messages -- ----------------------------------- |