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-sem_specs.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-sem_specs.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_specs.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/vhdl/vhdl-sem_specs.adb b/src/vhdl/vhdl-sem_specs.adb index eca951a2b..f3fb7bf30 100644 --- a/src/vhdl/vhdl-sem_specs.adb +++ b/src/vhdl/vhdl-sem_specs.adb @@ -365,10 +365,10 @@ package body Vhdl.Sem_Specs is Set_Attribute_Value_Spec_Chain (Attr, El); -- Special handling for 'Foreign. - if (Flags.Vhdl_Std >= Vhdl_93c + if (Flags.Vhdl_Std >= Vhdl_93 and then Attr_Decl = Foreign_Attribute) or else - (Flags.Vhdl_Std <= Vhdl_93c + (Flags.Vhdl_Std <= Vhdl_93 and then Get_Identifier (Attr_Decl) = Std_Names.Name_Foreign) then -- LRM93 12.4 @@ -769,7 +769,7 @@ package body Vhdl.Sem_Specs is Inter : Name_Interpretation_Type; Decl : Iir; begin - if Flag_Relaxed_Rules or Vhdl_Std = Vhdl_93c then + if Flag_Relaxed_Rules then -- Some (clueless ?) vendors put attribute specifications in -- architectures for ports (declared in entities). This is not -- valid according to the LRM (eg: LRM02 5.1 Attribute @@ -2003,8 +2003,8 @@ package body Vhdl.Sem_Specs is -- containing the design unit in which the component C is -- declared. if Flags.Flag_Syn_Binding + or Flags.Flag_Relaxed_Rules or Flags.Vhdl_Std >= Vhdl_02 - or Flags.Vhdl_Std = Vhdl_93c then -- Find target library. Target_Lib := Comp; @@ -2077,7 +2077,7 @@ package body Vhdl.Sem_Specs is -- containing the design unit in which the component C is -- declared. if Flags.Vhdl_Std >= Vhdl_02 - or else Flags.Vhdl_Std = Vhdl_93c + or else Flags.Flag_Relaxed_Rules then Decl := Comp; while Get_Kind (Decl) /= Iir_Kind_Library_Declaration loop |