blob: 3ffa7571fb494a7276e1c95b8ef0142b9cccea05 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
entity repro is
end repro;
architecture behav of repro is
type msg_t is record
pfx : string;
func : string;
user : string;
end record;
procedure report_msg (m : msg_t) is
begin
report m.pfx & "." & m.func & ": " & m.user;
end report_msg;
procedure fill (pfx : string := "#err#"; usr : string := "none") is
constant m : msg_t := (pfx, "fill", usr);
begin
report_msg (m);
end fill;
begin
process
begin
fill;
fill (pfx => "my err");
wait;
end process;
end behav;
|