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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [double_record_extension2.ads] - Blame information for rev 844

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn 
package double_record_extension2 is
2 
 
3 
  type Base_Message_Type (Num_Bytes : Positive) is tagged record
4 
     Data_Block : String (1..Num_Bytes);
5 
  end record;
6 
 
7 
  type Extended_Message_Type (Num_Bytes1 : Positive; Num_Bytes2 : Positive) is new Base_Message_Type (Num_Bytes1) with record
8 
     A: String (1..Num_Bytes2);
9 
  end record;
10 
 
11 
  type Final_Message_Type is new Extended_Message_Type with record
12 
     B : Integer;
13 
  end record;
14 
 
15 
end double_record_extension2;

powered by: WebSVN 2.1.0

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