OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [gdb/] [testsuite/] [gdb.chill/] [powerset.ch] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
--
2
-- check powerset operators and built-ins
3
--
4
 
5
ps: MODULE
6
 
7
SYNMODE m_ps1 = POWERSET ULONG (0:8);
8
DCL v_ps1 m_ps1 INIT := [1,3,5,7];
9
 
10
SYNMODE m_ps2 = POWERSET LONG (-100:100);
11
DCL v_ps2 m_ps2 INIT := [ -100:-95, -1:1, 95:100];
12
 
13
SYNMODE m_set = SET (aa, bb, cc, dd, ee, ff, gg, hh, ii, jj);
14
SYNMODE m_ps3 = POWERSET m_set;
15
DCL v_ps3 m_ps3 INIT := [bb, dd, ff, ii];
16
 
17
SYNMODE m_ps4 = POWERSET CHAR(' ':'z');
18
DCL v_ps4 m_ps4 INIT := [ '.', ',', 'A':'F', 'x':'z' ];
19
 
20
SYNMODE m_ps5 = POWERSET BOOL;
21
DCL v_ps5 m_ps5 INIT := [ FALSE ];
22
DCL v_ps51 m_ps5 INIT := [ ];
23
 
24
SYNMODE m_int_range = INT(-100:100);
25
SYNMODE m_int_subrange = m_int_range(-50:50);
26
SYNMODE m_ps6 = POWERSET m_int_subrange;
27
DCL v_ps6 m_ps6 INIT := [ LOWER(m_int_subrange):UPPER(m_int_subrange) ];
28
 
29
DCL x INT;
30
 
31
x := 25;
32
 
33
END ps;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.