From 9e29a2867545769b26aba2264303056bbf423f83 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 16 Nov 2018 20:30:23 +0100
Subject: scanner: do not return after '#'.

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

(limited to 'src/vhdl')

diff --git a/src/vhdl/scanner.adb b/src/vhdl/scanner.adb
index 86c039bb2..1a5637e21 100644
--- a/src/vhdl/scanner.adb
+++ b/src/vhdl/scanner.adb
@@ -2038,6 +2038,7 @@ package body Scanner is
                               & "must be preceded by a base");
             --  Skip.
             Pos := Pos + 1;
+            goto Again;
          when '"' =>
             Scan_String;
             return;
-- 
cgit v1.2.3