URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
| Rev 304 |
Rev 338 |
-- { dg-do compile }
|
-- { dg-do compile }
|
|
|
procedure Addr6 is
|
procedure Addr6 is
|
|
|
type Byte is mod 2**8;
|
type Byte is mod 2**8;
|
|
|
type Byte_Arr1 is array (Positive range <>) of Byte;
|
type Byte_Arr1 is array (Positive range <>) of Byte;
|
for Byte_Arr1'Alignment use 4;
|
for Byte_Arr1'Alignment use 4;
|
|
|
type Byte_Arr2 is array (Positive range <>) of Byte;
|
type Byte_Arr2 is array (Positive range <>) of Byte;
|
|
|
function Length return Natural is
|
function Length return Natural is
|
begin
|
begin
|
return 1;
|
return 1;
|
end;
|
end;
|
|
|
function Empty return Byte_Arr2 is
|
function Empty return Byte_Arr2 is
|
Null_Arr : Byte_Arr2 (1 .. 0);
|
Null_Arr : Byte_Arr2 (1 .. 0);
|
begin
|
begin
|
return Null_Arr;
|
return Null_Arr;
|
end;
|
end;
|
|
|
A1 : Byte_Arr1 (1 .. Length);
|
A1 : Byte_Arr1 (1 .. Length);
|
|
|
A2 : Byte_Arr2 (A1'Range);
|
A2 : Byte_Arr2 (A1'Range);
|
for A2'Alignment use 4;
|
for A2'Alignment use 4;
|
for A2'Address use A1'Address;
|
for A2'Address use A1'Address;
|
|
|
begin
|
begin
|
A2 := Empty;
|
A2 := Empty;
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.