URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 384 |
package elab1 is
|
package elab1 is
|
|
|
-- the forward declaration is the trigger
|
-- the forward declaration is the trigger
|
type Stream;
|
type Stream;
|
|
|
type Stream_Ptr is access Stream;
|
type Stream_Ptr is access Stream;
|
|
|
type Stream is array (Positive range <>) of Character;
|
type Stream is array (Positive range <>) of Character;
|
|
|
function Get_Size (S : Stream_Ptr) return Natural;
|
function Get_Size (S : Stream_Ptr) return Natural;
|
|
|
type Rec (Size : Natural) is
|
type Rec (Size : Natural) is
|
record
|
record
|
B : Boolean;
|
B : Boolean;
|
end record;
|
end record;
|
|
|
My_Desc : constant Stream_Ptr := new Stream'(1 => ' ');
|
My_Desc : constant Stream_Ptr := new Stream'(1 => ' ');
|
|
|
My_Size : constant Natural := Get_Size (My_Desc);
|
My_Size : constant Natural := Get_Size (My_Desc);
|
|
|
subtype My_Rec is Rec (My_Size);
|
subtype My_Rec is Rec (My_Size);
|
|
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.