diff options
Diffstat (limited to 'gcc/ada/errout.adb')
| -rw-r--r-- | gcc/ada/errout.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index 84958a7..7991f78 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -301,12 +301,12 @@ package body Errout is procedure Error_Msg (Msg : String; Flag_Location : Source_Ptr) is begin - Error_Msg (Msg, To_Span (Flag_Location), Current_Node); + Error_Msg (Msg, To_Span (Flag_Location), Empty); end Error_Msg; procedure Error_Msg (Msg : String; Flag_Span : Source_Span) is begin - Error_Msg (Msg, Flag_Span, Current_Node); + Error_Msg (Msg, Flag_Span, Empty); end Error_Msg; procedure Error_Msg |