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

Subversion Repositories or1k

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
 
2
PR_5020: MODULE
3
  dummy_pr_5020: PROC ();
4
  END;
5
  NEWMODE x = STRUCT (l LONG, b BOOL);
6
  NEWMODE aset = SET (aa, bb);
7
 
8
  DCL y ARRAY ('a':'b') x;
9
  DCL setarr ARRAY (aset) x;
10
  DCL intarr ARRAY(10:11) x;
11
  DCL boolarr ARRAY (BOOL) x;
12
 
13
  y('a').l, setarr(aa).l, intarr(10).l, boolarr(FALSE).l := 10;
14
  y('a').b, setarr(aa).b, intarr(10).b, boolarr(FALSE).b := TRUE;
15
  y('b').l, setarr(bb).l, intarr(11).l, boolarr(TRUE).l := 111;
16
  y('b').b, setarr(bb).b, intarr(11).b, boolarr(TRUE).b := FALSE;
17
 
18
  dummy_pr_5020 ();
19
END;

powered by: WebSVN 2.1.0

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