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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [ai_116.ads] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
--  { dg-do compile }
2
 
3
with Ada.Finalization; use Ada;
4
package ai_116 is
5
   pragma Preelaborate;
6
   type Buffer_Type is limited interface;
7
 
8
   type Handle is new Finalization.Limited_Controlled and Buffer_Type with
9
     private;
10
   pragma Preelaborable_Initialization(Handle);
11
 
12
   type Ptr is access all String;
13
   Null_Handle : constant Handle;
14
 
15
private
16
   type Handle is new Finalization.Limited_Controlled and Buffer_Type with
17
      record
18
         Data     : Ptr  := null;
19
      end record;
20
 
21
   Null_Handle : constant Handle :=
22
     (Finalization.Limited_Controlled with Data => null);
23
end ai_116;

powered by: WebSVN 2.1.0

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