diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-06-01 07:57:54 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-06-01 07:57:54 +0200 |
commit | ff952bb0f229f2d3256c83da3a4ac2f6735fdd14 (patch) | |
tree | 0d0733076a7d93f192f807a19ffd9690539b9818 /src | |
parent | 30b88e21526330c47a52b3c83d661102f6d426ea (diff) | |
download | ghdl-ff952bb0f229f2d3256c83da3a4ac2f6735fdd14.tar.gz ghdl-ff952bb0f229f2d3256c83da3a4ac2f6735fdd14.tar.bz2 ghdl-ff952bb0f229f2d3256c83da3a4ac2f6735fdd14.zip |
vhdl-scanner: adjust assertion. For #2070
Diffstat (limited to 'src')
-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; |