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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 696 jeremybenn
with Unchecked_Deallocation;
2
 
3
package body Prot2_Pkg2 is
4
 
5
   protected type Rec is
6
   private
7
       M : T;
8
   end Rec;
9
 
10
   protected body Rec is end;
11
 
12
   procedure Create (B : out Id) is
13
   begin
14
       B := new Rec;
15
   end;
16
 
17
   procedure Delete (B : in out Id) is
18
      procedure Free is new Unchecked_Deallocation(Object => Rec, Name => Id);
19
   begin
20
      Free (B);
21
   end;
22
 
23
end Prot2_Pkg2;

powered by: WebSVN 2.1.0

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