diff options
| -rw-r--r-- | src/vhdl/scanner.adb | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/src/vhdl/scanner.adb b/src/vhdl/scanner.adb index d9039fcc6..43e33ae63 100644 --- a/src/vhdl/scanner.adb +++ b/src/vhdl/scanner.adb @@ -1452,7 +1452,20 @@ package body Scanner is Source (Pos) /= VT and Source (Pos) /= FF and Source (Pos) /= Files_Map.EOT loop - if not Flags.Mb_Comment + -- LRM93 13.1 + -- The only characters allowed in the text of a VHDL + -- description are the graphic characters and the format + -- effectors. + + -- LRM02 13.1 Character set + -- The only characters allowed in the text of a VHDL + -- description (except within comments -- see 13.8) [...] + -- + -- LRM02 13.8 Comments + -- A comment [...] may contain any character except the + -- format effectors vertical tab, carriage return, line + -- feed and form feed. + if not (Flags.Mb_Comment or Vhdl_Std >= Vhdl_02) and then Characters_Kind (Source (Pos)) = Invalid then Error_Msg_Scan ("invalid character, even in a comment"); |