blob: 490033eda5e87163f6cbbf0cf46875270a72bce5 (
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
--
-- File Increment: TbNames.vhd
-- Design Unit Increment: TbNames
-- Revision: STANDARD VERSION
--
-- Maintainer: Jim Lewis email: jim@synthworks.com
-- Contributor(s):
-- Jim Lewis SynthWorks
--
--
-- Purpose
-- Test Names
--
-- Developed for:
-- SynthWorks Design Inc.
-- VHDL Training Classes
-- 11898 SW 128th Ave. Tigard, Or 97223
-- http://www.SynthWorks.com
--
--
-- Revision History:
-- Date Version Description
--
--
--
-- Copyright (c) 2010 - 2016 by SynthWorks Design Inc. All rights reserved.
--
use std.textio.all ;
use work.TbNamesPkg.all ;
entity TbNames is
end entity TbNames ;
architecture T1 of TbNames is
shared variable IncVar : IncrementPType ;
begin
main : process
variable ErrorCount : integer ;
begin
PrintNames ;
CallPrintNames ;
report "Get: INSTANCE_NAME " & IncVar.Get'Instance_Name;
wait;
end process main ;
end architecture T1 ;
|
