From d39ab1032e8b0054ff608e70a97d347a5ab362d1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 14 Nov 2018 18:24:44 +0100
Subject: scanner: avoid to raise exception.

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

(limited to 'src/vhdl')

diff --git a/src/vhdl/scanner.adb b/src/vhdl/scanner.adb
index 8a8150b89..9a2b488da 100644
--- a/src/vhdl/scanner.adb
+++ b/src/vhdl/scanner.adb
@@ -2017,9 +2017,9 @@ package body Scanner is
             return;
          when '#' =>
             Error_Msg_Scan ("'#' is used for based literals and "
-                            & "must be preceded by a base");
-            -- Cannot easily continue.
-            raise Compilation_Error;
+                              & "must be preceded by a base");
+            --  Skip.
+            Pos := Pos + 1;
          when '"' =>
             Scan_String;
             return;
-- 
cgit v1.2.3