diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-07-02 18:59:10 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-07-02 18:59:10 +0200 |
| commit | 38848c600d7d15940ccc39aa7f764547a37b936a (patch) | |
| tree | 8c986602eddc991edf74df4effe0ff8754484a4c /src/synth/synth-insts.adb | |
| parent | 7cef548049a386a6afaa0ad825318ab4833b0446 (diff) | |
| download | ghdl-38848c600d7d15940ccc39aa7f764547a37b936a.tar.gz ghdl-38848c600d7d15940ccc39aa7f764547a37b936a.tar.bz2 ghdl-38848c600d7d15940ccc39aa7f764547a37b936a.zip | |
synth-insts: set location on ports. For #1387
Diffstat (limited to 'src/synth/synth-insts.adb')
| -rw-r--r-- | src/synth/synth-insts.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb index c2bb5d580..93b8a510e 100644 --- a/src/synth/synth-insts.adb +++ b/src/synth/synth-insts.adb @@ -727,6 +727,7 @@ package body Synth.Insts is Port : Net; begin Port := Builders.Build_Port (Get_Build (Syn_Inst), Outp); + Set_Location (Port, Assoc); Iassoc := Get_Chain (Assoc); while Iassoc /= Null_Node @@ -775,6 +776,7 @@ package body Synth.Insts is -- Create a port gate (so that is has a name). Port := Builders.Build_Port (Get_Build (Syn_Inst), Outp); + Set_Location (Port, Assoc); O := Create_Value_Net (Port, Formal_Typ); -- Assign the port output to the actual (a net). Synth_Assignment (Syn_Inst, Actual, O, Assoc); |