diff options
| author | Tristan Gingold | 2014-10-31 05:22:09 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-10-31 05:22:09 +0100 |
| commit | 2681711a47f7ada17aae9da74ecfc5af53262b6b (patch) | |
| tree | c053156c6dbd0fca390a5a2e75b12e9a3670f89b /errorout.adb | |
| parent | bcf093a11bc33d82c43c0b7b5fa714665b199fd4 (diff) | |
| download | ghdl-2681711a47f7ada17aae9da74ecfc5af53262b6b.tar.gz ghdl-2681711a47f7ada17aae9da74ecfc5af53262b6b.tar.bz2 ghdl-2681711a47f7ada17aae9da74ecfc5af53262b6b.zip | |
Handle delimited comments.
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 |