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

Subversion Repositories or1k

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
vector: MODULE
2
 
3
SYNMODE m_index = RANGE(1:10);
4
NEWMODE vector = ARRAY (m_index) INT;
5
 
6
DCL a, b, c vector;
7
 
8
dump: PROC( a vector LOC, c CHAR );
9
  DCL i m_index := 5;
10
  DO FOR i IN m_index;
11
    WRITETEXT( STDOUT, "%C(%C)=%C ", c, i, a(i) );
12
  OD;
13
  WRITETEXT( STDOUT, "%/" );
14
END dump;
15
 
16
a := vector [ 1, -1, 2, -2, 3, -3, 4, -4, 5, -5 ];
17
b := a;
18
b(4) := 4;
19
b(7) := 7;
20
c := vector [(*): 0];
21
 
22
dump(a,'a');
23
 
24
END vector;

powered by: WebSVN 2.1.0

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