From 2681711a47f7ada17aae9da74ecfc5af53262b6b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 31 Oct 2014 05:22:09 +0100
Subject: Handle delimited comments.

---
 errorout.adb | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'errorout.adb')

diff --git a/errorout.adb b/errorout.adb
index af6977d31..1652bb43e 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
-- 
cgit v1.2.3