URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [remote_type.ads] - Rev 715
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