diff options
| -rw-r--r-- | gcc/ada/errout.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/errout.ads | 7 | ||||
| -rw-r--r-- | gcc/ada/sem_prag.adb | 8 |
3 files changed, 10 insertions, 8 deletions
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index 4622290..f10539d 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -325,12 +325,13 @@ package body Errout is procedure Error_Msg (Msg : String; Flag_Location : Source_Ptr; + N : Node_Id; Is_Compile_Time_Pragma : Boolean) is Save_Is_Compile_Time_Msg : constant Boolean := Is_Compile_Time_Msg; begin Is_Compile_Time_Msg := Is_Compile_Time_Pragma; - Error_Msg (Msg, To_Span (Flag_Location), Current_Node); + Error_Msg (Msg, To_Span (Flag_Location), N); Is_Compile_Time_Msg := Save_Is_Compile_Time_Msg; end Error_Msg; diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index 089da86..f0e3f5d 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -738,10 +738,11 @@ package Errout is procedure Error_Msg (Msg : String; Flag_Location : Source_Ptr; + N : Node_Id; Is_Compile_Time_Pragma : Boolean); - -- Same as Error_Msg (String, Source_Ptr) except Is_Compile_Time_Pragma - -- lets the caller specify whether this is a Compile_Time_Warning or - -- Compile_Time_Error pragma. + -- Same as Error_Msg (String, Source_Ptr, Node_Id) except + -- Is_Compile_Time_Pragma lets the caller specify whether this is a + -- Compile_Time_Warning or Compile_Time_Error pragma. procedure Error_Msg_S (Msg : String); -- Output a message at current scan pointer location. This routine can be diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index dfc415d..9646e89 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -33145,11 +33145,11 @@ package body Sem_Prag is if Force then if Cont = False then Error_Msg - ("<<~!!", Eloc, Is_Compile_Time_Pragma => True); + ("<<~!!", Eloc, N, Is_Compile_Time_Pragma => True); Cont := True; else Error_Msg - ("\<<~!!", Eloc, Is_Compile_Time_Pragma => True); + ("\<<~!!", Eloc, N, Is_Compile_Time_Pragma => True); end if; -- Error, rather than warning, or in a body, so we do not @@ -33161,11 +33161,11 @@ package body Sem_Prag is else if Cont = False then Error_Msg - ("<<~", Eloc, Is_Compile_Time_Pragma => True); + ("<<~", Eloc, N, Is_Compile_Time_Pragma => True); Cont := True; else Error_Msg - ("\<<~", Eloc, Is_Compile_Time_Pragma => True); + ("\<<~", Eloc, N, Is_Compile_Time_Pragma => True); end if; end if; |