URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
with Ada.Streams; use Ada.Streams;
|
with Ada.Streams; use Ada.Streams;
|
package abstract1 is
|
package abstract1 is
|
type T is abstract tagged limited null record;
|
type T is abstract tagged limited null record;
|
function Input (Stream : not null access Root_Stream_Type'Class) return T
|
function Input (Stream : not null access Root_Stream_Type'Class) return T
|
is abstract;
|
is abstract;
|
|
|
function New_T (Stream : not null access Root_Stream_Type'Class)
|
function New_T (Stream : not null access Root_Stream_Type'Class)
|
return T'Class;
|
return T'Class;
|
|
|
type IT is limited new T with record
|
type IT is limited new T with record
|
I : Integer;
|
I : Integer;
|
end record;
|
end record;
|
function Input (Stream : not null access Root_Stream_Type'Class) return IT;
|
function Input (Stream : not null access Root_Stream_Type'Class) return IT;
|
|
|
type FT is limited new T with record
|
type FT is limited new T with record
|
F : Float;
|
F : Float;
|
end record;
|
end record;
|
function Input (Stream : not null access Root_Stream_Type'Class) return FT;
|
function Input (Stream : not null access Root_Stream_Type'Class) return FT;
|
end abstract1;
|
end abstract1;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.