From 42765ddc6dcd3461a15e1c20e623edad81f2915b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 14 Nov 2018 18:24:07 +0100
Subject: scanner: detect EOF in strings

---
 src/vhdl/scanner.adb | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src')

diff --git a/src/vhdl/scanner.adb b/src/vhdl/scanner.adb
index f91357922..8a8150b89 100644
--- a/src/vhdl/scanner.adb
+++ b/src/vhdl/scanner.adb
@@ -453,6 +453,13 @@ package body Scanner is
                Error_Msg_Scan ("format effector not allowed in a string");
                exit;
             when Invalid =>
+               if C = Files_Map.EOT
+                 and then Pos >= Current_Context.File_Len
+               then
+                  Error_Msg_Scan ("string not terminated at end of file");
+                  exit;
+               end if;
+
                Error_Msg_Scan
                  ("invalid character not allowed, even in a string");
             when Graphic_Character =>
-- 
cgit v1.2.3