blob: 721f57628b3d2f7f4f3c85e10a61e416766a6596 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
entity taggr2 is
end;
architecture behav of taggr2 is
procedure set (v : inout string; l, r : positive) is
begin
v (l to r) := (others => ' ');
end set;
begin
process
variable s : string (1 to 8);
begin
s(1) := 'A';
s(8) := 'Z';
set (s, 2, 7);
report s;
wait;
end process;
end;
|
