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 384 |
-- { dg-do compile }
|
-- { dg-do compile }
|
|
|
procedure access2 is
|
procedure access2 is
|
Arr : array (1..10) of aliased Float;
|
Arr : array (1..10) of aliased Float;
|
type Acc is access all Float;
|
type Acc is access all Float;
|
procedure Set (X : integer) is
|
procedure Set (X : integer) is
|
Buffer: String (1..8);
|
Buffer: String (1..8);
|
for Buffer'address use Arr (4)'address;
|
for Buffer'address use Arr (4)'address;
|
begin
|
begin
|
Arr (X) := 31.1415;
|
Arr (X) := 31.1415;
|
end;
|
end;
|
function Get (C : Integer) return Acc is
|
function Get (C : Integer) return Acc is
|
begin
|
begin
|
return Arr (C)'access;
|
return Arr (C)'access;
|
end;
|
end;
|
begin
|
begin
|
null;
|
null;
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.
