VHDL Error in 8.02

[Tim Downey]

I have created a schematic that has a 2-bit bus for input and two
single wires for output. The bus is ripped and the lines are sent
through two buffers to the output wires. The VHDL is correct and
this circuit will run through the ALS simulator in Electric 8.02.

I then created an IC for this circuit and placed it in another schematic.
The new schematic has a 2-bit bus input export and two wire output
exports. These exports are mapped to the input and output ports of
the IC.

The call to the IC in the VHDL is incorrect.  The network name is incorrect.
It reads A_1_0 twice instead of A_1_ and A_0_. The port is not recognized
as it should, it is labeled as 'open'.

There is no network named A_1_0_ in the cells.
This seems to be a problem with the VHDL generator.
I have attached the jelib that has this example in it.

Here is the VHDL that is generated:

-- VHDL automatically generated from cell 'call_split{sch}'
entity call_split is port(A_1_, A_0_: in BIT; D0, D1: out BIT);
 end call_split;

architecture call_split_BODY of call_split is
 component split port(A_1_0_, A_1_0_: in BIT; D0, D1: out BIT);
   end component;


begin
 split_0: split port map(open, D0, D1);
end call_split_BODY;


-- VHDL automatically generated from cell 'split{sch}'
entity split is port(A_1_, A_0_: in BIT; D0, D1: out BIT);
 end split;

architecture split_BODY of split is
 component buffer port(a: in BIT; y: out BIT);
   end component;


begin
 buf_0: buffer port map(A_1_, D0);
 buf_1: buffer port map(A_0_, D1);
end split_BODY;


# header information:
Hals_error|8.02

# Views:
Vicon|ic
Vschematic|sch
VVHDL|vhdl

# Technologies:
Tartwork
Tfpga|ScaleFORfpga()D1000.0
Tgeneric
Trcmos|ScaleFORrcmos()D1000.0
Tschematic

# Cell call_split{sch}
Ccall_split;1{sch}|schematic|1120433650265|1120434218046|
Ngeneric:Facet-Center|address@hidden||0|0|0|0||AV
NWire_Pin|address@hidden||10|1|0.5|0.5||
NWire_Pin|address@hidden||10|-1|0.5|0.5||
NBus_Pin|address@hidden||-27|0|2|2||
Isplit;2{ic}|address@hidden||0|0||E|D5G4;
Abus|"A[1:0]"2|D5G1;|1|IJ0|address@hidden|A[1:0]|-5|0|address@hidden||-27|0
Awire|address@hidden||0|1800|address@hidden|D0|5|1|address@hidden||10|1
Awire|address@hidden||0|1800|address@hidden|D1|5|-1|address@hidden||10|-1
EA[1:0]|D5G2;|address@hidden||I
ED0|D5G2;|address@hidden||O
ED1|D5G2;|address@hidden||O
X

# Cell call_split{vhdl}
Ccall_split;1{vhdl}|artwork|1120433738453|1120433738453||FACET_message()S[-- 
VHDL automatically generated from cell 'call_split{sch}',"entity call_split is 
port(A_1_, A_0_: in BIT; D0, D1: out BIT);",  end call_split;,"",architecture 
call_split_BODY of call_split is,"  component split port(A_1_0_, A_1_0_: in 
BIT; D0, D1: out BIT);",    end component;,"","",begin,"  split_0: split port 
map(open, D0, D1);",end call_split_BODY;,"","",-- VHDL automatically generated 
from cell 'split{sch}',"entity split is port(A_1_, A_0_: in BIT; D0, D1: out 
BIT);",  end split;,"",architecture split_BODY of split is,  component buffer 
port(a: in BIT; y: out BIT);,    end component;,"","",begin,"  buf_0: buffer 
port map(A_1_, D0);","  buf_1: buffer port map(A_0_, D1);",end split_BODY;]
Ngeneric:Facet-Center|address@hidden||0|0|0|0||AV
X

# Cell split{ic}
Csplit;2{ic}|artwork|1120433834359|1120433834390|E
Ngeneric:Facet-Center|address@hidden||0|0|0|0||AV
NOpened-Thicker-Polygon|address@hidden||0|0|6|10|||SCHEM_function(D5G1;)Ssplit|trace()V[-3/-5,-3/5,3/5,3/-5,-3/-5]
Nschematic:Bus_Pin|address@hidden||-5|0|2|2||
Ngeneric:Invisible-Pin|address@hidden||-3|0|1|1||
Ngeneric:Universal-Pin|address@hidden||5|1|0|0||
Nschematic:Wire_Pin|address@hidden||3|1|0.5|0.5||
Ngeneric:Universal-Pin|address@hidden||5|-1|0|0||
Nschematic:Wire_Pin|address@hidden||3|-1|0.5|0.5||
Aschematic:bus|address@hidden||1|IJ0|address@hidden||-3|0|address@hidden||-5|0
Aschematic:wire|address@hidden||0|1800|address@hidden||3|1|address@hidden||5|1
Aschematic:wire|address@hidden||0|1800|address@hidden||3|-1|address@hidden||5|-1
EA[1:0]|D5G2;|address@hidden||I
ED0|D5G2;|address@hidden||O
ED1|D5G2;|address@hidden||O
X

# Cell split{sch}
Csplit;1{sch}|schematic|1120433524015|1120433836390|
Ngeneric:Facet-Center|address@hidden||0|0|0|0||AV
NBuffer|address@hidden||-41|-1|6|6||
NBuffer|address@hidden||-16|-1|6|6||
NBus_Pin|address@hidden||-46|7|2|2||
NBus_Pin|address@hidden||-23|7|2|2||
NWire_Pin|address@hidden||-46|-1|0.5|0.5||
NBus_Pin|address@hidden||-46|7|2|2||
NWire_Pin|address@hidden||-23|-1|0.5|0.5||
NBus_Pin|address@hidden||-23|7|2|2||
NWire_Pin|address@hidden||-36|-1|0.5|0.5||
NWire_Pin|address@hidden||-10|-1|0.5|0.5||
Isplit;2{ic}|address@hidden||-15|15||E|D5G4;
Awire|A[0]|D5G1;|0|2700|address@hidden||-23|-1|address@hidden||-23|7
Abus|A[1:0]|D5G1;|1|IJ0|address@hidden||-23|7|address@hidden||-23|7
Awire|A[1]|D5G1;|0|2700|address@hidden||-46|-1|address@hidden||-46|7
Abus|address@hidden||1|IJ0|address@hidden||-46|7|address@hidden||-46|7
Abus|address@hidden||1|IJ1800|address@hidden||-46|7|address@hidden||-23|7
Awire|address@hidden||0|1800|address@hidden||-46|-1|address@hidden|a|-44|-1
Awire|address@hidden||0|1800|address@hidden||-23|-1|address@hidden|a|-19|-1
Awire|address@hidden||0|1800|address@hidden|y|-39|-1|address@hidden||-36|-1
Awire|address@hidden||0|1800|address@hidden|y|-14|-1|address@hidden||-10|-1
EA[1:0]|D5G2;|address@hidden||I
ED0|D5G2;|address@hidden||O
ED1|D5G2;|address@hidden||O
X

# Groups:
Gcall_split;1{sch}|call_split;1{vhdl}
Gsplit;1{sch}|split;2{ic}