diff options
Diffstat (limited to 'gcc/ada/errout.adb')
| -rw-r--r-- | gcc/ada/errout.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index fb1142e..5183289 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -1408,6 +1408,12 @@ package body Errout is Warnings.Table (Warnings.Last).Start := Source_Ptr'First; Warnings.Table (Warnings.Last).Stop := Source_Ptr'Last; end if; + + -- Set all (???) the error nodes to Empty: + + Error_Msg_Node_1 := Empty; + Error_Msg_Node_2 := Empty; + end Initialize; ----------------- |