diff options
Diffstat (limited to 'errorout.ads')
| -rw-r--r-- | errorout.ads | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/errorout.ads b/errorout.ads index 35a653115..ce694fe37 100644 --- a/errorout.ads +++ b/errorout.ads @@ -58,6 +58,7 @@ package Errorout is -- Disp a message during scan. -- The current location is automatically displayed before the message. procedure Error_Msg_Scan (Msg: String); + procedure Error_Msg_Scan (Msg: String; Loc : Location_Type); procedure Warning_Msg_Scan (Msg: String); -- Disp a message during parse |