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 384 |
-- { dg-do compile }
|
-- { dg-do compile }
|
|
|
with System, Ada.Unchecked_Conversion;
|
with System, Ada.Unchecked_Conversion;
|
procedure alignment3 is
|
procedure alignment3 is
|
|
|
type Value_Type (Is_Short : Boolean) is record
|
type Value_Type (Is_Short : Boolean) is record
|
case Is_Short is
|
case Is_Short is
|
when True => V : Natural;
|
when True => V : Natural;
|
when others => A, B : Natural;
|
when others => A, B : Natural;
|
end case;
|
end case;
|
end record;
|
end record;
|
|
|
type Link_Type (Short_Values : Boolean) is record
|
type Link_Type (Short_Values : Boolean) is record
|
Input, Output : Value_Type (Short_Values);
|
Input, Output : Value_Type (Short_Values);
|
Initialized : Boolean;
|
Initialized : Boolean;
|
N_Probes : Natural;
|
N_Probes : Natural;
|
end record;
|
end record;
|
|
|
type Link_Access is access Link_Type;
|
type Link_Access is access Link_Type;
|
|
|
type Natural_Access is access all Natural;
|
type Natural_Access is access all Natural;
|
function To_Natural_Access is
|
function To_Natural_Access is
|
new Ada.Unchecked_Conversion (System.Address, Natural_Access);
|
new Ada.Unchecked_Conversion (System.Address, Natural_Access);
|
|
|
Ptr : Natural_Access;
|
Ptr : Natural_Access;
|
|
|
procedure N_Probes_For (Link : Link_Access) is
|
procedure N_Probes_For (Link : Link_Access) is
|
begin
|
begin
|
Ptr := To_Natural_Access (Link.N_Probes'address);
|
Ptr := To_Natural_Access (Link.N_Probes'address);
|
Ptr := To_Natural_Access (Link.Initialized'address);
|
Ptr := To_Natural_Access (Link.Initialized'address);
|
end;
|
end;
|
|
|
begin
|
begin
|
null;
|
null;
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.