diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-03-20 07:46:28 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-03-20 07:46:28 +0100 |
| commit | 80b8086852fae98de9c976dd82747d61b28f074b (patch) | |
| tree | 388e4efe8b303256d627585d6f2e6161eca51e18 /src/vhdl | |
| parent | db9d2b8196cb642eb7b3a5ee34ed7f317848ff55 (diff) | |
| download | ghdl-80b8086852fae98de9c976dd82747d61b28f074b.tar.gz ghdl-80b8086852fae98de9c976dd82747d61b28f074b.tar.bz2 ghdl-80b8086852fae98de9c976dd82747d61b28f074b.zip | |
vhdl-scanner.adb: avoid a possible crash
Diffstat (limited to 'src/vhdl')
| -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 5f7b735f2..791138164 100644 --- a/src/vhdl/vhdl-scanner.adb +++ b/src/vhdl/vhdl-scanner.adb @@ -1647,7 +1647,7 @@ package body Vhdl.Scanner is when Special_Character => -- The current character is legal in an identifier. if C = '_' then - if I = 1 then + if I = F then Error_Msg_Option ("an identifier cannot start with an underscore"); return; |