URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
| Rev 107 |
Rev 1765 |
vector: MODULE
|
vector: MODULE
|
|
|
SYNMODE m_index = RANGE(1:10);
|
SYNMODE m_index = RANGE(1:10);
|
NEWMODE vector = ARRAY (m_index) INT;
|
NEWMODE vector = ARRAY (m_index) INT;
|
|
|
DCL a, b, c vector;
|
DCL a, b, c vector;
|
|
|
dump: PROC( a vector LOC, c CHAR );
|
dump: PROC( a vector LOC, c CHAR );
|
DCL i m_index := 5;
|
DCL i m_index := 5;
|
DO FOR i IN m_index;
|
DO FOR i IN m_index;
|
WRITETEXT( STDOUT, "%C(%C)=%C ", c, i, a(i) );
|
WRITETEXT( STDOUT, "%C(%C)=%C ", c, i, a(i) );
|
OD;
|
OD;
|
WRITETEXT( STDOUT, "%/" );
|
WRITETEXT( STDOUT, "%/" );
|
END dump;
|
END dump;
|
|
|
a := vector [ 1, -1, 2, -2, 3, -3, 4, -4, 5, -5 ];
|
a := vector [ 1, -1, 2, -2, 3, -3, 4, -4, 5, -5 ];
|
b := a;
|
b := a;
|
b(4) := 4;
|
b(4) := 4;
|
b(7) := 7;
|
b(7) := 7;
|
c := vector [(*): 0];
|
c := vector [(*): 0];
|
|
|
dump(a,'a');
|
dump(a,'a');
|
|
|
END vector;
|
END vector;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.
