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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [gdb/] [testsuite/] [gdb.chill/] [pr-8136.ch] - Rev 1765

Compare with Previous | Blame | View Log

-- NOTE: This test is used for pr-3134.exp as well as pr-8136.
func: MODULE

<> USE_SEIZE_FILE "func1.grt" <>
SEIZE ALL;

NEWMODE m_struct = STRUCT (i LONG, str CHARS(50) VARYING);
DCL insarr ARRAY (1:10) INT;

DCL setrange m_setrange := e5;

DCL ps m_ps := [ e3, e7:e9 ];
DCL range_ps m_rangeps := [ 2, 3, 4, 28 ];

p1: PROC (first INT IN, last INT IN, s m_struct IN);

  DCL foo LONG := 3;

  startall: PROC ()
    DO FOR i := first to last;
      insarr(i) := i;
    OD;
    DO FOR i := first TO last;
      WRITETEXT (stdout, "insarr(%C) := %C%/", i, insarr(i));
    OD;
  END startall;

  startall ();

END p1;

p1 (LOWER (insarr), UPPER (insarr), [ 10, "This is a string." ]);

END func;

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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