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 |
hugo : module
|
hugo : module
|
|
|
synmode a = range(1:10);
|
synmode a = range(1:10);
|
synmode p = powerset a;
|
synmode p = powerset a;
|
|
|
synmode s = set (sa, sb, sc);
|
synmode s = set (sa, sb, sc);
|
synmode s_ps = powerset s;
|
synmode s_ps = powerset s;
|
|
|
x: proc (ps p);
|
x: proc (ps p);
|
dcl i a;
|
dcl i a;
|
do for i in ps;
|
do for i in ps;
|
writetext (stdout, "%C ", i);
|
writetext (stdout, "%C ", i);
|
od;
|
od;
|
writetext(stdout, "%/");
|
writetext(stdout, "%/");
|
end x;
|
end x;
|
|
|
y : proc (ps s_ps);
|
y : proc (ps s_ps);
|
dcl i s;
|
dcl i s;
|
do for i in ps;
|
do for i in ps;
|
writetext (stdout, "%C ", i);
|
writetext (stdout, "%C ", i);
|
od;
|
od;
|
writetext(stdout, "%/");
|
writetext(stdout, "%/");
|
end y;
|
end y;
|
|
|
dummy: proc ();
|
dummy: proc ();
|
end dummy;
|
end dummy;
|
|
|
x([1,2,3]);
|
x([1,2,3]);
|
y([sa, sc]);
|
y([sa, sc]);
|
dummy ();
|
dummy ();
|
|
|
end hugo;
|
end hugo;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.
