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

Subversion Repositories or1k

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
xx: MODULE
2
 
3
DCL v_bool BOOL INIT := FALSE;
4
DCL v_char CHAR INIT := 'X';
5
DCL v_byte BYTE INIT := -30;
6
DCL v_ubyte UBYTE INIT := 30;
7
DCL v_int INT INIT := -333;
8
DCL v_uint UINT INIT := 333;
9
DCL v_long LONG INIT := -4444;
10
DCL v_ulong ULONG INIT := 4444;
11
DCL v_ptr PTR;
12
 
13
SYNMODE m_set = SET (e1, e2, e3, e4, e5, e6);
14
DCL v_set m_set INIT := e3;
15
 
16
SYNMODE m_set_range = m_set(e2:e5);
17
DCL v_set_range m_set_range INIT := e3;
18
 
19
SYNMODE m_numbered_set = SET (n1 = 25, n2 = 22, n3 = 35, n4 = 33,
20
                              n5 = 45, n6 = 43);
21
DCL v_numbered_set m_numbered_set INIT := n3;
22
 
23
SYNMODE m_char_range = CHAR('A':'Z');
24
DCL v_char_range m_char_range INIT := 'G';
25
 
26
SYNMODE m_bool_range = BOOL(FALSE:FALSE);
27
DCL v_bool_range m_bool_range;
28
 
29
SYNMODE m_long_range = LONG(255:3211);
30
DCL v_long_range m_long_range INIT := 1000;
31
 
32
SYNMODE m_range = RANGE(12:28);
33
DCL v_range m_range INIT := 23;
34
 
35
SYNMODE m_chars = CHARS(20);
36
SYNMODE m_chars_v = CHARS(20) VARYING;
37
DCL v_chars CHARS(20);
38
DCL v_chars_v CHARS(20) VARYING INIT := "foo bar";
39
 
40
SYNMODE m_bits = BOOLS(10);
41
DCL v_bits BOOLS(10);
42
 
43
SYNMODE m_arr = ARRAY(1:10) BYTE;
44
DCL v_arr ARRAY(1:10) BYTE;
45
 
46
SYNMODE m_char_arr = ARRAY (CHAR) BYTE;
47
DCL v_char_arr ARRAY(CHAR) BYTE;
48
 
49
SYNMODE m_bool_arr = ARRAY (BOOL) BYTE;
50
DCL v_bool_arr ARRAY (BOOL) BYTE;
51
 
52
SYNMODE m_int_arr = ARRAY (INT) BYTE;
53
DCL v_int_arr ARRAY (INT) BYTE;
54
 
55
SYNMODE m_set_arr = ARRAY (m_set) BYTE;
56
DCL v_set_arr ARRAY (m_set) BYTE;
57
 
58
SYNMODE m_numbered_set_arr = ARRAY (m_numbered_set) BYTE;
59
DCL v_numbered_set_arr ARRAY (m_numbered_set) BYTE;
60
 
61
SYNMODE m_char_range_arr = ARRAY (m_char_range) BYTE;
62
DCL v_char_range_arr ARRAY (m_char_range) BYTE;
63
 
64
SYNMODE m_set_range_arr = ARRAY (m_set_range) BYTE;
65
DCL v_set_range_arr ARRAY (m_set_range) BYTE;
66
 
67
SYNMODE m_bool_range_arr = ARRAY (m_bool_range) BYTE;
68
DCL v_bool_range_arr ARRAY (m_bool_range) BYTE;
69
 
70
SYNMODE m_long_range_arr = ARRAY (m_long_range) BYTE;
71
DCL v_long_range_arr ARRAY (m_long_range) BYTE;
72
 
73
SYNMODE m_range_arr = ARRAY (m_range) BYTE;
74
DCL v_range_arr ARRAY (m_range) BYTE;
75
 
76
SYNMODE m_struct = STRUCT (i LONG,
77
                           c CHAR,
78
                           s CHARS(30));
79
DCL v_struct m_struct;
80
 
81
v_bool := TRUE;
82
 
83
END xx;

powered by: WebSVN 2.1.0

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