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/] [protected_self_ref1.adb] - Rev 304

Compare with Previous | Blame | View Log

--  { dg-do run }
with System;
 
procedure Protected_Self_Ref1 is
 
   protected type P is
      procedure Foo;
   end P;
 
   protected body P is
      procedure Foo is
         Ptr : access P;  -- here P denotes the type P
	 T   : Integer;
	 A   : System.Address;
      begin
         Ptr := P'Access; -- here P denotes the "this" instance of P
	 T := P'Size;
	 A := P'Address;
      end;
   end P;
 
   O : P;
begin
   O.Foo;
end Protected_Self_Ref1;
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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