diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-06-13 12:25:01 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-06-13 16:47:59 +0200 |
| commit | e0ca8bf0b0d8049c7e9f7fe53f7ed942fac61453 (patch) | |
| tree | b4477194e58e9ca5b0c296caa24da39e5a2e845a /src/vhdl/vhdl-parse.adb | |
| parent | 8eb418a695000718920c2ef5294c185a2ef40cca (diff) | |
| download | ghdl-e0ca8bf0b0d8049c7e9f7fe53f7ed942fac61453.tar.gz ghdl-e0ca8bf0b0d8049c7e9f7fe53f7ed942fac61453.tar.bz2 ghdl-e0ca8bf0b0d8049c7e9f7fe53f7ed942fac61453.zip | |
vhdl: --std93c is now an alias for --std=93 -frelaxed
This simplifies the definition of --std=93c
Diffstat (limited to 'src/vhdl/vhdl-parse.adb')
| -rw-r--r-- | src/vhdl/vhdl-parse.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index 9e4a930a9..820594579 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -4200,7 +4200,9 @@ package body Vhdl.Parse is case Current_Token is when Tok_In | Tok_Out | Tok_Inout => - if Flags.Vhdl_Std >= Vhdl_93 then + if Flags.Vhdl_Std /= Vhdl_87 + and then not Flags.Flag_Relaxed_Files87 + then Error_Msg_Parse ("mode allowed only in vhdl 87"); end if; Mode := Parse_Mode; @@ -7478,7 +7480,7 @@ package body Vhdl.Parse is Expect_Scan (Tok_End); Expect_Scan (Tok_Case); - if Flags.Vhdl_Std >= Vhdl_93c then + if Flags.Vhdl_Std >= Vhdl_93 then Check_End_Name (Stmt); end if; @@ -7782,7 +7784,7 @@ package body Vhdl.Parse is Stmt := Parse_If_Statement (Parent); Set_Label (Stmt, Label); Set_Location (Stmt, Loc); - if Flags.Vhdl_Std >= Vhdl_93c then + if Flags.Vhdl_Std >= Vhdl_93 then Check_End_Name (Stmt); end if; when Tok_Case => |