diff options
Diffstat (limited to 'errorout.adb')
| -rw-r--r-- | errorout.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/errorout.adb b/errorout.adb index af6977d..1652bb4 100644 --- a/errorout.adb +++ b/errorout.adb @@ -239,6 +239,14 @@ package body Errorout is Put_Line (Msg); end Error_Msg_Scan; + procedure Error_Msg_Scan (Msg: String; Loc : Location_Type) is + begin + Nbr_Errors := Nbr_Errors + 1; + Disp_Location (Loc); + Put (' '); + Put_Line (Msg); + end Error_Msg_Scan; + -- Disp a message during scan. procedure Warning_Msg_Scan (Msg: String) is begin |