diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-04-10 11:07:13 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-04-10 18:14:09 +0200 |
| commit | 849a25e02cfb359e3d9313060156b0643495548b (patch) | |
| tree | 3d84c0107a7a7beccc780a352da1393c2cdd633f /src/ghdldrv/ghdlsynth.adb | |
| parent | 6b4051a0b29effd4210d99609dcbd0eceff8111f (diff) | |
| download | ghdl-849a25e02cfb359e3d9313060156b0643495548b.tar.gz ghdl-849a25e02cfb359e3d9313060156b0643495548b.tar.bz2 ghdl-849a25e02cfb359e3d9313060156b0643495548b.zip | |
ghdldrv,configure: allow LIB.UNIT name for -e/-r commands. Fix #1718
Diffstat (limited to 'src/ghdldrv/ghdlsynth.adb')
| -rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index b0c85ba26..d95ea55e3 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -247,6 +247,7 @@ package body Ghdlsynth is Design_File : Iir; Config : Iir; Top : Iir; + Lib_Id : Name_Id; Prim_Id : Name_Id; Sec_Id : Name_Id; begin @@ -359,18 +360,19 @@ package body Ghdlsynth is -- No need to configure if there are missing units. return Null_Iir; end if; + Lib_Id := Null_Identifier; Prim_Id := Get_Identifier (Top); Sec_Id := Null_Identifier; else Extract_Elab_Unit ("--synth", Args (E_Opt + 1 .. Args'Last), Opt_Arg, - Prim_Id, Sec_Id); + Lib_Id, Prim_Id, Sec_Id); if Opt_Arg <= Args'Last then Ghdlmain.Error ("extra options ignored"); return Null_Iir; end if; end if; - Config := Vhdl.Configuration.Configure (Prim_Id, Sec_Id); + Config := Vhdl.Configuration.Configure (Lib_Id, Prim_Id, Sec_Id); if Nbr_Errors > 0 then -- No need to configure if there are missing units. |