URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 107 |
Rev 1765 |
test_result: MODULE
|
test_result: MODULE
|
|
|
DCL i INT := 5;
|
DCL i INT := 5;
|
|
|
SYNMODE m_struct = STRUCT (l LONG, b BOOL);
|
SYNMODE m_struct = STRUCT (l LONG, b BOOL);
|
DCL v_struct m_struct := [ 20, TRUE ];
|
DCL v_struct m_struct := [ 20, TRUE ];
|
|
|
simple_func: PROC () RETURNS (INT);
|
simple_func: PROC () RETURNS (INT);
|
DCL j INT := i;
|
DCL j INT := i;
|
RESULT 10;
|
RESULT 10;
|
i + := 2;
|
i + := 2;
|
RESULT j + 2;
|
RESULT j + 2;
|
i + := 2;
|
i + := 2;
|
END simple_func;
|
END simple_func;
|
|
|
ret_struct: PROC () RETURNS (m_struct)
|
ret_struct: PROC () RETURNS (m_struct)
|
DCL v m_struct := [ 33, FALSE ];
|
DCL v m_struct := [ 33, FALSE ];
|
RESULT v;
|
RESULT v;
|
v.l := 18;
|
v.l := 18;
|
END ret_struct;
|
END ret_struct;
|
|
|
i := simple_func ();
|
i := simple_func ();
|
i := simple_func ();
|
i := simple_func ();
|
i * := 10;
|
i * := 10;
|
|
|
v_struct := ret_struct ();
|
v_struct := ret_struct ();
|
|
|
i := 33; -- for gdb
|
i := 33; -- for gdb
|
END test_result;
|
END test_result;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.