diff options
| -rw-r--r-- | src/ghdldrv/ghdlprint.adb | 2 | ||||
| -rw-r--r-- | src/std_names.adb | 1 | ||||
| -rw-r--r-- | src/std_names.ads | 3 | ||||
| -rw-r--r-- | src/vhdl/sem_names.adb | 4 |
4 files changed, 8 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index 04f2ba4ee..76a423bcb 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -1327,7 +1327,6 @@ package body Ghdlprint is if Cmd.Output_Dir /= null and then not Is_Directory (Cmd.Output_Dir.all) then - declare begin Make_Dir (Cmd.Output_Dir.all); exception @@ -1368,6 +1367,7 @@ package body Ghdlprint is Xrefs.Sort_By_Location; if False then + -- Dump locations for I in 1 .. Xrefs.Get_Last_Xref loop declare use Xrefs; diff --git a/src/std_names.adb b/src/std_names.adb index e67acaa04..971effb08 100644 --- a/src/std_names.adb +++ b/src/std_names.adb @@ -413,6 +413,7 @@ package body Std_Names is Def ("vital_level1", Name_VITAL_Level1); Def ("std_logic_arith", Name_Std_Logic_Arith); Def ("std_logic_signed", Name_Std_Logic_Signed); + Def ("std_logic_textio", Name_Std_Logic_Textio); Def ("std_logic_unsigned", Name_Std_Logic_Unsigned); -- Verilog keywords diff --git a/src/std_names.ads b/src/std_names.ads index b63762072..431a8c7dd 100644 --- a/src/std_names.ads +++ b/src/std_names.ads @@ -483,7 +483,8 @@ package Std_Names is Name_VITAL_Level1 : constant Name_Id := Name_First_Ieee + 010; Name_Std_Logic_Arith : constant Name_Id := Name_First_Ieee + 011; Name_Std_Logic_Signed : constant Name_Id := Name_First_Ieee + 012; - Name_Std_Logic_Unsigned : constant Name_Id := Name_First_Ieee + 013; + Name_Std_Logic_Textio : constant Name_Id := Name_First_Ieee + 013; + Name_Std_Logic_Unsigned : constant Name_Id := Name_First_Ieee + 014; Name_Last_Ieee : constant Name_Id := Name_Std_Logic_Unsigned; -- Verilog keywords. diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index 6c25b812c..9290ae6e2 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -1897,6 +1897,10 @@ package body Sem_Names is Error_Msg_Sem (+Name, " (use --ieee=synopsys for non-standard synopsys packages)"); + elsif Suffix = Name_Std_Logic_Textio then + Error_Msg_Sem + (+Name, " (use --ieee=synopsys or --std=08 for " + & "this non-standard synopsys package)"); end if; end if; end Error_Unit_Not_Found; |