| Line 54... |
Line 54... |
----------------------------------------------------------------------
|
----------------------------------------------------------------------
|
--
|
--
|
-- CVS Revision History
|
-- CVS Revision History
|
--
|
--
|
-- $Log: not supported by cvs2svn $
|
-- $Log: not supported by cvs2svn $
|
|
-- Revision 1.2 2005/10/12 19:39:27 mgeng
|
|
-- Buses unconstrained, LGPL header added
|
|
--
|
-- Revision 1.1.1.1 2003/01/14 21:48:11 rpaley_yid
|
-- Revision 1.1.1.1 2003/01/14 21:48:11 rpaley_yid
|
-- initial checkin
|
-- initial checkin
|
--
|
--
|
-- Revision 1.1 2003/01/14 17:48:31 Default
|
-- Revision 1.1 2003/01/14 17:48:31 Default
|
-- Initial revision
|
-- Initial revision
|
| Line 84... |
Line 87... |
|
|
ARCHITECTURE ArrayMemNoFlag OF single_port IS
|
ARCHITECTURE ArrayMemNoFlag OF single_port IS
|
BEGIN
|
BEGIN
|
|
|
mem_proc : PROCESS(d, a, rnw)
|
mem_proc : PROCESS(d, a, rnw)
|
TYPE mem_typ IS ARRAY ( 0 TO PAGENUM*PAGEDEPTH-1 ) OF STD_LOGIC_VECTOR(d'RANGE);
|
TYPE mem_typ IS ARRAY ( 0 TO 2**a'length-1 ) OF STD_LOGIC_VECTOR(d'RANGE);
|
VARIABLE mem : mem_typ;
|
VARIABLE mem : mem_typ;
|
BEGIN
|
BEGIN
|
IF ( rnw = '0') THEN -- Write
|
IF ( rnw = '0') THEN -- Write
|
mem(TO_INTEGER(unsigned(a))) := d;
|
mem(TO_INTEGER(unsigned(a))) := d;
|
ELSE -- Read
|
ELSE -- Read
|
| Line 100... |
Line 103... |
|
|
ARCHITECTURE ArrayMem OF single_port IS
|
ARCHITECTURE ArrayMem OF single_port IS
|
BEGIN
|
BEGIN
|
|
|
mem_proc : PROCESS(d, a, rnw)
|
mem_proc : PROCESS(d, a, rnw)
|
TYPE mem_typ IS ARRAY ( 0 TO PAGENUM*PAGEDEPTH-1 ) OF BIT_VECTOR(d'RANGE);
|
TYPE mem_typ IS ARRAY ( 0 TO 2**a'length-1 ) OF BIT_VECTOR(d'RANGE);
|
TYPE flag_typ IS ARRAY ( 0 TO PAGENUM*PAGEDEPTH-1 ) OF BOOLEAN;
|
TYPE flag_typ IS ARRAY ( 0 TO 2**a'length-1 ) OF BOOLEAN;
|
VARIABLE mem : mem_typ;
|
VARIABLE mem : mem_typ;
|
VARIABLE flag : flag_typ;
|
VARIABLE flag : flag_typ;
|
BEGIN
|
BEGIN
|
IF ( rnw = '0') THEN -- Write
|
IF ( rnw = '0') THEN -- Write
|
mem(TO_INTEGER(unsigned(a))) := TO_BITVECTOR(d);
|
mem(TO_INTEGER(unsigned(a))) := TO_BITVECTOR(d);
|
