diff options
-rw-r--r-- | src/vhdl/vhdl-scanner.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-scanner.adb b/src/vhdl/vhdl-scanner.adb index 0527cd131..a6c7b64dd 100644 --- a/src/vhdl/vhdl-scanner.adb +++ b/src/vhdl/vhdl-scanner.adb @@ -771,7 +771,7 @@ package body Vhdl.Scanner is end loop; end Add_One_To_Carries; begin - pragma Assert (Source (Pos) = '"'); + pragma Assert (Source (Pos) = '"' or Source (Pos) = '%'); Pos := Pos + 1; Length := 0; Id := Create_String8; |