URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 384 |
-- { dg-do compile }
|
-- { dg-do compile }
|
-- { dg-options "-gnatws" }
|
-- { dg-options "-gnatws" }
|
|
|
procedure aggr4 is
|
procedure aggr4 is
|
type Byte is range 0 .. 2**8 - 1;
|
type Byte is range 0 .. 2**8 - 1;
|
for Byte'Size use 8;
|
for Byte'Size use 8;
|
|
|
type Time is array (1 .. 3) of Byte;
|
type Time is array (1 .. 3) of Byte;
|
|
|
type UTC_Time is record
|
type UTC_Time is record
|
Values : Time;
|
Values : Time;
|
end record;
|
end record;
|
|
|
type Local_Time is record
|
type Local_Time is record
|
Values : Time;
|
Values : Time;
|
end record;
|
end record;
|
for Local_Time use record
|
for Local_Time use record
|
Values at 0 range 1 .. 24;
|
Values at 0 range 1 .. 24;
|
end record;
|
end record;
|
|
|
LOC : Local_Time;
|
LOC : Local_Time;
|
UTC : UTC_Time;
|
UTC : UTC_Time;
|
|
|
begin
|
begin
|
UTC.Values := LOC.Values;
|
UTC.Values := LOC.Values;
|
UTC := (Values => LOC.Values);
|
UTC := (Values => LOC.Values);
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.