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 |
-- { dg-do compile }
|
-- { dg-do compile }
|
-- { dg-options "-gnatws -O3" }
|
-- { dg-options "-gnatws -O3" }
|
|
|
with Discr21_Pkg; use Discr21_Pkg;
|
with Discr21_Pkg; use Discr21_Pkg;
|
|
|
package body Discr21 is
|
package body Discr21 is
|
|
|
type Index is new Natural range 0 .. 100;
|
type Index is new Natural range 0 .. 100;
|
|
|
type Arr is array (Index range <> ) of Position;
|
type Arr is array (Index range <> ) of Position;
|
|
|
type Rec(Size : Index := 1) is record
|
type Rec(Size : Index := 1) is record
|
A : Arr(1 .. Size);
|
A : Arr(1 .. Size);
|
end record;
|
end record;
|
|
|
Data : Rec;
|
Data : Rec;
|
|
|
function To_V(pos : Position) return VPosition is
|
function To_V(pos : Position) return VPosition is
|
begin
|
begin
|
return To_Position(pos.x, pos.y, pos.z);
|
return To_Position(pos.x, pos.y, pos.z);
|
end;
|
end;
|
|
|
procedure Read(Data : Rec) is
|
procedure Read(Data : Rec) is
|
pos : VPosition := To_V (Data.A(1));
|
pos : VPosition := To_V (Data.A(1));
|
begin
|
begin
|
null;
|
null;
|
end;
|
end;
|
|
|
procedure Test is
|
procedure Test is
|
begin
|
begin
|
Read (Data);
|
Read (Data);
|
end;
|
end;
|
|
|
end Discr21;
|
end Discr21;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.