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, Ada.Tags;
|
with Ada.Streams, Ada.Tags;
|
package gen_disp is
|
package gen_disp is
|
type Root_Type is tagged null record;
|
type Root_Type is tagged null record;
|
|
|
function Root_Type_Class_Input
|
function Root_Type_Class_Input
|
(S : not null access Ada.Streams.Root_Stream_Type'Class)
|
(S : not null access Ada.Streams.Root_Stream_Type'Class)
|
return Root_Type'Class;
|
return Root_Type'Class;
|
|
|
for Root_Type'Class'Input use Root_Type_Class_Input;
|
for Root_Type'Class'Input use Root_Type_Class_Input;
|
end gen_disp;
|
end gen_disp;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.