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/] [remote_type.ads] - Rev 315
Go to most recent revision | Compare with Previous | Blame | View Log
with Ada.Streams; generic type Element_Type is private; package remote_type is pragma Remote_Types; type List is private; procedure Append (Container : in out List; New_Item : in Element_Type); private use Ada.Streams; type List_Record is record A : Boolean; end record; type List is access List_Record; procedure Read (S : access Root_Stream_Type'Class; L : out List); for List'Read use Read; procedure Write (S : access Root_Stream_Type'Class; L : in List); for List'Write use Write; end remote_type;
Go to most recent revision | Compare with Previous | Blame | View Log