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

Subversion Repositories or1k

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
gdb1: MODULE
2
 
3
SYNMODE m_arr1 = ARRAY (1:10) UBYTE;
4
SYNMODE m_struct = STRUCT ( i LONG,
5
                            p REF m_arr1);
6
SYNMODE m_arr2 = ARRAY (0:10) REF m_struct;
7
 
8
DCL v_arr1 m_arr1 INIT := [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ];
9
DCL v_struct m_struct INIT := [ 10, ->v_arr1 ];
10
DCL v_arr2 m_arr2 INIT := [ (5): ->v_struct, (ELSE): NULL ];
11
 
12
WRITETEXT (stdout, "v_arr2(5)->.p->(5) = %C%/", v_arr2(5)->.p->(5));
13
END gdb1;

powered by: WebSVN 2.1.0

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