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

Subversion Repositories or1k

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
xx : module
2
 
3
dcl a chars(200) varying init := (70)'^(0)' // "Jason""^(0,5)""Hugo^(10)" // (70)'^(1)';
4
dcl b chars(20) varying init := "Jason""^(0,5)""Hugo^(10)";
5
dcl c chars(256) varying init := (70)'a' // "^(0,5)Jason" // (70)'b';
6
dcl d char init := '^(11)';
7
 
8
bulk: PROC ();
9
END bulk;
10
 
11
a := (50) '^(255,0,222,127)';
12
b := (1)'^(200)';
13
d := 'a';
14
 
15
c:= (256)" ";
16
 
17
DO FOR i:= 0 BY 1 TO 255;
18
   c (255-i) := char (i);
19
OD;
20
 
21
bulk ();
22
 
23
end xx;

powered by: WebSVN 2.1.0

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