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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [debug1.ads] - Blame information for rev 696

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 696 jeremybenn
package debug1 is
2
 
3
  type Vector is array (Natural range <>) of Natural;
4
  type Vector_Access is access Vector;
5
 
6
  type Data_Line is record
7
    Length : Vector (1 .. 1);
8
    Line   : Vector_Access;
9
  end record;
10
 
11
  type Data_Block is array (1 .. 5) of Data_Line;
12
  type Data_Block_Access is access Data_Block;
13
 
14
  type Vector_Ptr is access Vector;
15
 
16
  type Meta_Data is record
17
    Vector_View : Vector_Ptr;
18
    Block_View  : Data_Block_Access;
19
  end record;
20
 
21
end;

powered by: WebSVN 2.1.0

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