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

Subversion Repositories or1k

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
test_result:  MODULE
2
 
3
  DCL i INT := 5;
4
 
5
  SYNMODE m_struct = STRUCT (l LONG, b BOOL);
6
  DCL v_struct m_struct := [ 20, TRUE ];
7
 
8
  simple_func: PROC () RETURNS (INT);
9
    DCL j INT := i;
10
    RESULT 10;
11
    i + := 2;
12
    RESULT j + 2;
13
    i + := 2;
14
  END simple_func;
15
 
16
  ret_struct: PROC () RETURNS (m_struct)
17
    DCL v m_struct := [ 33, FALSE ];
18
    RESULT v;
19
    v.l := 18;
20
  END ret_struct;
21
 
22
  i := simple_func ();
23
  i := simple_func ();
24
  i * := 10;
25
 
26
  v_struct := ret_struct ();
27
 
28
  i := 33; -- for gdb
29
END test_result;

powered by: WebSVN 2.1.0

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