diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-07-30 19:27:36 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-07-30 19:27:36 +0200 |
commit | c5a1561aaca4e7af5b8cafa40022cafa913cd007 (patch) | |
tree | 60d3096bfbcc8fe254c324d81c05ee8ad867d619 /src/synth | |
parent | e764c83d859fbc7affb47e96add4fe658f96e212 (diff) | |
download | ghdl-c5a1561aaca4e7af5b8cafa40022cafa913cd007.tar.gz ghdl-c5a1561aaca4e7af5b8cafa40022cafa913cd007.tar.bz2 ghdl-c5a1561aaca4e7af5b8cafa40022cafa913cd007.zip |
synth: do not consider all ieee packages as predefined.
In particular, the vhdl 2008 fixed point packages are considered as
regular packages.
Fix #1417
Diffstat (limited to 'src/synth')
-rw-r--r-- | src/synth/synth-expr.adb | 31 |
1 files changed, 24 insertions, 7 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index a18f2b6cf..683b86ddd 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -1715,16 +1715,33 @@ package body Synth.Expr is end case; end Synth_Type_Conversion; - procedure Error_Ieee_Operator (Imp : Node; Loc : Node) is + procedure Error_Ieee_Operator (Imp : Node; Loc : Node) + is + use Std_Names; + Parent : constant Iir := Get_Parent (Imp); begin - if Get_Kind (Get_Parent (Imp)) = Iir_Kind_Package_Declaration + if Get_Kind (Parent) = Iir_Kind_Package_Declaration and then (Get_Identifier - (Get_Library - (Get_Design_File (Get_Design_Unit (Get_Parent (Imp))))) - = Std_Names.Name_Ieee) + (Get_Library (Get_Design_File (Get_Design_Unit (Parent)))) + = Name_Ieee) then - Error_Msg_Synth (+Loc, "unhandled predefined IEEE operator %i", +Imp); - Error_Msg_Synth (+Imp, " declared here"); + case Get_Identifier (Parent) is + when Name_Std_Logic_1164 + | Name_Std_Logic_Arith + | Name_Std_Logic_Signed + | Name_Std_Logic_Unsigned + | Name_Std_Logic_Misc + | Name_Numeric_Std + | Name_Numeric_Bit + | Name_Math_Real => + Error_Msg_Synth + (+Loc, "unhandled predefined IEEE operator %i", +Imp); + Error_Msg_Synth + (+Imp, " declared here"); + when others => + -- ieee 2008 packages are handled like regular packages. + null; + end case; end if; end Error_Ieee_Operator; |